![]() |
Модераторы: volvo877, Snowy, MetalFan |
![]() ![]() ![]() |
|
Glebaka |
|
|||
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 8.3.2008 Репутация: нет Всего: нет |
Представьте себе, что в вашем распоряжении имеется набор текстов программ для примитивной вычислительной машины (ПВМ ). ПВМ умеет работать только с целыми числами и обладает памятью размером одно целое число. До начала выполнения программы в ячейке памяти
лежит 0. Каким образом можно программировать на ПВМ. Любая программа на ПВМ начинается командой START и заканчивается командой FINISH. Все команды разделяются между собой точкой с запятой. Также ПВМ понимает команды: ● ASSIGN <x>; вместо <x> должно стоять целое число, после выполнения команды в ячейку памяти вписывается число <x> ● ADD <x>; вместо <x> должно стоять целое число, после выполнения команды в ячейку памяти вписывается сумма содержимого ячейки памяти и числа <x> ● SUB <x>; вместо <x> должно стоять целое число, после выполнения команды в ячейку памяти вписывается разность содержимого ячейки памяти и числа <x> ● DIV <x>; вместо <x> должно стоять целое число, после выполнения команды в ячейку памяти вписывается результат деления содержимого ячейки памяти на число <x> ● MULT <x>; вместо <x> должно стоять целое число, после выполнения команды в ячейку памяти вписывается результат умножения содержимого ячейки памяти на число <x> ● POW <x>; вместо <x> должно стоять целое число, после выполнения команды в ячейку памяти вписывается содержимого ячейки памяти, возведенное в степень <x> ● WRITE; команда пишет содержимое ячейки памяти на экран Ваша задача написать программу на языке Pascal, которая спрашивает у пользователя текст программы на ПВМ, и выполняет его. Примеры программы для ПВМ: START; ASSIGN 10; ADD 5; MULT 12; WRITE; ASSIGN -3; MULT 7; ADD 20; POW 3; WRITE; FINISH; Результат выполнения: 180 и -1 Между командами, и между параметрами внутри команды может быть произвольное количество пробелов. Предполагаем, что программы, которые будет вводить пользователь, будут корректны для ПВМ. Просьба помочь в написании этой программы. надо использовать copy,insert,delete,pos,vAl ,string Это сообщение отредактировал(а) Glebaka - 8.3.2008, 17:49 |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi" | |
|
Запрещается! 1. Обсуждать и делится взломанными компонентами или программным обеспечением 2. Публиковать ссылки на варез 3. Оффтопить
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |