Решение стеков в паскале
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Решение стеков в паскале - 2008-12-11 16:04:16.603333
|
|
|
WTFLOL?
Сообщений: 5
Оценки: 0
Присоединился: 2008-12-11 15:53:00.850000
|
Найти min-элемент в стеке, состоящий из целых чисел в диапозоне от - 50 до +50.
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 16:19:35.640000
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
quote:
ORIGINAL: WTFLOL?
Найти min-элемент в стеке, состоящий из целых чисел в диапозоне от - 50 до +50.
o_O Стек ?
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 16:21:44.953333
|
|
|
WTFLOL?
Сообщений: 5
Оценки: 0
Присоединился: 2008-12-11 15:53:00.850000
|
ну да
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 16:25:00.190000
|
|
|
WTFLOL?
Сообщений: 5
Оценки: 0
Присоединился: 2008-12-11 15:53:00.850000
|
что тебя удивляет?
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 16:43:28.883333
|
|
|
NGP
Сообщений: 91
Оценки: 0
Присоединился: 2006-07-17 22:20:45
|
видимо они под стеком понимают массив…
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 16:44:40.196666
|
|
|
WTFLOL?
Сообщений: 5
Оценки: 0
Присоединился: 2008-12-11 15:53:00.850000
|
честно говоря я сомневаюсь, что это массив. Т.к. пример программы был оформлен в форме абсолютно не похожей на массив. Может я ошибаюсь…
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 17:22:04.100000
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: WTFLOL?
Найти min-элемент в стеке, состоящий из целых чисел в диапозоне от - 50 до +50.
а в чём проблема? делать pop до тех пор пока не empty, каждый элемент сравнивать с минимумом (инициализированным верхним элементом стека, либо = 50 - с учётом постановки задачи), если минимум больше элемента, то минимум положить равным элементу
задача как бы примитивна
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 17:38:13.043333
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
quote:
ORIGINAL: WTFLOL?
честно говоря я сомневаюсь, что это массив. Т.к. пример программы был оформлен в форме абсолютно не похожей на массив. Может я ошибаюсь…
Так тебе на ассемблере или на паскале с ассемблерной вставкой?
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 18:02:14.023333
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
MOV EAX,-32
loop:
INC EAX
POP ECX
CMP EAX,32
JE exit
CMP ECX,ESI
JNB loop
MOV ESI,ECX
JMP loop
exit:
В esi будет самое наименьшее число.
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 18:19:09.763333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Имхо у него лаба по структурам данных на паскале. Асм тут ни при чём. Стек там рассматривается как Linked LIFO list (связанный лифо список). Я с ним в чате общался, предложил сюда запостить :).
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 18:39:30.490000
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: Sunzer
Так тебе на ассемблере или на паскале с ассемблерной вставкой?
а на чистом паскале слабо? по-моему у тебя проблемы с базовыми знаниями, мон шер :) а так же ассемблер головного мозга и большая любовь к игре в симпафки. считаешь что я в корне не прав - можешь просто попросить админов меня забанить - вместо минусования вполне корректных моих ответов ;)
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 18:47:35.180000
|
|
|
Zevs91207
Сообщений: 1315
Оценки: 0
Присоединился: 2007-12-09 20:35:12.953333
|
quote:
ORIGINAL: Denaturat
quote:
ORIGINAL: Sunzer
Так тебе на ассемблере или на паскале с ассемблерной вставкой?
а на чистом паскале слабо? по-моему у тебя проблемы с базовыми знаниями, мон шер :) а так же ассемблер головного мозга и большая любовь к игре в симпафки. считаешь что я в корне не прав - можешь просто попросить админов меня забанить - вместо минусования вполне корректных моих ответов ;)
Я хочу сказать,что отсутствие базовых знаний и непонимание конкретной задачи—это разные вещи,поэтому не стоит так однозначно судить.
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 18:49:26.540000
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
Из моих оценок:
quote:
тебе же сказали - в паскале, любитель строгости ты наш :)
2 Denaturat а в соседнем топике написали тоже на паскале а ты код на чем дал?
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 18:50:39.293333
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: Zevs91207
Я хочу сказать,что отсутствие базовых знаний и непонимание конкретной задачи—это разные вещи,поэтому не стоит так однозначно судить.
ок, больше не буду. хотя всё равно считаю что прав :)
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 18:52:12.793333
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: Sunzer
2 Denaturat а в соседнем топике написали тоже на паскале а ты код на чем дал?
ну ты меня и заминусовал. я решил, что здесь так заведено, и ответил тебе тем же. логично, n'est-ce pas?
и давайте прекращать флудить, поигрались в симпафки - и будет. лучше бы по сабжу написал корректное решение, пока что его у тебя не было
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 18:53:45.433333
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
quote:
а на чистом паскале слабо? по-моему у тебя проблемы с базовыми знаниями, мон шер :) а так же ассемблер головного мозга и большая любовь к игре в симпафки. считаешь что я в корне не прав - можешь просто попросить админов меня забанить - вместо минусования вполне корректных моих ответов ;)
За мат в репе тебя уже банить можно ;) Банить тебя не надо, ты человек знающий не глупый, но какой то нервный.
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 21:05:56.933333
|
|
|
MEPOX
Сообщений: 868
Оценки: 0
Присоединился: 2008-03-16 10:11:26.610000
|
Вероятно под стеком ты имеешь в виду вот это – http://www.languagec.info/steki.php
Я буду понимать это как обычный массив, т.к. таких понятий не знаю(может тебе там надо с ручным выделение памяти, тогда я не смогу сделать, а так – могу)
var
i,min:integer;
q:array[-50..50]of integer;
begin
randomize; min:=0;
for i := -50 to 50 do q[i]:=random(60)-120;
for i := -50 to 50 do write(q[i],' ');
for i := -50 to 50 do if q[i]<min then min:=q[i];
writeln('min=',min);
readln;
end.
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 21:11:02.730000
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: MEPOX
Вероятно под стеком ты имеешь в виду вот это – http://www.languagec.info/steki.php
Я буду понимать это как обычный массив, т.к. таких понятий не знаю(может тебе там надо с ручным выделение памяти, тогда я не смогу сделать, а так – могу)
очень плохо. программист, не знающий что такое стек - это очень, очень плохо
считай что у тебя есть четыре операции - empty (пуст ли стек), push (положить элемент в стек), pop (вынуть элемент из стека), и top (получить значение верхнего элемента стека). индексации по стеку быть не может, так что твой код совершенно неверен
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 21:16:59.420000
|
|
|
MEPOX
Сообщений: 868
Оценки: 0
Присоединился: 2008-03-16 10:11:26.610000
|
>программист, не знающий что такое стек
вообще-то я не программист
[копирайт]
Пример. Составить программу, которая формирует стек, добавляет в
него произвольное количество компонент, а затем читает все компоненты
и выводит их на экран дисплея, В качестве данных взять строку симво-
лов. Ввод данных - с клавиатуры дисплея, признак конца ввода - строка
символов END.
Program STACK;
uses Crt;
type
Alfa= String[10];
PComp= ^Comp;
Comp= Record
sD: Alfa;
pNext: PComp
end;
var
pTop: PComp;
sC: Alfa;
Procedure CreateStack(var pTop: PComp; var sC: Alfa);
begin
New(pTop);
pTop^.pNext:=NIL;
pTop^.sD:=sC
end;
Procedure AddComp(var pTop: PComp; var sC: Alfa);
var pAux: PComp;
begin
NEW(pAux);
pAux^.pNext:=pTop;
pTop:=pAux;
pTop^.sD:=sC
end;
Procedure DelComp(var pTop: PComp; var sC:ALFA);
begin
sC:=pTop^.sD;
pTop:=pTop^.pNext
end;
begin
Clrscr;
writeln(' ВВЕДИ СТРОКУ ');
readln(sC);
CreateStack(pTop,sC);
repeat
writeln(' ВВЕДИ СТРОКУ ');
readln(sC);
AddComp(pTop,sC)
until sC='END';
writeln('****** ВЫВОД РЕЗУЛЬТАТОВ ******');
repeat
DelComp(pTop,sC);
writeln(sC);
until pTop = NIL
end.
[/копирайт]
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-11 21:38:39.773333
|
|
|
WTFLOL?
Сообщений: 5
Оценки: 0
Присоединился: 2008-12-11 15:53:00.850000
|
Всем большое спасибо!
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-12 03:19:23.730000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
http://en.wikipedia.org/wiki/Stack_(data_structure)
|
|
|
|
|
RE: Решение стеков в паскале - 2008-12-12 15:27:00.583333
|
|
|
MEPOX
Сообщений: 868
Оценки: 0
Присоединился: 2008-03-16 10:11:26.610000
|
Кста.. по-моему в пасксаль встроенны стековые массивы.. или это дэлфи.. хз..
|
|
|
|
|
|
