Страница 1 из 1
Pascal-стек
Добавлено: 06 окт 2008, 22:49
Syrmann
Для заданного n извлечь из стека n элементов и вывести их значения. Глубина стека заранее не известна, поэтому после извлечения очередного элемента он может оказаться пустым. В этом случае вывести также сообщение «Стек пуст». Задачу решить, используя операции push, pop, empty. Для проверки работы программы использовать прицедуру печати содержимого стека.
Пожайлусто, очень надо сдать, а никак не получается
Re: Pascal-стек
Добавлено: 07 окт 2008, 09:24
Serge_Bliznykov
ну, приводи пример кода, который написал, растолкуй, что именно не получается..
Или, если хочешь, чтобы полностью за тебя сделали - так и скажи (и определяйся, сколько готов заплатить!)
Re: Pascal-стек
Добавлено: 09 окт 2008, 20:40
sasha3050
Пожалуйста, помогите очень надо решить задачку. Задача состоит в том чтобы проверить некую программу.Программа делает считывание трех целых чисел, которые которые интерпретируються как длинны ребер паралелепипеда.Дальше программа считает длинну диагонали паралелепипеда за формулой ((A*A+B*B+C*C) - это выражение под корнем). Заранее большое спасибо!!!!!!!
Re: Pascal-стек
Добавлено: 10 окт 2008, 09:30
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.
Re: Pascal-стек
Добавлено: 10 окт 2008, 22:22
Mary Yu
Serge_Bliznykov писал(а):
ужасъ...
(
Что-то ты не в духе..
Re: Pascal-стек
Добавлено: 13 окт 2008, 20:11
sasha3050
Читайте пост Serge_Bliznykov выше и имейте уважение к правилам форума! Модератор