Вывести текст из файла в таблицу - 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.

Объяснение кода листинга программы

  1. В программе используется библиотека Graph, которая предназначена для создания графиков.
  2. В процедуре GraphInit инициализируется графический режим и графический драйвер.
  3. В процедуре Inter создается графическое окно и настраивается стиль линий.
  4. Затем происходит чтение данных из файла atomas.txt в массив libr.
  5. После этого данные выводятся на экран в виде текста.
  6. В конце программы сбрасывается буфер обмена и закрывается файл atomas.txt.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 4 из 5
Похожие ответы