Задачи на паскале в объяснении
Объяснение:
задача 1
program z1;
var x, f: real;
begin
writeln('введите х');
readln(x);
if x>=0 then f:=sqrt(x*x*x)
else f:=sqr(x)/(sqr(x)-2);
writeln('f(x)=',f:10:2);
readln;
end.
задача 2
program z2;
const n=5, m=5;
var a:array[1..n, 1..m] of integer;
i, j, s, p: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random(11)+10;
write(a[i,j]:5);
end;
writeln;
end;
p:=1;
s:=0;
for j:=1 to m do p:=p*a[1,j];
for i:=1 to n do s:=s+a[i,1];
writeln('сумма элементов первого столбца=',s);
writeln('произведение элементов первой строки=',p);
readln;
end.
Задача 3
program z3;
const n=5; m=5;
var a:array[1..n, 1..m] of integer;
i, j, p, max, min: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random(11)+10;
write(a[i,j]:5);
end;
writeln;
end;
p:=1;
min:=a[1,1];
max:=min;
for i:=1 to n do
for j:=1 to m do
begin
if (a[i,j]<min) then min:=a[i,j];
if (a[i,j]>max) then max:=a[i,j];
End;
P:=min*max;
writeln('произведение максимального и минимального элемента=',p);
readln;
end.
var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.
№2
var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.
№4
var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;
writeln('Сумма введенных чисел: ', sum);
end.