0 / 0 / 0
Регистрация: 19.07.2013
Сообщений: 14
1

Изменить код, чтобы в начале программы выводился запрос для ввода размера стека

17.04.2017, 18:37. Показов 641. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Нужно изменить пример так, чтобы в начале работы программы выводился запрос для ввода размера стека.

Delphi
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
Program Stack;
{$APPTYPE CONSOLE}
uses SysUtils;
Type Tptr = ^TElem;     //тип указателя на элемент стека
TElem = record   //тип элемента стека
inf : char;      //информационная часть
link : Tptr;     //соединительная часть
end;
Var top : tptr;
value : char;
i: byte;
Procedure Push(val : char; var Top:Tptr);    //процедура добавления элемента
Var p : tptr;   //вспомогательный указатель
Begin
new (p);
p^.inf:=val;
p^.link:=top;
top:=p;
End;
Procedure Pop(var val : char; var Top:Tptr); //процедура удаления элемента
Var p : tptr;  //вспомогательный указатель
Begin
val:=top^.inf;
p:=top;
top:=p^.link;
dispose (p);
End;
Begin
new(top); //создание указателя на вершину стека
top:=nil;
for i:=1 to 10 do
begin
writeln (' Vvedite simvol');
readln (value);
push(value,Top); //добавление элемента в стек
end;
i:=10;
while top<>nil do //пока не будет достигнут конец стека
begin
pop(value, Top); //извлечение элемента из стека
writeln (i,'-i simvol - ',value);
dec (i)
end;
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.04.2017, 18:37
Ответы с готовыми решениями:

Изменить запрос, чтобы еще выводился код абонемента, для которого указана максимальная цена
Помогите пожалуйста!!!!SELECT Абонементы.Код_зала, Max(Абонементы.Цена) AS МАХ,...

Как изменить код чтобы результат программы выводился отделным текстовым файлом?
n = 15; atext: array of char = ('0','1','2','3','4','5','6','7','8','9'); acode: array of...

Нужно изменить код программы чтобы в пункте Новая игра был выбор размера поля
Нужно изменить код программы чтобы в пункте Новая игра был выбор поле 4*4,5*5,6*6,7*7,8*8. ...

Как изменить код чтобы выводился номер дня с начала года?
Насколько я поняла, 24-29 определяет количество дней от текущей даты до введённой. Как можно...

1
500 / 346 / 200
Регистрация: 20.10.2016
Сообщений: 1,101
17.04.2017, 19:14 2
Delphi
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
Program Stack;
{$APPTYPE CONSOLE}
 
uses SysUtils;
 
Type
  Tptr = ^TElem; // тип указателя на элемент стека
 
  TElem = record // тип элемента стека
    inf: char; // информационная часть
    link: Tptr; // соединительная часть
  end;
 
Var
  top: Tptr;
  value: char;
  i: byte;
  size: integer; // размер стека
 
Procedure Push(val: char; var top: Tptr); // процедура добавления элемента
Var
  p: Tptr; // вспомогательный указатель
Begin
  new(p);
  p^.inf := val;
  p^.link := top;
  top := p;
End;
 
Procedure Pop(var val: char; var top: Tptr); // процедура удаления элемента
Var
  p: Tptr; // вспомогательный указатель
Begin
  val := top^.inf;
  p := top;
  top := p^.link;
  dispose(p);
End;
 
Begin
  writeln(' Vvedite razmer steka');
  readln(size);
  new(top); // создание указателя на вершину стека
  top := nil;
  for i := 1 to size do
  begin
    writeln(' Vvedite simvol');
    readln(value);
    Push(value, top); // добавление элемента в стек
  end;
  i := 10;
  while top <> nil do // пока не будет достигнут конец стека
  begin
    Pop(value, top); // извлечение элемента из стека
    writeln(i, '-i simvol - ', value);
    dec(i)
  end;
  readln;
 
end.
1
17.04.2017, 19:14
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.04.2017, 19:14
Помогаю со студенческими работами здесь

Изменить код, чтобы год рождения тоже выводился в упорядоченный массив
uses crt; type tzap = record {Описание типа для одной записи списка} Fio:...

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

Составить код, чтобы когда нажимаешь на клавиатуру, выводился Аски код
составить код, чтобы когда нажимаешь на клавиатуру, выводился Аски код

Изменить программу, чтобы выводился весь файл, а не только первая строка
#include &lt;stdio.h&gt; #include &lt;stdlib.h&gt; struct a { int id; char service; } ; ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru