Var x,y,z,Ans:integer; u:real; Begin Write('Введите числа x,y,z: '); Readln(x,y,z); Writeln('Что вычислить из числа ',x,' ?'); Writeln('1 - sin; 2 - cos; 3 - tg;'); Readln(Ans); case Ans of 1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end; 2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end; 3: begin u:=tan(x); Writeln('tg(',x,') = ',u) end; else Writeln('Ошибка!') end; Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z); Writeln('Без модуля - 1; по модулю - 2'); Readln(Ans); case Ans of 1: begin if (u>y) and (u>z) then Writeln('Максимальное число - ',u) else if (y>u) and (y>z) then Writeln('Максимальное число - ',y) else if (z>u) and (z>y) then Writeln('Максимальное число - ',z) else Writeln('Все числа равны.') end; 2: begin if (abs(u)>abs(y)) and (abs(u)>abs(z)) then Writeln('Максимальное число - ',u) else if (abs(y)>abs(u)) and (abs(y)>abs(z)) then Writeln('Максимальное число - ',y) else if (abs(z)>abs(u)) and (abs(z)>abs(y)) then Writeln('Максимальное число - ',z) else Writeln('Все числа равны.') end end End.
var a: array[1..m, 1..n] of integer; i, j, t: integer; p: longint;
begin Randomize; Writeln('Исходный массив'); p := 1; for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(19) - 9; Write(a[i, j]:3); if (abs(a[i, j]) < 1) or (abs(a[i, j]) > 5) then p := p * a[i, j] end; Writeln end; Writeln('Произведение элементов с модулем вне [1;5] равно ', p) end.
Тестовое решение: Исходный массив -8 2 7 -3 -8 5 1 -4 -3 6 9 6 Произведение элементов с модулем вне [1;5] равно 145152
u:real;
Begin
Write('Введите числа x,y,z: ');
Readln(x,y,z);
Writeln('Что вычислить из числа ',x,' ?');
Writeln('1 - sin; 2 - cos; 3 - tg;');
Readln(Ans);
case Ans of
1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end;
2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end;
3: begin u:=tan(x); Writeln('tg(',x,') = ',u) end;
else Writeln('Ошибка!') end;
Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z);
Writeln('Без модуля - 1; по модулю - 2');
Readln(Ans);
case Ans of
1: begin
if (u>y) and (u>z) then
Writeln('Максимальное число - ',u)
else
if (y>u) and (y>z) then Writeln('Максимальное число - ',y)
else
if (z>u) and (z>y) then Writeln('Максимальное число - ',z)
else
Writeln('Все числа равны.')
end;
2: begin
if (abs(u)>abs(y)) and (abs(u)>abs(z)) then
Writeln('Максимальное число - ',u)
else
if (abs(y)>abs(u)) and (abs(y)>abs(z)) then
Writeln('Максимальное число - ',y)
else
if (abs(z)>abs(u)) and (abs(z)>abs(y)) then
Writeln('Максимальное число - ',z)
else Writeln('Все числа равны.')
end
end
End.
*.pas прикрепил во вложения
m = 4;
n = 3;
var
a: array[1..m, 1..n] of integer;
i, j, t: integer;
p: longint;
begin
Randomize;
Writeln('Исходный массив');
p := 1;
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := Random(19) - 9;
Write(a[i, j]:3);
if (abs(a[i, j]) < 1) or (abs(a[i, j]) > 5) then p := p * a[i, j]
end;
Writeln
end;
Writeln('Произведение элементов с модулем вне [1;5] равно ', p)
end.
Тестовое решение:
Исходный массив
-8 2 7
-3 -8 5
1 -4 -3
6 9 6
Произведение элементов с модулем вне [1;5] равно 145152