перевірти чи правильно розвязані задачі в паскалі . там 25 задач
Це розвязок тих задач 1. program z1;
uses crt;
const xk=1.01; dx=0.1;
var y,x:real;
begin
clrscr;
x:=0;
while x<=xk do begin
y:=sin(x)+exp(2*x)-sin(x)/cos(x);
writeln ('x=',x:5:1,' | ','y=',y:5:2);
x:=x+dx;
end;
readkey;
end.
2. program Zad2;
uses crt;
var A,y,x,z:real;
begin
clrscr;
writeln ('type x,y,z');
read (x,y,z);
if x>y then A:=sqrt(x+abs(y)) else A:=sqrt(abs(exp(x+1)+sin(z)));
writeln ('A=f(x,y,z):',A:5:3);
readkey;
end.
3. program z3;
uses crt;
var m,x:real;
i:integer;
a:array [1..25] of real;
begin
clrscr; randomize;
for i:=1 to 25 do
begin
a:=random(10)+random;
write (a:5:2);
write (' ');
end;
writeln;
m:=a[1];
for i:=2 to 25 do
if m>a then m:=a;
writeln('min=',m:5:2);
x:=sqrt(m);
writeln ('sqrt(A[min])= ',x:4:3);
readkey;
end.
4. program z4;
uses crt;
const n=15;
type masiv=array[1..n] of integer;
var a:masiv; b,i:integer;
begin
clrscr; randomize;
for i:=1 to n do begin
a:=random (100);
writeln(a);
end;
write ('b='); readln (b);
clrscr;
for i:=1 to n do
if a);
readkey;
end.
5. program Zad5;
uses crt;
type mas=array [1..3,1..4] of real;
var a:mas;
i,j,k:integer;
s,m:real;
begin
clrscr;
s:=1;
write ('type k=');
readln (k);
writeln;
for i:=1 to 3 do
begin
writeln;
for j:=1 to 4 do
begin
a[i,j]:=k*cos(k+11)+sin(k+i+j);
write (a[i,j]:4:3,' ');
end;
end;
for i:=1 to 3 do
for j:=1 to 4 do
if a[i,j]<0 then s:=s*a[i,j];
if s=1 then s:=0;
writeln;
writeln ('s=',s:8:3);
readkey;
end.
перевірти ці бо більше кинути не можу бо пише шо забагато символів