Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

реализовать арифметические операции

85K
28 октября 2012 года
Avrora_R
1 / / 28.10.2012
Требуется на паскале реализовать операции сложения, вычитания, умножения и деления только лишь одним сложением. Цифры любые. Пример: 20-2 <=> 20+(-2), 20*2 <=> 20+20.
Помогите, пожалуйста, это сделать =)
18K
28 октября 2012 года
Chort@ka
22 / / 08.04.2007
нужен лучший пример
85K
06 ноября 2012 года
Janycz
3 / / 03.11.2012
Умножение:

 
Код:
program a1;
var a,b,i,mul:longint;
begin
 readln(a,b);
 for i:=a downto 1 do  
  mul:=mul+b;
 write(mul);
end.
85K
06 ноября 2012 года
Janycz
3 / / 03.11.2012
деление с остатком


program zzzzz;
var a,a1,b,i,di,mul,o:longint;
begin
readln(a,b);
if b=0 then begin write('ОШИБКА: на ноль делить нельзя'); halt; end;
a1:=a;
if a>b then begin
while a>0 do begin
a:=(-b)+a;
di:=di+1;
end;
end else begin write(0,' (ост. ',a, ' )'); exit; end;
o:=-(di*b)+a1;
if o=0 then write(di) else
write(di,' (ост. ',o, ' )');
end.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог