Задача 1. Написать формулу на алгоритмическом языке
f:= (exp(a+b)+sqr( exp(ln(ln(2-a))*3) )) / ( exp(ln(tan(4*b))*2) -sin(exp(ln(a)*b)) );
Задача 2.
program prog2;
Uses math, crt;
var z, x, y : real;
const pi=3.14;
begin
Clrscr;
writeln('Введите x, y');
readln(x);
readln(y);
if (y=0) then
writeln('Ошибка вычисления')
else begin
z:=3*cos(pi/(x*x*x)) * power(sin(pi-y),3);
writeln('z= ',z);
end;
readln();
end.
Результат:
Блок-схема:
Задача 3.
program prog3;
Uses math, crt;
var z, a, b : real;
const k=0.8;
begin
Clrscr;
a:= 0.2;
while a <= 0.85 do begin
b:=0.1;
while (b<=0.9) do begin
z:=cos( ((a-k)/2) * sin(power(a,b)+ln(k)) );
writeln('a=',a:5:2,' b=',b:5:2, ' z=',z:5:2);
b:=b+0.1;
end;
a:= a + 0.3;
end;
readln();
end;
Результат:
Блок-схема:
Задача 4.
program prog4;
Uses math, crt;
var f, x, y, min, max : real;
mfile: text;
const pi=3.14;
begin
assign (mfile, 'c:\1\file.txt');
rewrite (mfile);
Clrscr;
y:=7.21;
x:=0;
f:=(10*x*x-y)/(power(sin(x-cos(y)),2));
min:=f;
max:=f;
while x <= pi/2 do begin
f:=(10*x*x-y)/(power(sin(x-cos(y)),2));
if (f>max) then max:=f;
if (f<min) then min:=f;
writeln(mfile, 'x=',x:5:2,' y=',y:5:2, ' f=',f:5:2);
x:=x+pi/16;
end;
writeln(mfile, 'max=',max:5:2,' min=',min:5:2);
close (mfile);
reset(mfile);
readln();
end.
Результат (файл file.txt)
x= 0.00 y= 7.21 f=-22.59
x= 0.20 y= 7.21 f=-44.14
x= 0.39 y= 7.21 f=-133.09
x= 0.59 y= 7.21 f=-27659.24
x= 0.79 y= 7.21 f=-31.09
x= 0.98 y= 7.21 f=17.50
x= 1.18 y= 7.21 f=22.36
x= 1.37 y= 7.21 f=23.90
max=23.90 min=-27659.24
Блок-схема:
Задача 5
program prog5;
Uses math, crt;
var j, i, max, p, ii, jj: integer;
const N = 8;
M = 6;
var A: array[1..N,1..M] of integer;
begin
Clrscr;
p:=1;
for i := 1 to N do begin
for j := 1 to M do begin
writeln('Введите элемент[', i,',',j,']');
readln(A[i,j]);
end;
end;
for i := 1 to N do begin
for j := 1 to M do begin
write(A[i,j],' ');
|
|
|
end;
writeln(' ');
end;
max:=A[1,1];
for i := 1 to N do begin
for j := 1 to M do begin
if (max<A[i,j]) then begin
max:= A[i,j];
ii:=i;
jj:=j;
end;
if (A[i,j]>0) then p:=p*A[i,j];
end;
end;
writeln('max [',ii, ',', jj, '] =', max);
writeln('p=',p);
A[ii,jj]:=p;
for i := 1 to N do begin
for j := 1 to M do begin
write(A[i,j],' ');
end;
writeln(' ');
end;
readln();
end.
Результат:
Задача 6
program prog6;
Uses math, crt;
var j, i, max, max7, max9, ii, jj, ii7, ii9: integer;
const N = 9;
M = 9;
var B: array[1..N,1..M] of integer;
begin
Clrscr;
randomize;
max:= -100;
for i := 1 to N do begin
for j := 1 to M do begin
B[i,j] := random (100) - 50;
write(B[i,j],' ');
end;
writeln(' ');
end;
for j := 1 to M do begin
max:=-100;
if (j mod 2 = 1) then begin
for i := 1 to N do begin
if (max<B[i,j]) then begin
max:= B[i,j];
ii:=i;
jj:=j;
end;
end;
writeln('max [',ii, ',', jj, '] =', max);
if (j =7) then begin
ii7:=ii;
max7 := max;
end;
if (j=9) then begin
max9 := max;
ii9:=ii;
end;
end;
end;
B[ii7,7]:=max9;
B[ii9,9]:=max7;
for i := 1 to N do begin
for j := 1 to M do begin
write(B[i,j],' ');
end;
writeln(' ');
end;
readln();
end.
Результат:
Дата добавления: 2021-02-10; просмотров: 340; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!