1: составить алгоритм вычисления значений функции y=f(x) y=sin2x+cosx 3: одноклеточная амёба каждые 3 часа делится на 2 клетки, определить, сколько амеб будет через 3, 6, 9, 12, 24 часа(составить алгоритм)
1.var a,b:integer; begin writeln('введите числа (0 признак окончания ввода)'); readln(a); b:=1; while (a<>0) do begin readln(a); if (a mod 2 = 0) and (a<>0) then b:=b*a; end;writeln('произведение чётных чисел последовательности ',b); end. 2.var a,b:integer; begin b:=0; a:=1; while (a<=10000) do begin if (a mod 10 = 0) then b:=b+1; a:=a+1; end; writeln('количество круглых чисел ',b); end. 3.var a,b:integer; begin writeln('введите числа (1 признак окончания ввода)'); readln(a); b:=0; while (a<>1) do begin readln(a); if (a mod 7 = 0) then b:=b+1; end; writeln('цифра 7 встречается ',b,' раз'); end. 4.var a,b:integer;begin writeln('введите числа (0 признак окончания ввода)'); b:=0; a:=1; while (a<>0) do begin readln(a); if (a<>0) then b:=a*a+b; end;writeln('сумма квадратов ',b); end.
const n=5;var i,j,s,p: integer; a: array [1..n,1..n] of integer; b,c: array [1..n] of integer;begin for i:=1 to n do for j:=1 to n do a[i,j]:=Random(100);{ вывод на экран } for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; { цикл по массиву } for j:=1 to n do {цикл по колонке } begin s:=0; p:=1; for i:=1 to n do {цикл по строке} if (a[i,j] mod 2 = 0) then p:=p*a[i,j] else s:=s+a[i,j]; if (p>1) then c[j]:=p else c[j]:=0; if (s>0) then b[j]:=s else b[j]:=0; end; writeln('массив для четных элементов'); for i:=1 to n do write(c[i]:10); writeln; writeln('массив для нечетных элементов'); for i:=1 to n do write(b[i]:4); end.
var x,y:real;
begin
write('x = ');
readln(x);
y:=sin(2*x)+cos(x);
writeln('y = ',y);
end.
Пример:
x = 0.5
y = 1.71905354669827
2.
var i,n:integer;
begin
n:=1;
for i:=1 to 24 div 3 do
begin
n:=n*2;
writeln(3*i,': ',n);
end;
end.
Результат:
3: 2
6: 4
9: 8
12: 16
15: 32
18: 64
21: 128
24: 256