Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.11.2015, 11:16   #1
Himik_ProgramisT
Новичок
Джуниор
 
Регистрация: 18.11.2015
Сообщений: 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 в 11:23.
Himik_ProgramisT вне форума Ответить с цитированием
Старый 21.11.2015, 11:25   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

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

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

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

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

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

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

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

Код:
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, 12:09   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Гегеге )))
Не объяснишь, даже не пытайся.
Код:
  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, 12:23   #6
Himik_ProgramisT
Новичок
Джуниор
 
Регистрация: 18.11.2015
Сообщений: 10
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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