Складіть блок схему алгоритму обчислення значення виразу (5*x+2*y)/(2*x+4*y). Виконайте складений алгоритм для двох наборів значень змінних х та y, щоб виконання виразу алгоритму відбувалося по-різному ДАЮ 20б
Задание 2, 1: program zadacha1; uses crt; var x, y: real; begin clrscr; write('enter x: '); readln (x); x:=(x*pi)/180; // в Паскале используется измерение в радианах, здесь мы // переводим из градусов (так как мы задаем значение в градусах) в радианы y:=sqr(cos(x))+sqr(sin(x))*sin(x); writeln ('y=', y:0:4); readkey; end.
2 program zadacha2; uses crt; var y: real; begin clrscr; y:=sqr(sin(pi))+ pi/2; writeln ('y=', y:0:4); readkey; end.
3 program zadacha3; uses crt; var x, y: real; begin clrscr; write ('enter x: '); readln (x); x:=(x*pi)/180; y:=sin(x)/cos(x) + 0.25; writeln ('y=', y:0:4); readkey; end.
4 program zadacha4; uses crt; var x, y, z: integer; begin clrscr; write ('enter x, z'); readln (x, z); y:=abs(x)+2*abs(z); writeln ('y=', y:0:4); readkey; end.
1.
program simple;
var a,b:integer;
begin
writeln('daite a, b); readln(a,b);
writeln('x = ', b/a); readln;
end;
2.
program day;
var h,hours,minutes:longint;
begin
writeln('daite secundi'); readln(h);
hour:= h div 3600; minutes:=h mod 36000;
if (minutes > 60) or (minutes=60) then
begin
hour:=hour+1;
minutes:=minutes-60;
end;
writeln('It is 'hours' hours 'minutes' minutes');
readln;
end;
3.
program summaChisla;
var s:string; i,sum: longint; c,cod:integer;
begin
writeln('daite nomer); readln(s);
for i:=1 to length(s) do
begin
val(s[i],c,cod); sum:=sum+c;
end;
writeln('summa :',sum); readln;
end;