Лабы по программированию (КИ МГОУ) / Лабы по программированию 1 курс / Лаба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;

Результаты расчёта

Блок схема

Исходныё код программы

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=

Результат расчёта

Блок схема

Исходныё код программы

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

Результат расчёта

Блок схема

Исходныё код программы

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

Результа расчёта

Блок схема

Исходныё код программы

Исходный данные

Результа расчёта

Блок схема