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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

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

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

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

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

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

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

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

Последний раз редактировалось Аватар; 21.11.2015 в 13:17.
Himik_ProgramisT вне форума Ответить с цитированием
Старый 21.11.2015, 13: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, 13:09   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Гегеге )))
Не объяснишь, даже не пытайся.
Код:
  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
По умолчанию

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Массив напишите прогу XaHTeP Паскаль, Turbo Pascal, PascalABC.NET 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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS