Pascal-стек

[Syrmann]

Для заданного n извлечь из стека n элементов и вывести их значения. Глубина стека заранее не известна, поэтому после извлечения очередного элемента он может оказаться пустым. В этом случае вывести также сообщение «Стек пуст». Задачу решить, используя операции push, pop, empty. Для проверки работы программы использовать прицедуру печати содержимого стека.
Пожайлусто, очень надо сдать, а никак не получается

[Serge_Bliznykov]

ну, приводи пример кода, который написал, растолкуй, что именно не получается..
Или, если хочешь, чтобы полностью за тебя сделали - так и скажи (и определяйся, сколько готов заплатить!)

[sasha3050]

Пожалуйста, помогите очень надо решить задачку. Задача состоит в том чтобы проверить некую программу.Программа делает считывание трех целых чисел, которые которые интерпретируються как длинны ребер паралелепипеда.Дальше программа считает длинну диагонали паралелепипеда за формулой ((A*A+B*B+C*C) - это выражение под корнем). Заранее большое спасибо!!!!!!!

[Serge_Bliznykov]

sasha3050,
Вы всё делаете неправильно.

1) не стоит писать разные ветки одного и того форума! Это не только не повышает Выши шансы - а даже наоборот - снижает...
Нужно задавать СВОЙ вопрос - т.е. создать свою тему, причём с осмысленных названием!!

2) "длина" пишется с одним Н
про остальные ошибки я уже молчу...

3) мне задание НЕПОНЯТНО. Что значит "чтобы проверить некую программу" Какую программу? Как её проверить?

"делает считывание трех целых чисел" - откуда - из файла, с консоли (вводит оператор)?

"Дальше программа считает длинну диагонали" - и что с этой длиной делать?..

3) на каком языке надо то?

ужасъ... :-((

вот, просто в порядке угадывания, что Вам надо...

Код: Выделить всё

var
  A,B,C : integer; 
  F : real;
begin
  WriteLn;
  Write('Введите A,B,C: '); 
  Readln(A,B,C);
  F := sqrt(A*A+B*B+C*C);
  WriteLn('Длина диагонали равна ',F:12:4);
end.

[Mary Yu]

ужасъ... (

Что-то ты не в духе..

[sasha3050]

Читайте пост Serge_Bliznykov выше и имейте уважение к правилам форума! Модератор