Размер шрифта
A- A+
Межбуквенное растояние
Цвет сайта
A A A A
Изоображения
Дополнительно

Паскаль Графич возможности

     Составить программу, которая рисует квадрат, причем длина стороны вводится с клавиатуры; также найти и вывести площадь квадрата.

Program P1;

Uses GraphABC, Crt;

Var r: integer;

Begin

SetWindowSize (600,750);

Write ('Введите длину стороны квадрата (от 1 до 10)') ;

Readln(r);

SetPenWidth(5);

Rectangle (50,50,50+r*50, 50+r*50);

FloodFill (25+r*50, 25+r*50, clred);

Write ('Площадь квадрата =', r*r)

end.

Разделы сайта