[vsesdal]
Количество страниц учебной работы: 8,10
Содержание:
«ОПРЕДЕЛЕНИЕ РАДИУСА КРИВИЗНЫ ЛИНЗЫ С ПОМОЩЬЮ КОЛЕЦ НЬЮТОНА 1
I. Теоретическая часть. 2
II. Описание установки. 4
III. Порядок выполнения работы: 4
1. Определение цены деления окулярной шкалы 4
2. Определение радиуса кривизны линзы 5
IV. Экспериментальная часть. Определение цены деления окулярной шкалы 6
»
Учебная работа № 187355. Контрольная Физика. Лабораторная работа № 7
Выдержка из похожей работы
Лабораторная работа № 16
…..t if (sl[1]=’а’) or (sl[1]=’е’) or (sl[1]=’ё’) or (sl[1]=’и’) or (sl[1]=’о’) or (sl[1]=’у’) or (sl[1]=’ы’) or (sl[1]=’э’) or (sl[1]=’ю’) or (sl[1]=’я’) then k1:=k1+1; delete(sl,1,1); until length(sl)=0; end; {sravn}
procedure s4et(ok:boolean;s:string;var ko:integer); var sl:mas; sl1:string[80]; k,i,j:byte; k1:integer; begin {s4et} k1:=0; trim(s); s:=s+’ ‘; i:=0; repeat k:=pos(‘ ‘,s); i:=i+1; sl[i]:=copy(s,1,k-1); delete(s,1,k); until s=»; for j:=1 to i do begin sravn(sl[j],k1); if ok then if k1>ko then ko:=k1; if not ok then if k1=ko then writeln(sl[j]); k1:=0; end; end; {s4et}var s:mas; i,n,k:integer;
begin k:=0; Writeln(‘Введите кол-во строк:’); readln(n); Writeln(‘Введите текст:’); for i:=1 to n do begin readln(s[i]); s4et(true,s[i],k); end; writeln(‘максимальное количество гласных букв в слове=’,k); for i:=1 to n do s4et(false,s[i],k);
end. Результат выполнения программы:
Введите кол-во строк:
4
Введите текст:
Рязанская
Государственная
Радиотехническая
Академия
максимальное количество гласных букв в слове=8
Радиотехническая
…