Не работает вывод в файл

@андрей богатыре · Регистрация: 01.08.2018

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

не работает вывод в файл как это исправить

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
uses graphABC,System;
type
  boolans = array [1..60] of array[1..10] of boolean;
  
procedure sound;
begin 
var Player := new System.Media.SoundPlayer; {Присваиваем переменной "Player" новый экземпляр MediaPlayer'а}
    player.SoundLocation:='ответ пр.wav'; {Задаём путь до файла*}
    Player.Play(); {Воспроизводим файл}
 
    end;
function qestion(Max,nq,np:integer; y:boolans): boolans;
var 
  a,b,ans:integer;
begin 
clearwindow;
  result:=y;
  a:=PABCSystem.Random(max+1);
  b:=PABCSystem.Random(10+1);
  textout(0,0,a+'*'+b+'=');
  readln(ans);
  clearwindow;
  if a*b=ans then
  begin
    result[np][nq]:=true; textout(0,0,'это правильный ответ');
  sound;
end;
 
end;
 
var 
  ans:boolans;
  i, i2,max,trueans:integer;
  name:array [1..61]of string;
  y:array [1..60] of integer;
  t:system.text;
  
begin
  setfontsize(24);
  setwindowtitle('тест таблицы умножения v2.0');
  setwindowsize(1000,480);
  i:=0;
  repeat
  i:=i+1;
  textout(0,0,'как вас зовут');
  readln(name[i]);
  clearwindow;
  textout(0,0,'до скольки вы хотите проветить таблицу умножения');
  readln(max);
  clearwindow;
  trueans:=0;
for i2:= 1 to 10 do ans:=qestion(max,i2,i,ans);
for i2:= 1 to 10 do begin if ans[i][i2]=true then trueans:=trueans+10;end;
y[i]:=trueans;
textout(0,0,name[i] + ', у вас '+y[i]+'% правильных ответов');
textout(0,0,'хотите продолжить работу с программой');
readln(name[61]);
until name[61]='да';
assign (t,'статистика.txt');
 rewrite(t);
 for i2:= 1 to i do begin
writeln(t,name[i2],'-',y[i2],'% правильных ответов');
end;                                                                                                         //сохранение результатов в файл output
close(t);
end.

@kotAV · 11.08.2018, 21:40

андрей богатыре, вместо

Pascal
36
  t:system.text;

Напишите

Pascal
36
  t: textfile;

@андрей богатыре · 11.08.2018, 21:44 **[ТС]**

1 iцикл уже закончился я хотел написать тест по таблице умножения, где можно проверить до 60 человек за раз и их данные вывелись бы во внешний файл статистика

@Puporev · 11.08.2018, 21:45

В Паскале можно просто

Pascal
1
t:text;

@kotAV · 11.08.2018, 21:47

Puporev, это если System не используется. Если просто text, то

Pascal
36
  t: text;//Program3.pas(36) : Ожидался тип

@Puporev · 11.08.2018, 21:47

Сообщение от андрей богатыре

где можно проверить до 60 человек за раз и их данные вывелись бы во внешний файл статистика

Ну тогда

Pascal
1
for i2:=1 to 60 do

@kotAV · 11.08.2018, 22:02

Puporev, ибо text из PABCSystem, а в System есть свой text.

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
  Text = class
  private 
    fi: FileInfo;
    sr: StreamReader;
    sw: StreamWriter;
  public 
    /// Возвращает значение типа integer, введенное из текстового файла
    function ReadInteger: integer;
    /// Возвращает значение типа real, введенное из текстового файла
    function ReadReal: real;
    /// Возвращает значение типа char, введенное из текстового файла
    function ReadChar: char;
    /// Возвращает значение типа string, введенное из текстового файла, без перехода на следующую строку
    function ReadString: string;
    /// Возвращает значение типа boolean, введенное из текстового файла
    function ReadBoolean: boolean;
    /// Возвращает значение типа integer, введенное из текстового файла, и переходит на следующую строку
    function ReadlnInteger: integer;
    /// Возвращает значение типа real, введенное из текстового файла, и переходит на следующую строку
    function ReadlnReal: real;
    /// Возвращает значение типа char, введенное из текстового файла, и переходит на следующую строку
    function ReadlnChar: char;
    /// Возвращает значение типа string, введенное из текстового файла, и переходит на следующую строку
    function ReadlnString: string;
    /// Возвращает значение типа boolean, введенное из текстового файла, и переходит на следующую строку
    function ReadlnBoolean: boolean;
    /// Переходит в файле на следующую строку
    procedure Readln;
    /// Записывает в текстовый файл значения
    procedure Write(params o: array of Object);
    /// Записывает в текстовый файл значения и переходит на следующую строку
    procedure Writeln(params o: array of Object);
    /// Возвращает True, если достигнут конец файла, и False в противном случае
    function Eof: boolean;
    /// Возвращает True, если достигнут конец строки, и False в противном случае
    function Eoln: boolean;
    /// Закрывает файл
    procedure Close;
    /// Пропускает пробельные символы, после чего возвращает True, если достигнут конец файла
    function SeekEof: boolean;
    /// Пропускает пробельные символы, после чего возвращает True, если достигнут конец строки в файле
    function SeekEoln: boolean;
    /// Записывает содержимое буфера файла на диск
    procedure Flush;
    /// Удаляет файл
    procedure Erase;
    /// Переименовывает файл, давая ему имя newname
    procedure Rename(newname: string);
    /// Возвращает имя файла
    function Name: string;
    /// Возвращает полное имя файла
    function FullName: string;
    /// Возвращает в виде строки содержимое файла от текущего положения до конца
    function ReadToEnd: string;
    /// Устанавливает файловый указатель на начало файла
    procedure Reset;
  end;
  
  /// Тип текстового файла
  TextFile = Text;

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@андрей богатыре 1 / 1 / 0 Регистрация: 01.08.2018 Сообщений: 121
	11.08.2018, 21:44 [ТС]
	1 iцикл уже закончился я хотел написать тест по таблице умножения, где можно проверить до 60 человек за раз и их данные вывелись бы во внешний файл статистика 0