Справочный материал по Turbo Pascal
материал по информатике и икт (8 класс)

Задача №1

Задача №1. Даны стороны треугольника. Найдите периметр треугольника.

program perimetr3;

var a,b,c,p: integer;

begin

     writeln('Введите стороны треугольника  a, b, c');

     readln(a,b,c);

     p:=a+b+c;

     writeln('Периметр треугольника p=',p);

     readln;     {чтобы программа не исчезла с экрана}

end.

CLS

INPUT "A, B, C="; A, B, C

P = A + B + C

PRINT "P="; P

END

Задача №2. Даны катеты прямоугольного треугольника. Найдите гипотенузу и периметр.  

program GipotenPerimp3;

var a, b: integer;

    c, p: real;

begin

     writeln('Введите катеты треугольника a и b');

     readln(a, b);

     c:=sqrt(a*a + b*b);

     p:=a+b+c;

     writeln('Гипотенуза треугольника c=',c:3:1);

     writeln('Периметр треугольника p=',p:3:1);

     readln;

end.

CLS

INPUT "A,B="; A, B

C = SQR(A ^ 2 + B ^ 2)

P = A + B + C

PRINT "C="; C

PRINT "P="; P

END

Форматный вывод

writeln(<переменная> : m : n);

Для переменных вещественного типа формат вывода указывается двумя числами – m (для обозначения числа позиций под все число), и n (для обозначения числа знаков в дробной части), для целого – одним числом m.

Задача №3. Даны гипотенуза и катет прямоугольного треугольника. Найдите периметр и площадь.

program perimploshad3;

var a, c: integer;

    b, p, s: real;

begin

     writeln('Введите гипот. и катет треуг-ка c и a');

     readln(c, a);

     b:=sqrt(c*c-a*a);

     p:=a+b+c;

     s:=a*b/2;

     writeln('Катет треугольника b=',b:3:1);

     writeln('Периметр треугольника p=',p:3:1);

     writeln('Площадь треугольника s=',s:3:1);

     readln;

end.

CLS

INPUT "C,A="; C, A

B = SQR(C ^ 2 - A ^ 2)

P = A + B + C

S = A * B / 2

PRINT "В="; В

PRINT "P="; P

PRINT "S="; S

END

Задача №4. Определить объём и площадь боковой поверхности цилиндра с заданными радиусом основания R и высотой H.

Program Cylinder;

   Var

    R, {радиус основания цилиндра}

    H, {высота цилиндра }

    V, {объем цилиндра }

    S: Real; {площадь боковой поверхности цилиндра}

BEGIN

  Write('Введите высоту (H) цилиндра : ');  ReadLn(H);

  Write('Введите радиус (R) основания : '); ReadLn(R);

  V := Pi * R * R * H;

  S := 2 * Pi * R * H; 

  WriteLn;

  WriteLn('Объем цилиндра V= ', V : 5 : 2); 

  WriteLn('Площадь боковой поверхности S= ', S : 5 : 2);

  ReadLn

END.

WriteLn('Объем V= ', V : 5 : 2);

{Здесь 5 - общее    количество позиций, занимаемых переменной V при выводе, а 2 - количество позиций в дробной части значения V}

Ц*Ц=Ц

Ц/Ц=В

Ц+Ц=Ц

Ц-Ц=Ц

Ц*В=В

Ц/В=В

Ц+В=В

Ц-В=В

В*В=В

В/В=В

В+В=В

В-В=В

sin(x) ⇐ В

cos(x) ⇐ В

arctan(x) ⇐ В

abs(Х) ⇐ как у Х

sqrt(x) ⇐ В

pi ⇐  В

 ln(x) ⇐ В

sqr(Х) ⇐ как у Х