Исправьте программу

19.12.2014, 18:05. Показов 690. Ответов 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
Program list;
const n=5;
type pnode=^node;
node=record
strana:string [30];
stolica:string [30];
ploshad:real;
p:pnode;
end;
var beg:pnode;
i:integer;
str:string[30];
stol:string[30];
key:string[30];
pl:real;
punkt:integer;
procedure add(var beg:pnode;str:string[30];stol:string[30];pl:real);
var p:pnode;
t:pnode;
begin
new(p);
p^.strana:=str;
p^.stolica:=stol;
p^.ploshad:=pl;
p^.p:=nil;
if beg=nil
then beg:=p
else
begin
t:=beg;
while t^.p<>nil do
t:=t^.p;
t^.p:=p;
end;
end;
procedure get(var beg:pnode;var str:string[30];var stol:string[30];var pl:real);
var p:pnode;
begin
str:=beg^.strana;
stol:=beg^.stolica;
pl:=beg^.ploshad;
beg:=beg^.p;
dispose(p);
if beg=nil
then fin:=nil;
end;
begin
for i:=1 to n do
begin
writeln('Íàçâàíèå ñòðàíû ?');
readln(str);
writeln('Ñòîëèöà?');
readln(stol);
writeln('Ïëîùàäü?');
readln(pl);
if i=1
then first (beg,fin,str,stol,pl)
else add(fin,str,stol,pl);
end;
while beg<>nil do
begin
get(beg,str,stol,pl);
writeln(str);
writeln(stol);
writeln(pl:5:2);
writeln('----------');
end;
end.

Помогите программу исправить проблема в then fin:=nil; 45 строка

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

19.12.2014, 18:05

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

Исправьте программу (не правильный вывод)
Есть готовая программа: uses crt; const N = 20; type arr = array of integer; var a: arr; i, j: byte; max, i_max,e:...

Исправьте программу. Принадлежность данной точки фигуре.
дана фигура. нужно написать программу на паскале, чтобы после ввода точки по координатам "х" и "у" выводился ответ в...

Исправьте пожалуйста программу,выводит ошибку в 22 строке
uses crt; var s:integer; x, y, xmin, xmax, dx : Real; begin writeln(' x | y |'); ...

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

raxper

Эксперт

30234 / 6612 / 1498

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

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

Блог

19.12.2014, 18:05

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

Исправьте ошибку.
Уважаемые! Помогите пожалуйста исправить ошибку в программе. uses CRT; const size=8; type bday=Array of integer; ...

Исправьте сортировку
Есть код бинарного поиска: uses crt; const N = 20; type arr = array of integer; var a: arr; i: byte; p,q,e: integer; ...

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

Исправьте ошибки
я вот вложил две програмки bulat77 и крутоо!!bulat77 вот её надо сделать!доделать!!надо её сделать как программа крутоо!!!помогите...

Исправьте, пожалуйста, ошибки
Нужно вычислить A,B,C. d ввести с клавиатуры. известно, что d>0, при x=..., y=..., z=..., и d<=0, при ... так же дано, что A= , B=...

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

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

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

Наверх