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

Для вывода данных предназначен оператор:

🞛 write('подсказка', <список вывода>);

🞛 write(' подсказка ');

🞛 write(b1, b2, …, bn);

выводятся на экран значения переменных b1, b2, …, bn. 

🞛 writeln(b1, b2, …, bn);

выводятся на экран значения переменных b1, b2, …, bn и после этого происходит переход на новую строку.  

🟇 Цвет символов устанавливает процедура TextColor.

🟇 Цвет фона устанавливает процедура TextBackGround.

TextColor(Color: byte)

TextBackGround(Color: byte)

byte  0÷255

Black = 0;            {Черный} 
Blue = 1;              {Синий} 
Green = 2;            {Зеленый} 
Cyan = 3;             {Голубой} 
Red = 4;               {Красный} 
Magenta = 5;       {Фиолетовый} 
Brown = 6;          {Коричневый} 
LightGray = 7;    {Светло-серый}

DarkGray = 8;               {Темно-серый} 
LightBlue = 9;               {Ярко-синий} 
LightGreen = 10;           {Ярко-зеленый} 
LightCyan = 11;            {Ярко-голубой} 
LightRed = 12;              {Розовый} 
LightMagenta = 13;       {Малиновый} 
Yellow = 14;                  {Желтый} 
White = 15;                    {Белый}

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

program treugtos;

uses Crt;

var a, c: integer;

    b, p, s: real;

begin

     ClrScr;

     TextColor(4);

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

     readln(c, a);

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

     p:=a+b+c;

     s:=a*b/2;

     TextColor(Yellow);

     writeln('Неизвестный катет треугольника b=',b:3:1);

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

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

     readln;

end.

TextColor(4+128);

(мерцание)

Задача №2. Стороны треугольника равны 14см. и 7см., угол между ними равен 480. Найдите площадь треугольника.                                      

program geom9_1020;

uses CRT;

        var a,b: integer;

            s: real;

begin

     ClrScr;

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

     write('Первая сторона a=');

     readln(a); s

     write('Вторая сторона b=');

     readln(b);

     s:= 0.5 * a * b * sin(48 * pi / 180);

     TextColor(10);

     writeln('Площадь треугольника S=', s:5:1, ' кв.см.');

     readln;

end.

S = 0,5*a*b*sinC

sin(x) ⇐ синус числа х, где х – угол в радианах.

a0=(a*π)/180 рад.

pi – число π (Пи)

π=3,14

sin(x) ⇐ В

(В – вещественный тип) ⇒ real