Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 21.11.2015, 12:16   #1
Himik_ProgramisT
Новичок
Джуниор
 
Регистрация: 18.11.2015
Сообщений: 10
Репутация: 10
По умолчанию cрочно напишите прогу,умоляю

Дано два числа (a і b) та операція (словом), котру необхідно виконати:
plus – додати ці числа
minus – відняти друге число від першого
div - знайти цілу частину від ділення першого числа на друге
mod – знайти остачу від ділення першого числа на друге
mult – перемножити дані числа
Напишіть програму, яка за даними числами та операцією, обчислює результат.

Вхідні дані:
Дано 2 числа a, b (-2*109 ≤ a, b ≤ 2*109) та операцію, яка записана через один пробіл.

Вихідні дані:
Oдне число - результат виконаної операції.

From Stilet: Перевод

Даны два числа и операция словом, которую с этими числами нуна провести.
plus - Сложение
minus - вычитание
div - Целое от деления
mod - Остаток от деления
mult - умножение.

Напишите программу, что вычисляет данные числа путем этих операций

Вход: 2 числа "а" и "б" и оператор словом через пробел
Выход: Результат арифметической операции.

Последний раз редактировалось Stilet; 21.11.2015 в 12:23.
Himik_ProgramisT вне форума   Ответить с цитированием
Старый 21.11.2015, 12:25   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,815
Репутация: 6850
По умолчанию

Цитата:
Himik_ProgramisT
Попытки и наработки, как я понимаю, отсутствуют и не ожидаются?
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 21.11.2015, 12:40   #3
Himik_ProgramisT
Новичок
Джуниор
 
Регистрация: 18.11.2015
Сообщений: 10
Репутация: 10
По умолчанию

да,просто потом обясню,напиши,я тебя умоляю,очень нужно

так можеш написать, тебя же это не затруднит?

стилет, ответь пожалуйста

хотябы подскажи как написать прошу тебя

так ты поможеш?

Последний раз редактировалось Аватар; 21.11.2015 в 13:17.
Himik_ProgramisT вне форума   Ответить с цитированием
Старый 21.11.2015, 13:00   #4
Niro
Участник клуба
 
Аватар для Niro
 
Регистрация: 23.09.2010
Сообщений: 682
Репутация: 217
По умолчанию

Код:
var a,b: integer;
 s: string;

begin
 clrscr;
 writeln ('Vvedite dva chisla i operacii');
 read (a,b,s);
 if s='plus' then rez:=a+b;
 if s='minus' then rez:=a-b; 
 {тут аналогично}
 writeln ('Rezultat = ',rez);
 readln;
end.
__________________
Проще всего признать свою ошибку.
Гораздо труднее еЁ осознать и исправить.
Niro вне форума   Ответить с цитированием
Старый 21.11.2015, 13:09   #5
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,815
Репутация: 6850
По умолчанию

Гегеге )))
Не объяснишь, даже не пытайся.
Код:
  procedure Split(s:string; var a,b:double; var opcode:string);
  var e:integer;
  begin
   val(s,a,e);
   val(copy(s,1,e-1),a,e);
   delete(s,1,e+1);
   s:=trim(s);
   e:=pos(' ',s);
   opcode:=trim(copy(s,1,e));
   delete(s,1,e);
   val(s,b,e);
  end;
и
Код:
function calc(s:string):Double; var a,b:Double;op:String;
begin
 Split(s,a,b,op);
 if op='plus' then calc:=a+b else
  if op='minus' then calc:=a-b else
end;
Удачного вгрызания в гранит науки.
Цитата:
так ты поможеш?
Нет. Не помогу.
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 21.11.2015, 13:23   #6
Himik_ProgramisT
Новичок
Джуниор
 
Регистрация: 18.11.2015
Сообщений: 10
Репутация: 10
По умолчанию

ну спасибо
Himik_ProgramisT вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Массив напишите прогу XaHTeP Паскаль 1 14.05.2012 14:19
Задачки по делфи здесь их 2 умоляю напишите листинг Аделинка Помощь студентам 0 26.03.2011 18:37
Напишите прогу!!!!!! KoC aka HoC Помощь студентам 1 23.06.2010 18:20
напишите пожалуйста прогу! tim777777 Помощь студентам 2 01.03.2009 23:56


01:04.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.