VPF::[Паскаль] стековая программа - Форум программистов

maksimla

Дата 6.12.2009, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 31.3.2009

Репутация: нет
Всего: нет

Такое задание
На мобильном телефоне можно писать простые программы. Процессор держит в памяти команду стека (на английском stack) и команду счетчика (ks) которого значение исполняется командным номером. Поэтому начиная
исполнять от первой команды ks в начале равно 1, а стек пустой В программе команды считаются от единицы.
В программе есть только две команды:
ZAVUT X. KS начинается с единицы и его значение вкладывается в конец стека.Потом KS значение становится X
PYPT. Процессор распространяет одной секунды сигнал (гудка). Потом процессор стирает последнего стека сохраненное значение и значение присваивается команде счетчика. Если стек был пустой то программа кончает работа.
Задание Напишите программу которая напечатала команды телефонные последовательные, по таким требованиям
1 ее выполнив былабы выполнен точно k секунд сигнал гудка,
2 в телефонной программе былабы не больше 100 команд,
3 Команда PYPT должна быть один и последний раз.

Начальные данные хранятся в файле duom.txt. На первой и единственной строчке записано целое число
K (0 < K < 10000) - желаемой звуковой продолжительности секундами.
Результат записываем в файл rez.txt. На каждой строчке должна быть написано по одной команде (с начала).
Если возможны несколько вариантов подходящий под требования то тогда любой вариант запишите. Конечно такую программу сделать всегда возможна.
Пример
Первичные данные
4
результат
ZAVUT 4
ZAVUT 4
ZAVUT 4
PYPT
Обьяснение
После первой команды (ZAVUT 4) стек пополняется другой команды номером 1+1=2 становится [2] о ks становится 4
Тогда выполняется 4-тая команда (PYPT) производит звуковой сигнал - гудка одну секунду и тогда стек становится пустой о ks становится 2
Тогда выполняется 2-тая команда (ZAVUT 4) стек пополняется другой команды номером 2+1=3 становится [3] о ks становится 4
Тогда выполняется 4-тая команда (PYPT) гудок второй секунду и тогда стек становится пустой о ks становится 3
Тогда выполняется 3-тая команда (ZAVUT 4) стек пополняется другой команды номером 3+1=3 становится [3] о ks становится 4
Тогда выполняется 4-тая команда (PYPT) гудок третию секунду и тогда стек становится пустой о ks становится 4
Тогда снова выполняется 4-тая команда (PYPT) и тогда четвертую секунду гудок, но уже стек пустой и команды больше не выполняется то тогда завершает программа работу.
Выполняя эту программу всего было гудков 4 раза поэтому всего получено черырех секундный звуковой сигнал.

Код

program Bevarde0;
uses crt;
 Type
  stek = ^ST;
  ST = record
          x : integer;
       Next : stek;
  end;
 var duom,rez:text;
            k,ks:integer;
            s:stek;
begin
  Assign (duom,'duom.txt');
  Reset (duom);
  Assign (rez,'rez.txt');
  rewrite(rez);
  readln(duom,k);
 ks:=1;
 if k-99>=0 then ks:=k-99;
  repeat
   new(s);
   s^.x:=ks;
   inc(s^.x);
   ks:=s^.x;
   if ks<>k then
   writeln(rez,'ZAVUT ',ks);
   dispose(s);
  until ks=k;
  Writeln(rez,'PYPT');
  Close (duom);
  Close (rez);
end.

програма на паскале

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »