Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Satoshi_Kun
0 / 0 / 0
Регистрация: 16.05.2016
Сообщений: 5
1

Вывести текст из файла в таблицу

16.05.2016, 14:04. Просмотров 765. Ответов 4

нужно вывести текст из файла в эту таблицу(это не окончательный вариант таблицы, просто экспериментирую), проблема в том что при компиляции ошибок не выдаёт, но в программе не выводит никакого текста, помогите пожалуйста ATOMAS.TXT
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
Program TablicaMendeleeva;
  uses Graph,crt,scpgraph;
  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:=Detect;
      InitGraph(grDriver,grMode, 'X:\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,'D:\atomas.txt');
reset(ff);
while not eof(ff) do
begin
for i:=1 to 10 do
readln(ff,Libr[i].Atomas1,libr[i].Atomas2);
setcolor(0);
outtextxy(30,30,libr[i].atomas1);
outtextxy(40,40,libr[i].atomas2);
end;
close(ff);
end;
 
 
   Begin
Graphinit;
inter;
text;
 
 
 
 
 
 
readln;
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2016, 14:04
Ответы с готовыми решениями:

Текст из файла вывести в таблицу
Ребят, задание заключается в том что бы текст из файла вывести в таблицу. Текст...

Вывести текст файла на монитор
Подскажите, что бы просто вывести содержание созданного в блокноте текстового...

Считать текст из файла и вывести его на экран
Задача на тему строки и файлы: Написать программу, которая считывает текст из...

Считать текст с файла, вывести только предложения, содержащие заданное слово
Написать программу, которая считывает текст из файла и выводит на экран только...

Считать текст из файла и вывести на экран все его предложения в обратном порядке
Написать программу, которая считывает текст из файла и выводит на экран все...

4
Satoshi_Kun
0 / 0 / 0
Регистрация: 16.05.2016
Сообщений: 5
16.05.2016, 15:45  [ТС] 2
Проблема ещё актуальна, очень надеюсь на вашу помощь
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4004 / 2939 / 3685
Регистрация: 05.06.2014
Сообщений: 14,519
16.05.2016, 17:01 3
Модуль scpgraph где нам взять?
0
Satoshi_Kun
0 / 0 / 0
Регистрация: 16.05.2016
Сообщений: 5
16.05.2016, 17:07  [ТС] 4
Извините, можете его удалить оттуда, я забыл просто (
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4004 / 2939 / 3685
Регистрация: 05.06.2014
Сообщений: 14,519
16.05.2016, 18:03 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
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
16.05.2016, 18:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2016, 18:03

Считать текст из файла и вывести на экран только строки, содержащие двузначные числа
Написать программу, которая считывает текст из файла и выводит на экран только...

Считать текст из файла и вывести на экран только предложения, содержащие заданное слово
Добрый день. форумчане! помогите, пожалуйста, со следующей задачей: Написать...

Считать текст из файла и вывести на экран, меняя местами каждые два соседних слова
Написать программу, которая считывает текст из файла и выводит его на экран,...


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

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

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