Что нужно добавить в код чтобы текст был и в самом файле и отображался в окне вывода

@Anette666k · Регистрация: 10.06.2015

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

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
const 
n=9;
FileName='tabl.txt';
procedure CreateTable(var f:text);
Var x, y: Byte;
  a: array[2..n, 2..n] of integer;
Begin
Assign(F,'c:\tabl.txt');
Rewrite(F);
  writeln(F, 'Таблица умножения от 2 до 9');
  write(F, '  *|');
  for x := 2 to n do write(f, x:4);writeln(F);
  for x := 2 to n + 1 do write(f, '-----');writeln(F);
  for x := 2 to n do
  begin
    write(F, x:3, '|');
    for y := 1 to n do
      write(F, x * y:4);
 writeln(f);
 end;
Close(f);
end;
procedure FileOut(var f:text);
var S: string;
begin
  Assign(F,'tabl.txt');
  Reset(F);
  while not EoF(F) do
  begin
    ReadLn(F,S);
    WriteLn(S);
  end;
  Close(F);
end;
var f:text;
begin
  if not FileExists('tabl.txt') then CreateTable(f)
  else  FileOut(f);
end.

@Puporev · 01.04.2016, 16:22

Какой текст?

Добавлено через 19 минут
Если таблица умножения, то если файл еще не создан, пишет в файл, а если создан, то на экран.

@Anette666k · 01.04.2016, 18:37 **[ТС]**

нужно чтобы вот такая таблица была в окне вывода и в файле одновремено

Code
Таблица умножения от 2 до 9
  *|   1   2   3   4   5   6   7   8   9
---------------------------------------------
  2|   2   4   6   8  10  12  14  16  18
  3|   3   6   9  12  15  18  21  24  27
  4|   4   8  12  16  20  24  28  32  36
  5|   5  10  15  20  25  30  35  40  45
  6|   6  12  18  24  30  36  42  48  54
  7|   7  14  21  28  35  42  49  56  63
  8|   8  16  24  32  40  48  56  64  72
  9|   9  18  27  36  45  54  63  72  81

@Puporev · 01.04.2016, 18:48

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
uses crt;
const n=9;
      FileName='tabl.txt';
var f:text;
    x,y:byte;
begin
assign(f,FileName);
rewrite(f);
writeln(F, 'Таблица умножения от 2 до 9');
writeln('Таблица умножения от 2 до 9');
write(F, '  *|');
write('  *|');
for x := 2 to n do
 begin
  write(f, x:4);
  write(x:4);
 end;
writeln(F);
writeln('');
for x := 2 to n  do
 begin
  write('-----');
  write(f, '-----');
 end;
writeln(F);
writeln('');
for x := 2 to n do
 begin
  write(F, x:3, '|');
  write(x:3, '|');
  for y := 2 to n do
   begin
    write(F, x * y:4);
    write(x * y:4);
   end;
  writeln(f);
  writeln('');
 end;
Close(f);
end.

@Anette666k · 01.04.2016, 19:34 **[ТС]**

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

@bormant · 01.04.2016, 20:32

До сих пор не вижу в теме точного текста задания, увы.

@Puporev · 01.04.2016, 20:50

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
const n=9;
      FileName='tabl.txt';
procedure CreateTable(var f:text);
Var x, y: Byte;
Begin
assign(f,FileName);
rewrite(f);
writeln(F, 'Таблица умножения от 2 до 9');
writeln('Таблица умножения от 2 до 9');
write(F, '  *|');
write('  *|');
for x := 2 to n do
 begin
  write(f, x:4);
  write(x:4);
 end;
writeln(F);
writeln('');
for x := 2 to n  do
 begin
  write('-----');
  write(f, '-----');
 end;
writeln(f);
writeln('');
for x := 2 to n do
 begin
  write(f, x:3, '|');
  write(x:3, '|');
  for y := 2 to n do
   begin
    write(f, x * y:4);
    write(x * y:4);
   end;
  writeln(f);
  writeln('');
 end;
Close(f);
end;
procedure FileOut(var f:text);
var S: string;
begin
assign(f,FileName);
reset(f);
while not eof(f) do
 begin
  readLn(f,s);
  writeLn(s);
 end;
close(f);
end;
var f:text;
begin
  if not FileExists('tabl.txt') then CreateTable(f)
  else  FileOut(f);
end.

@bormant · 01.04.2016, 21:29

Я б не стал дублировать вывод:

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
const n=9; FileName='tabl.txt';
procedure WriteTbl(var f: Text);
var i, j: Integer;
begin
  WriteLn(f, 'Таблица умножения от 2 до 9');
  Write(f, '  \|');
  for j := 2 to n do Write(f, j:4); WriteLn(f);
  for j := 2 to n do Write(f, '-----'); WriteLn(f);
  for i := 2 to n do begin
    Write(f, i:3, '|');
    for j := 2 to n do Write(f, i * j:4); WriteLn(f);
  end;
end;
procedure ShowFile(var f: Text);
var s: String;
begin
  while not EOF(f) do begin
    ReadLn(f,s); WriteLn(s);
  end;
end;
var f: Text;
begin
  Assign(f, FileName); {$I-}Reset(f);{$I+}
  if IOResult<>0 then begin
    Rewrite(f); WriteTbl(f); WriteTbl(output);
  end else ShowFile(f);
  Close(f);
end.

Но все равно логичнее выглядит:

Pascal
1
2
3
4
5
6
7
...
  if IOResult<>0 then begin
    Rewrite(f); WriteTbl(f); Reset(f);
  end;
  ShowFile(f);
  Close(f);
end.

Добавлено через 5 минут
или

Pascal
1
2
3
4
5
6
7
...
  if IOResult<>0 then begin
    Rewrite(f); WriteTbl(f);
  end;
  Close(f);
  WriteTbl(output);
end.

@Cyborg Drone · 03.04.2016, 09:21

Не по теме:

Anette666k, фотографии текста запрещены. Фотография заменена текстом.

Подправил таблицу умножения. В шапке таблицы не было числа "1", и получалось, к примеру, что 2×2=2.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

Что нужно добавить в код чтобы текст был и в самом файле и отображался в окне вывода

Решение

Решение

Решение

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	01.04.2016, 16:22
	Какой текст? Добавлено через 19 минут Если таблица умножения, то если файл еще не создан, пишет в файл, а если создан, то на экран. 0

@Anette666k 0 / 0 / 0 Регистрация: 10.06.2015 Сообщений: 136
	01.04.2016, 19:34 [ТС]
	нужно добавить проверку, есть ли файл. здесь вроде просто создается файл и в него записывается таблица умножения, а потом считывается из этого файла. А надо, чтобы если файл есть, то он считывается, и таблица умножения из него выводится на экран. А если его нет, то тогда в него записывается таблица умножения. 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,158 Записей в блоге: 1
	01.04.2016, 20:32
	До сих пор не вижу в теме точного текста задания, увы. 0

@Cyborg Drone Модератор 10427 / 5713 / 3404 Регистрация: 17.08.2012 Сообщений: 17,373
	03.04.2016, 09:21
	Не по теме: Anette666k, фотографии текста запрещены. Фотография заменена текстом. Подправил таблицу умножения. В шапке таблицы не было числа "1", и получалось, к примеру, что 2×2=2. 0