Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
kronos2411
0 / 0 / 0
Регистрация: 23.06.2018
Сообщений: 9
1

Написать программу учёта "указаний сверху"

10.07.2019, 13:27. Просмотров 122. Ответов 2
Метки нет (Все метки)

Написать программу учёта "указаний сверху". Программа учитывает новые указания и удаляет выполненные.
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
type
  Node = class
  data: string;
  next: Node;
  constructor (d: string; n: Node);
  begin
    data := d;
    next := n;
  end;
end;
var p:node;
var i,n:integer;
var x:string;
begin
i:=0;
n:=0;
while i<3 do begin
writeln(p);
writeln('1 - Добавить новое указание. 2 - Отметить указание как выполненное. 3 - Завершить программу');
readln(i);
if (i=1)and(n=1) then begin
readln(x);
p.next := new Node(x,p.next); end;
if (i=1)and(n=0) then begin
readln(x);
p := new Node(x,p);
n:=1;end;
if (i=2) then
end;
end.
Программа почему-то не запоминает указания и просто выводит (). Помогите исправить пж.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.07.2019, 13:27
Ответы с готовыми решениями:

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний &quot;жи&quot;, &quot;ши&quot;, &quot;ча&quot;, &quot;ща&quot;,...

Написать программу на языке паскаль, которая из слов "a" и "b" составит новое слово "c"
Начало программы: var a,b,c:string; begin writeln('Введите строку a'); readln(a)...

Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на нечётном месте после буквы "к"
Написать программу, выясняющую, есть ли в слове X буква &quot;а&quot;, стоящая на нечётном месте после буквы...

Составьте программу замены в слове Х всех букв "а" и "я" на слог "по"
Составьте программу замены в слове Х всех букв &quot;а&quot; и &quot;я&quot; на слог &quot;по&quot;. заранее спасибо!

Решение заданий типа "Array","Matrix","String","File","Text"""
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не понятных) типа массив и...

2
StudAssistant
Эксперт
9811 / 7003 / 2319
Регистрация: 17.04.2006
Сообщений: 9,622
10.07.2019, 13:27
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
2
JuriiMW
2389 / 1328 / 1725
Регистрация: 10.12.2014
Сообщений: 5,240
10.07.2019, 16:59 2
В первый раз, когда программа попадает на строку 18, переменная p ещё ни разу не использовалась.

После добавления значения в p, следующим циклом, вы пытаетесь вывести указатель на переменную, а не значение!

Чтобы вывести значение, нужно сделать как-то так:
Pascal
18
if p <> nil then writeln(p.data);
Но, вот если вы добавите второе указание и попытаетесь добавить третье, то второе будет потеряно!
Pascal
24
 p.next := new Node(x,p.next); end;
0
kronos2411
0 / 0 / 0
Регистрация: 23.06.2018
Сообщений: 9
10.07.2019, 17:47  [ТС] 3
Короче, это все слишком сложно, поэтому я сделал с массивом:
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
var l,k,j,i,n,y:integer;
var x:array [1..999] of string;
begin
i:=1;
n:=0;
j:=1;
k:=1;
while k<999 do begin 
x[k]:=' ';inc(k);
end;
while n<4 do begin
writeln('1 - Добавить новое указание. 2 - Отметить указание как выполненное. 3 - Вывести список указаний. 4 - Завершить программу');
readln(n);
if (n=1) then begin
readln(x[i]);
inc(i);end;
if n=2 then begin
writeln('Номер указания:');
readln(y);
while j<998 do begin
x[y]:=x[y+1];
inc(y);inc(j); end; 
end;
if n=3 then begin
writeln('До какого номера выводить указания:');
readln(l);
k:=1;
while k<l do begin 
writeln(k,')',x[k]);
inc(k);
end;
end;
end;
end.
0
StackOverflow
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.07.2019, 17:47

Написать программу "Обучение однослойного персептрона" на Pascal ABC
Обучение однослойного персептрона Задание Сделать : 1. y=x1 v ¬x2 v x3 2. y=x1 ^ x2 ^ x3 ^ ¬x4...

Написать программу, подсчитывающую во введенном слове количество букв "р"
Написать программу, подсчитывающую во введенном слове количество букв &quot;р&quot;. Слово ввести в программе.

написать программу для вычисления суммы ряда ( через команду :"while")
День добрый, помогите пожалуйста &quot;Написать программу вычисления суммы ряда:...


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

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

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