Текстовые файлы: построить отрезки по координатам из файла - Pascal ABC

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

Дан файл натуральных чисел. Количество чисел в файле кратно четырем, каждые два последовательных числа определяют координаты некоторой точки на плоскости. Считая, что заданы координаты концов отрезков, построить их. заранее спасибо

Решение задачи: «Текстовые файлы: построить отрезки по координатам из файла»

textual
                            Листинг программы 
                        

                            uses graphABC;
var f:text;
    x1,y1,x2,y2:integer;
begin
assign(f,'tochki.txt');
reset(f);
while not eof(f) do
 begin
  read(f,x1,y1,x2,y2);
  setpencolor(clrandom);
  line(x1,y1,x2,y2);
 end;
close(f)
end.
                        

Оцени полезность:

8 голосов , оценка 4.125 из 5

Похожие ответы