Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
_VALERON_
1 / 1 / 0
Регистрация: 20.03.2014
Сообщений: 166
1

Выполнить структурированную запись/чтение информации о прямоугольниках в (из) файл

11.05.2015, 16:48. Просмотров 228. Ответов 0
Метки нет (Все метки)

Выполнить структурированную запись/чтение информации о прямоугольниках в (из) файл. Прямоугольники необходимо вывести на экран в графическом режиме
Как сделать данную программу меньше и правильнее?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
uses crt, graph;
var
   F: File of integer;
   Xa, Ya, Xc, Yc, r: integer;
   i, n, size: integer;
   mas: array[1..500] of integer;
   FSize, Tmp: LongInt;
   S: string;
   GrDriver, GrMode:integer;
BEGIN
clrscr;
write('Введите имя файла ');
readln(S);
assign(F, S);
writeln('Выберите режим работы с файлом: 1-Запись; 2-Чтение; 3-Очистить файл');
readln(r);
if r=3 then begin
rewrite(F);
close(F);
end;
if r=1 then begin
write('Введите количество прямоугольников - ');
readln(n);
reset(F);
for i:=1 to n do begin
writeln('Введите координаты',i,'-го прямоугольника, которые будут записаны в файл');
   write('Xa = ');
   readln(Xa);
   write(F, Xa);
   write('Ya = ');
   readln(Ya);
   write(F, Ya);
   write('Xc = ');
   readln(Xc);
   write(F, Xc);
   write('Yc = ');
   readln(Yc);
   write(F, Yc);
end;
Close(F);
writeln('Координаты прямоугольников записаны в файл.');
writeln('Продолжить работу с программой и нарисовать прямоугольники?');
writeln('1-Нет  2-Да');
readln(r);
End;
if r=2 then begin
clrscr;
writeln('Координаты прямоугольников загружены из файла.');
Reset(F);
i:=0;
while (not Eof(F)) do begin
    read(F, mas[i]);
    i:=i+1;
end;
i:=0;
writeln;
writeln('Координаты прямоугольников');
while i < filesize(F)-1 do begin
   writeln(mas[i], ' ', mas[i+1], ' ', mas[i+2], ' ', mas[i+3]);
   i:=i+4;
end;
close(F);
writeln;
   writeln('Нарисовать прямоугольники?');
   writeln('1-Да   2-Нет');
   read(r);
         if r=1 then begin
            GrDriver:=Detect;
            InitGraph(GrDriver, GrMode, '');
            i:=0;
            reset(F);
            while i < filesize(F)-1 do begin
               Rectangle(mas[i], mas[i+1], mas[i+2], mas[i+3]);
               i:=i+4;
            end;
            close(F);
            readln;
         End;
End;
writeln('Для выхода из программы нажмите любую клавишу');
readln;
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.05.2015, 16:48
Ответы с готовыми решениями:

Выполнить структурированную запись/чтение информации о многоугольниках в (из) файла
Доброго дня, уважаемые программисты! Помогите, пожалуйста, решить задачи. 1. Выполнить...

Добавить строки, которые позволяют выполнить чтение исходных данных из файла и запись результатов в файл
добавить в листинг програми Program; var x : array of integer; y : array of integer; ...

Чтение и запись в файл информации об автомобилях
Здравствуйте всем. Не поможете с задачкой пожалуйста. Несколько часов уже с ней вожусь ничего не...

Ввод с клавиатуры и запись в файл, чтение из файла и запись в массив, вывод из массива на экран
1.Ввод с клавиатуры и запись в файл, чтение из файла и запись в массив, вывод из массива на экран...

Чтение,удаление и вставка информации в текстовый файл.
Удалить из текстового файла последнюю строку.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.05.2015, 16:48

Чтение, удаление и вставка информации в текстовый файл
Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл.

Чтение и запись в файл
Здравствуйте, помогите пожалуйста. Есть задание: 1. прочитать с диска файл gol.dat и найти сумму...

Чтение и запись в текстовый файл.
помогите создать програмку В файле «input.txt» дана строка символов. Выяснить верно ли, что среди...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru