Стеки в паскаль

@Polishchuk_Nata · Регистрация: 24.10.2010

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

Ниже описана задача: Записать в стек 5 целых чисел.

Pascal

Uses crt;
type
step=^node;
node=record
n:integer;
p:step;
end;
var top:step;
a,i:integer;
function push (top:step;n:integer):step;
var p:step;
begin
nev(p);
p^.n:=n;p^.p:=top;
push:=p;
end;
function pop(top:step;var n:integer):step;
varp:step;
begin
n"-top^.n;pop:top^.p;
dispose(top);
end;
clrscr;
top:=nil;
for:=1 to 5 do begin
writeln ('Vvedite',i,'chislo');
readln(a);
top:=push(top,a);
end;
writeln;
while top <> nil do begin
top:=pop(top,i);
writeln(i,' ');
end;
readkey;
end.

Исходя из этого надо: Записать 5 целых двоцифровых чисел. Вывести сумму этих чисел в рядок.

Комментарий модератора

Код обязательно должен быть оформлен с использованием тегов. - Это требование правил форума.

@use · 23.12.2010, 06:47

Сообщение от Polishchuk_Nata

Исходя из этого надо: Записать 5 целых двоцифровых чисел. Вывести сумму этих чисел в рядок.

Наверное, я совсем тупой. Ничего не понял.

Исходя из чего?
"двоцифровых" - это двузначных?
в какой рядок?

@Polishchuk_Nata · 23.12.2010, 09:49 **[ТС]**

Да,двузначных чисел.
Сумму вывести в конце программы.

@use 180 / 180 / 81 Регистрация: 18.12.2010 Сообщений: 346
	23.12.2010, 06:47	2
	Сообщение от Polishchuk_Nata Исходя из этого надо: Записать 5 целых двоцифровых чисел. Вывести сумму этих чисел в рядок. Наверное, я совсем тупой. Ничего не понял. Исходя из чего? "двоцифровых" - это двузначных? в какой рядок? 0

@Polishchuk_Nata 1 / 1 / 0 Регистрация: 24.10.2010 Сообщений: 13
	23.12.2010, 09:49 [ТС]	3
	Да,двузначных чисел. Сумму вывести в конце программы. 0

Опции темы