RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 197051: Здравствуйте! У меня возникли сложности с таким вопросом: Создать стек из случайных целых чисел и поменять местами крайние элементы. Pascal ... Консультация # 197053: Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Написать программу, которая выводи заданное число в куб используя функции.Через процедуру с блок схемой.В Pascal. ... Здравствуйте! Прошу помощи в следующем вопросе: Создать стек со случайными целыми числами в диапазоне –50 до +50 и преобразовать его в два стека. Первый должен содержать только положительные числа, а второй - отрицательные. Порядок чисел должен быть сохранен, как в первом стеке.
Дата отправки: 12.11.2019, 14:09 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, dkhrebtovich! Код (Pascal) :: выделить код type
pStack=^tStack;
tStack=record
data:integer;
last:pStack
end;
procedure writelist(a:pStack;b:char);
begin
write(b);
while a<>nil do
begin
write(a^.data:4);
a:=a^.last
end;
writeln
end;
procedure freelist(var a:pStack);
var
b:pStack;
begin
while a<>nil do
begin
b:=a;
a:=a^.last;
dispose(b)
end;
end;
procedure Add2End(var a,b:pStack);
var
c:pStack;
begin
c:=b;
if b<>nil then
begin
while c^.last<>nil do c:=c^.last;
c^.last:=a;
c:=c^.last;
end else
begin
b:=a;
c:=b;
end;
a:=a^.last;
c^.last:=nil;
end;
var
a,b,c:pStack;
z:integer;
begin
randomize;
z:=random(15)+10;
a:=nil;
while z>0 do
begin
new(b);
b^.data:=random(101)-50;
b^.last:=a;
a:=b;
dec(z);
end;
writelist(a,'=');
b:=nil;
c:=nil;
while a<>nil do if a^.data>0 then Add2End(a,b)else Add2End(a,c);
writelist(b,'+');
writelist(c,'-');
freeList(b);
freeList(c);
end.В задании не сказано, что делать с нулем, его записывают в список к отрицательным. Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 12.11.2019, 14:15 Консультирует Gluck (7-й класс): Program Stek; Приложение:
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Написать программу, которая выводи заданное число в куб
Дата отправки: 12.11.2019, 17:03 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, kondrat322! © Цитата: kondrat322 используя функции.Через процедуру Код (Pascal) :: выделить код var
a:integer;
procedure a3(var a:integer);
begin
a:=a*a*a
end;
function pow3(a:integer):integer;
begin
pow3:=a*a*a
end;
begin
write('enter number:');
readln(a);
writeln('result function:=',pow3(a));
a3(a);
writeln('result procedure:=',a)
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
