Лабы по программированию (КИ МГОУ) / Лабы по программированию 1 курс / Лаба1 / Отсчёт
.docЗадание 1
Исходныё код программы program Z1;
{$APPTYPE CONSOLE}
uses SysUtils;
var a,b:real; R1,R2,R3,R4:real; begin a:=5; b:=7;
R1:=a+b; R2:=a-b; R3:=a*b; R4:=a/b;
Writeln('R1=',R1); Writeln('R2=',R2); Writeln('R3=',R3); Writeln('R4=',R4); Writeln('End program.'); Readln; end. |
Исходный данные a:=5; b:=7; Результаты расчёта
Блок схема
|
Задание 2
Исходныё код программы program Z2;
{$APPTYPE CONSOLE}
uses SysUtils; var X:Real; Y:Real; Z:Integer; F: Real; begin Writeln('Znachenie MaxLnt: ',MaxInt); Writeln('Znachenie Pi: ',Pi); Write('Vvedite Znachenie argument: '); Readln(X); Writeln('Trubc(X)->',Trunc(X)); Writeln('Int(X)->',Int(X)); Writeln('Frac(X)->',Frac(X)); F:=Abs(X); Writeln('Znachenie funkcii Abs: ',F); F:=Sqrt(X); Writeln('Znachenie funkcii koren: ',F); F:=Exp(X); Writeln('Znachenie funkcii Exp :',F); F:=Ln(X); Writeln('Znachenie funkcii Ln: ',F); F:=Sin(X); Writeln('Znachenie funkcii Sin: ',F); F:=Cos(X); Writeln('Znachenie funkcii Cos',F); F:=ArcTan(X); Writeln('Znachenie funkcii ArcTg');
Writeln('Vvedite Znachenie argumenta: '); Readln(Y); F:=Exp(Y*LN(X)); Writeln('Znachenie funkcii X^Y: ',F);
Write('Vvedite Znachenie argumenta tipa Integer: '); Readln(Z); Writeln('Odd(z)->',Odd(Z)); Readln; end. |
Исходный данные X:Real; Y:Real; Z:Integer; F: Real; Результаты расчёта Блок схема
|
||||||||||||||||||||||||||||||||||
|
|
Исходныё код программы program Project2;
{$APPTYPE CONSOLE}
uses SysUtils; var Celsius, Fahrenheut, Kelvin, Renkin:real; begin write('vvedite znachenie temperaturi po Celsius='); readln(Celsius); Fahrenheut:=1.8*Celsius+32; Kelvin:=Celsius+273.15; Renkin:=1.8*Celsius+492; writeln('sootvetstvie mejdy temoeraturnimi shkalami'); writeln('Celsius Fahrenheut Kelvin Renkin'); writeln(Celsius:7:2,Fahrenheut:7:2,Kelvin:7:2,Renkin:7:2); writeln('End program'); Readln; end. |
Исходный данные Celsius=
Результат расчёта
Блок схема
|
Задание 3
Задание 4
Исходныё код программы program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var a,b,x,y,x2,bx:real; begin Write('vvedite a,b,x= '); readln(a,b,x); x2:=x*x; bx:=b/x; y:=a*sin(x2)+sin(bx); writeln (' a= ',a:3:1); writeln (' b= ',b:3:1); writeln (' x= ',x:3:1); writeln (' y= ',y:3:1); writeln('End program'); readln; end. |
Исходный данные a,b,x,y,x2,bx
Результат расчёта Блок схема
|
Задание 5
Исходныё код программы program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var a,b,x,z,w:real; begin a:=0.5; b:=3.1; x:=1.4; z:=a*x*sin(x*2)+exp(-2*x)*(x+b); w:=sqr(cos(x*x*x))-x/sqrt(a*a+b*b); writeln(' a= ',a:3:2); writeln(' b= ',b:3:2); writeln(' x= ',x:3:2); writeln(' z= ',z:3:2); writeln(' w= ',w:3:2); writeln('***End program***'); readln; end. |
Исходный данные a,b,x,z,w
Результаты расчёта Блок схема
|
Исходныё
код программы program Project1;
{$APPTYPE CONSOLE}
uses SysUtils; var a,b,c,p,s:real; begin Write('vvedite
a,b,c= '); readln(a,b,c); p:=(a+b+c)/2; s:=p*(p-a)*(p-b)*(p-c); writeln('s=',s:2:3); writeln('***End
program***'); readln; end. Исходный
данные
a,b,c
Результа
расчёта Блок
схема
Задание 7 Исходныё
код программы
Исходный
данные
Результа
расчёта
Блок
схема