Создайте программу, которая запрашивает длины двух отрезков и выводит на экран эти отрезки - Pascal ABC

Формулировка задачи:

Создайте программу, которая запрашивает длины двух отрезков и выводит на экран эти отрезки ( в масштабе 1 ед.=5 пикселей) и их "общую меру" (отрезок максимальной длины, который целое число раз укладывается в заданных отрезках); Пример:

Код к задаче: «Создайте программу, которая запрашивает длины двух отрезков и выводит на экран эти отрезки - Pascal ABC»

textual
uses graphABC,crt;
var a,b,c,x,y:integer;
begin
repeat
writeln('Введите длины двух отрезков от 1 до ',windowwidth div 5);
readln(a,b);
until(a>0)and(a<=windowwidth div 5)and(b>0)and(b<=windowwidth div 5);
x:=a;
y:=b;
while x<>y do
if x>y then x:=x-y
else if y>x then y:=y-x;
c:=x;
hidecursor;
clearwindow;
textout(0,10,'Длины отрезков: '+inttostr(a)+' '+inttostr(b));
textout(0,30,'Общая мера= '+inttostr(c));
line(30,60,30+a*5,60);
line(30,80,30+b*5,80);
setpencolor(clRed);
line(30,100,30+c*5,100);
end.

7   голосов, оценка 3.429 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы