Посчитать math.sin (1) = math.sin (1 + 180) a % b = a - (a // b) * b math.cos (1) = math.cos (1 + 2 * math.pi) a % b = b // a и указать правдивые выражения
var i,j,k,shlth:integer; letter:char; name,minword,s1,x,x1:string; f1,f2:text; f:boolean; arr:array [1..100] of string; label 1;
begin writeln('Введіть імя файлу введення:'); readln(name); assign(f1,name); reset(f1); writeln('Введіть імя файлу виводу:'); readln(name); assign(f2,name); rewrite(f2); writeln('Введіть букву для пошуку:'); readln(letter); letter:=lowercase(letter); j:=1;
while not eof(f1) do begin readln(f1,x1); x:=lowercase(x1); i:=1; while (i<=length(x)) and (x[i] <> letter) do begin while (i<=length(x)) and (x[i] = ' ') do inc(i); if (i<=length(x)) and (x[i] <> letter) then while (i<=length(x)) and (x[i] <> ' ') do inc(i); end; if i>length(x) then begin writeln(f2,x1); arr[j]:=x1; inc(j); end; end;
f:=false; for k:=1 to j do begin i:=1; while (i<=length(arr[k])) and (arr[k][i] = ' ') and not f do inc(i); if i<length(arr[k])+1 then begin f:=true; goto 1; end; end;
1: if not f then writeln('У файлі f2 немає слова, відповідного умові вибору') else begin while (arr[k][i]<>' ') and (i<=length(arr[k])) do begin minword:=minword+arr[k][i]; inc(i); end; for k:=1 to j do begin i:=1; while i<=length(arr[k]) do begin while (i<=length(arr[k])) and (arr[k][i] = ' ') do inc(i); if i<=length(arr[k]) then begin shlth:=1; s1:=arr[k][i]; end; while (i<=length(arr[k])) and (arr[k][i] <> ' ') do begin s1:=s1+arr[k][i]; inc(i); inc(shlth); end; if shlth<length(minword) then minword:=s1; end; end; writeln('Найкоротша слово у файлі f2: ',minword); end;
1. Программное обеспечение - совокупность программ системы обработки информации и программных документов, необходимых для эксплуатации этих программ (определение из ГОСТа). ПО служит для выполнения определённых задач пользователя, используя ресурсы устройств компьютера.
2. Сообщение указывает, что на диске не обнаружена операционная система.
3. На разных дисках могут быть установлены разные системы. Если бы для переключения надо было бы каждый раз лезть внутрь компьютера, было бы неудобно. Кроме того, один диск может быть резервным, загрузка будет проходить с него, если загрузка с основного диска закончилась неудачно, чтобы провести тестирование системы, провести откат к предыдущим настройкам или установить новую операционную систему.
var i,j,k,shlth:integer;
letter:char;
name,minword,s1,x,x1:string;
f1,f2:text;
f:boolean;
arr:array [1..100] of string;
label 1;
begin
writeln('Введіть імя файлу введення:');
readln(name);
assign(f1,name); reset(f1);
writeln('Введіть імя файлу виводу:');
readln(name);
assign(f2,name); rewrite(f2);
writeln('Введіть букву для пошуку:');
readln(letter);
letter:=lowercase(letter);
j:=1;
while not eof(f1) do
begin
readln(f1,x1);
x:=lowercase(x1);
i:=1;
while (i<=length(x)) and (x[i] <> letter) do
begin
while (i<=length(x)) and (x[i] = ' ') do inc(i);
if (i<=length(x)) and (x[i] <> letter) then
while (i<=length(x)) and (x[i] <> ' ') do inc(i);
end;
if i>length(x) then
begin
writeln(f2,x1);
arr[j]:=x1;
inc(j);
end;
end;
f:=false;
for k:=1 to j do
begin
i:=1;
while (i<=length(arr[k])) and (arr[k][i] = ' ') and not f do inc(i);
if i<length(arr[k])+1 then begin f:=true; goto 1; end;
end;
1: if not f then writeln('У файлі f2 немає слова, відповідного умові вибору') else
begin
while (arr[k][i]<>' ') and (i<=length(arr[k])) do
begin
minword:=minword+arr[k][i];
inc(i);
end;
for k:=1 to j do
begin
i:=1;
while i<=length(arr[k]) do
begin
while (i<=length(arr[k])) and (arr[k][i] = ' ') do inc(i);
if i<=length(arr[k]) then begin shlth:=1; s1:=arr[k][i]; end;
while (i<=length(arr[k])) and (arr[k][i] <> ' ') do begin s1:=s1+arr[k][i]; inc(i); inc(shlth); end;
if shlth<length(minword) then minword:=s1;
end;
end;
writeln('Найкоротша слово у файлі f2: ',minword);
end;
close(f1); close(f2);
end.
ПО служит для выполнения определённых задач пользователя, используя ресурсы устройств компьютера.
2. Сообщение указывает, что на диске не обнаружена операционная система.
3. На разных дисках могут быть установлены разные системы. Если бы для переключения надо было бы каждый раз лезть внутрь компьютера, было бы неудобно. Кроме того, один диск может быть резервным, загрузка будет проходить с него, если загрузка с основного диска закончилась неудачно, чтобы провести тестирование системы, провести откат к предыдущим настройкам или установить новую операционную систему.