рисование в паскале о_О

[Sarumjan]

Условие:

Задан файл F, компоненты которого - натуральные числа. Количество чисел файла кратная 4. Первые два числа с каждое четверых задают координаты левого верхнего угла прямоугольника, следующие два - координаты правого нижнего угла. Построить прямоугольники, которые заданы в файле F.

Впервые такое вижу, обьясните как вобще рисовать эти прямоугольники.

[Sarumjan]

Помогите хто то с задачкой...очень нада до завтра

[Sm1Le]

Свои наработки есть ?? - Если да ? То выкладывайте ...дальше помогу ....
А нет тогда вам надо почитать : Работа с файлом, рисование в паскале.


http://distance.edu.vn.ua/books/Info...e/2_8/2_8.html
Работа с файлами :

ASSIGN(f1,'C:\UNTITLED.TXT'); 

REPEAT                                                                         (начало цикла)
   Readln(f1,w);                                                                 (считывается 1 строка )
 

\\\\\\ Обработка =))) 


UNTIL Eof(f1);   
                                                             (окончание цикла будет тогда, когда наступит конец файла f1)
CLOSE(f1);

[Sarumjan]

Вот то што ты написал, будет рисовать прямоугольник или просто считывать данные с файла?

[Sarumjan]

Помоги мне сообразить тот кусочек который нарисует те прямоугольники.

[Sm1Le]

Оо думайте головой а не ждите ответ ! ! !

Вам надо считать из файла данные ( это можно зделать с помощью того куска которого вы видите ) , а потом по введенным данным и функции Bar(X1, Y1, X2, Y2: Integer) Строит прямоугольник, закрашенный текущим цветом с использованием текущего стиля (орнамента, штриховки). X1, Y1, X2, Y2 — координаты левого верхнего и правого нижнего углов прямоугольника. тут уже Все разжовано до немогу ...гугл в помощь

[Sarumjan]

В этой задачке я не смог разобраться именно с тем кусочком в котором используют функцию бар

[Sarumjan]

Я сюда поэтому и зашел, штоб мне показали как правильно.

[Sarumjan]

Тут как я посмотрел еще нужно задействовать функцию val для перевода из string в real
как это сделать?