Решение задач на языке программирования Pascal

1.Нарисовать треугольник с вершинами в точках:
(250,50), (200,100), (300,100), цвет линни зелёный,цвет заливки красный.

Запись программы: 

Program фигура;                 название программы
Begin                           начало 
Color(0,255,0);                 цвет линии зелёный    
Line( 250,50,200 ,100 );        рисование линии
Line( 250,50,300 ,100 );
Line( 200,100,300,100 );
BrushColor(255,0,0);            цвет заливки красный
Fill(250 ,60 );                 координата точки (заливки)       
end.                            конец

2. Вычислить площадь прямоугольника, задавая ширину и высоту с клавиатуры.

Запись программы:
  
program площадь; 
var a,b,s:real;                задание переменных типа real(дробные) 
begin
write('Введите высоту:');      вывод на экран сообщения
read(a);                       вводится с клавиатуры высота а
write('Введите ширину:');      вывод на экран сообщения
read(b);                       вводится с клавиатуры ширина b
s:=a*b;                        вычисляется площадь s по формуле
write('Площадь=',s:0:2);       вывод сообщения Площадь= и результата на экран (два знака после запятой)
end. 

3. Вычислить значение по формуле b=2*a , если a=10.

Запись программы:

program формула;
var a,b:integer;               задание переменных типа integer (целые)
begin
a:=10;                         присвоение переменной а значения
b:=2*a;                        вычисляется значение переменной b
write('b=2*a= ',b);            вывод сообщения b=2*a= и результата на экран
end.




http://xoroh.ru/