Чтение графической информации из файла

@AntoshkaKl · Регистрация: 21.01.2012

Студворк — интернет-сервис помощи студентам

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

Пример текстового файла

r 40 40 160 160 ////где r - это rectangle, цифры означают x1 y1 x2 y2

Это мои "зарисовки". Можете помочь найти недостатки и ошибки? Заранее огромное спасибо!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Type fig=record
 kod:char;
 x1,y1,x2,y2:Integer;
end;
Var
 myfig:fig;
 ff:text;
Begin
  Assign(ff,'info.txt');
    Reset(ff);
    With Myfig Do
     Readln(ff,kod,x1,y1,x2,y2,x3,y3);
     Case ??? of
      'r': rectangle(x1,y1,x2,y2);
      end;
//////

@Puporev · 21.04.2012, 21:10

Для примера запишем в файл прямоугольник и окружность, между значениями 1 пробел, в концах строк никакого мусора
r 40 40 160 160
c 250 150 25
Программа

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
uses graphABC,crt;
Var ff:text;
    s:string;
    c:char;
    x1,y1,x2,y2,r,k:integer;
Begin
hidecursor;
Assign(ff,'info.txt');
Reset(ff);
while not eof(ff) do
 begin
  Readln(ff,s);
  c:=s[1];
  delete(s,1,2);
  case c of
  'r': begin
       val(copy(s,1,pos(' ',s)-1),x1,k);
       delete(s,1,pos(' ',s));
       val(copy(s,1,pos(' ',s)-1),y1,k);
       delete(s,1,pos(' ',s));
       val(copy(s,1,pos(' ',s)-1),x2,k);
       delete(s,1,pos(' ',s));
       val(s,y2,k);
       rectangle(x1,y1,x2,y2);
       readkey;
       clearwindow;
       end;
   'c':begin
       val(copy(s,1,pos(' ',s)-1),x1,k);
       delete(s,1,pos(' ',s));
       val(copy(s,1,pos(' ',s)-1),y1,k);
       delete(s,1,pos(' ',s));
       val(s,r,k);
       circle(x1,y1,r);
       readln;
       clearwindow;
       end;
  end;
end;
close(ff);
end.

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .