Question

Сделать расчет на эвм (pascal abc) ((нужна )) ((1)) function c (r: real): real; begin c: =3.14*r; end; var cc,r1,r2,r3,r4: real; begin write('введите значение r1='); readln(r1); write('введите значение r2='); readln(r2); write('введите значение r3='); readln(r3); write('введите значение r4='); readln(r4); cc: =c(r1)+c(r2)+c(r3)+c(r4); writeln('c=',cc: 5: 2); end. ((2)) var x1, x2, x3, x4, mn : integer; function min (a, b : integer) : integer; begin if a < b then min : = a else min : = b end; begin write('введите 4 числа: '); readln(x1, x2, x3, x4); {эхо-печать} mn : = min(x1, min(x2, min(x3, ; writeln('минимум: ', mn); end. ((3)) var x: real; res: real; y: word; begin clrscr; write('введите число в метрах, которое нужно преобразовать: '); readln(x); writeln('введите во что преобразовывать: '); writeln('[1] - декаметр'); writeln('[2] - гектаметр'); writeln('[3] - километр'); writeln('[4] - мириаметр'); writeln('[5] - мегаметр'); readln(y); case y of 1: begin res: =x*0.10; writeln('в ',x: 3: 2,' м ', res: 3: 2, ' декаметров'); end; 2: begin res: =x*0.01; writeln('в ',x: 3: 2,' м ',res: 3: 2, ' гектаметров'); end; 3: begin res: =x*0.001; writeln('в ',x: 3: 2,' м ',res: 3: 2,' километров '); end; 4: begin res: =x*0.0001; writeln('в ',x: 3: 2,' м ',res: 3: 2,' мириаметров'); end; 5: begin res: =x*0.00001; writeln('в ',x: 3: 2,' м ',res: 3: 2,'мегаметров'); end; end; readln end. ((4)) program lab6; uses crt; function a(n: integer): real; begin a: =1/n*sin(pi/4*n)+1/sqr(n)*cos(pi/4*n); end; var i: integer; begin clrscr; for i: =10 to 25 do writeln(i: 2,'=',a(i): 7: 5); readln end.

Answer 1

По 1-й решение уже приложено, поэтому прикладываю без него (остальные). Смотри скриншоты.