Проверьте программу на ошибки кода.Пожалуйста

05.06.2013, 18:34. Показов 414. Ответов 0

Метки нет (Все метки)

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

Код:

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
type
PI= ^TI;
TI = record
Data: string;
Next: PI;
end;
 
procedure Init(var A: PI);
begin
A := nil;
end;
 
procedure Done(var A: PI);
var
P: PI;
begin
while (A <> nil) do
begin
P := A^.Next;
A := P;
end;
end;
 
procedure Push(AData: string; var A: PI);
var
P: PI;
begin
P := nil;
New(P);
if (P = nil) then Exit;
P^.Data := AData;
P^.Next := A;
A := P;
end;
 
function Pop(var AData: string; var A: PI): boolean;
var
P: PI;
begin
if (A= nil) then
begin
Pop := False;
Exit;
end;
P := A^.Next;
AData := A^.Data;
A:= P;
Pop := True;
end;
var
Fil,Out: text;
s: PI;
Str: string;
begin
Reset(Fil);
Init(s);
while Fil do
begin
readln(Fil, Str);
Push(Str, s);
end;
Close(Fil);
Writeln('Text information');
Writeln;
while Pop(Str, s) do
Writeln(Str);
read(Str);
Done(s);
end.

Задание:
Восстановить стек, содержащий строки, из текстового файла.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

05.06.2013, 18:34

Ответы с готовыми решениями:

Проверьте пожалуйста программу по файлам
program vuz; var f1: text; a: array of string; b,sb: array of integer; c: array of real; i, j, n,k: integer; ...

Проверьте пожалуйста программу
Помогите найти ошибку В одномерном массиве, состоящем из n вещественных элементов, вычислить 1) сумму положительных элементов массива ...

Проверьте, пожалуйста, правильно ли я преобразовала программу
из while program n61; var x,y:real; begin writeln('x':10,'f(x)':10); x:=0; while x<=pi do begin y:=(sqr(x))*(cos(x+(pi/3))); ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

05.06.2013, 18:34

Помогаю со студенческими работами здесь

Пожалуйста, проверьте программу. Что то не так с форматным выводом
program nakoplenie; var s,x,y,p,z: real; k1, k2, k3,k4,k: integer; function summa(k: integer): real; begin ...

Пожалуйста, проверьте, есть ли ошибки в приведённом куске кода.
... unsigned short many = 10, people = 5; unsigned long int peep = 5, zood = 3; const unsigned long int peep = 10; ...

Проверьте ошибки пожалуйста в коде
Всем Доброго времени суток. Написал программу крестики нолики. Она ,что та не работает поможете? #include<Windows.h> ...

Обработка матриц. Цикл. Проверьте ошибки пожалуйста
проверьте на ошибки, пожалуйста. Задача такая: Считывается n размер матрицы. Каждый элемент матрицы равен (i*10+j). Выводятся элементы в...

Проверьте пожалуйста базу данных склада на ошибки в проектировании
Таблицы User и rule будут использованы для создания разграничения прав доступа. MySQLWorkBench модель прилагается:

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника 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	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

Наверх