Вывести текст из файла в таблицу - Turbo Pascal
Формулировка задачи:
нужно вывести текст из файла в эту таблицу(это не окончательный вариант таблицы, просто экспериментирую), проблема в том что при компиляции ошибок не выдаёт, но в программе не выводит никакого текста, помогите пожалуйста ATOMAS.TXT
Решение задачи: «Вывести текст из файла в таблицу»
textual
Листинг программы
program TablicaMendeleeva; uses Graph,crt; type book = record Atomas1: string[20]; Atomas2: string[20]; end; mas = array[1..10] of book; var libr: mas; ff: text; i: integer; procedure GraphInit; var grMode, grDriver, ErrCode, a: integer; ch: char; begin grDriver := VGA; grMode:=VGAHi; InitGraph(grDriver, grMode, 'c:\BP'); ErrCode := GraphResult; if Errcode <> grOk then begin writeln('Error:', 'GraphErrormsg(Errcode)'); readln; halt; end; end; procedure Inter; begin setbkcolor(15); SetLineStyle(0, 0, 3); SetColor(7); {1 столбик} Rectangle(1, 1, 71, 34); Rectangle(1, 1, 71, 68); Rectangle(1, 1, 71, 102); Rectangle(1, 1, 71, 136); REctangle(1, 1, 71, 170); Rectangle(1, 1, 71, 204); Rectangle(1, 1, 71, 238); Rectangle(1, 1, 71, 272); Rectangle(1, 1, 71, 306); REctangle(1, 1, 71, 340); Rectangle(1, 1, 71, 374); REctangle(1, 1, 71, 410); REctangle(1, 1, 71, 444); REctangle(1, 1, 71, 478); Rectangle(71, 34, 639, 479); {Ли*ии по горизо*т*ли} Line(71, 34, 568, 34); Line(71, 68, 639, 68); Line(71, 102, 639, 102); Line(71, 136, 639, 136); Line(71, 170, 639, 170); Line(71, 204, 639, 204); Line(71, 238, 639, 238); Line(71, 272, 639, 272); Line(71, 306, 639, 306); Line(71, 340, 639, 340); Line(71, 374, 639, 374); Line(71, 410, 639, 410); Line(71, 444, 639, 444); Line(71, 478, 639, 478); {Ли*ии по вертик*ли} Line(142, 34, 142, 479); Line(213, 34, 213, 479); Line(284, 34, 284, 479); Line(355, 34, 355, 479); Line(426, 34, 426, 479); Line(497, 34, 497, 479); Line(568, 34, 568, 479); {Послед*ий столбик} Rectangle(639, 1, 568, 34); OuttextXY(75, 20, 'Периодическ*я систем* хим. элеме*тов Д.И. Ме*делеев*'); Settextstyle(3, 0, 4); setcolor(3); OuttextXY(2, 1, 'H'); OuttextXY(570, 1, 'He'); OuttextXY(2, 35, 'Li'); end; procedure Text; begin assign(ff, 'atomas.txt'); reset(ff); i:=1; setcolor(15); Settextstyle(0, 0, 3); while not eof(ff) do begin readln(ff, Libr[i].Atomas1, libr[i].Atomas2); outtextxy(30, 30, libr[i].atomas1); outtextxy(40, 50, libr[i].atomas2); inc(i); end; close(ff); end; begin Graphinit; inter; text; readln; end.
Объяснение кода листинга программы
- В программе используется библиотека Graph, которая предназначена для создания графиков.
- В процедуре GraphInit инициализируется графический режим и графический драйвер.
- В процедуре Inter создается графическое окно и настраивается стиль линий.
- Затем происходит чтение данных из файла
atomas.txt
в массивlibr
. - После этого данные выводятся на экран в виде текста.
- В конце программы сбрасывается буфер обмена и закрывается файл
atomas.txt
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д