IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Умножение в паскале без использования стандартного оператора умножения
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской
Реальное имя: Юрий

Репутация: -  0  +


Здравствуйте, товарищи))))
Предложите, кто может, свои варианты решения: как написать программу, выполняющую умножение двух чисел (для вещественного и целочисленного типов), используя при этом:
1. Оператор сложения.
2. Оператор вычитания.
3. Оператор присваивания.
4. Условный оператор и оператор goto.
Заранее спасибо.


ЗЫ. прилагаю свой вариант:
Код

  var a,b,z:integer;

  function umn(x,y:integer):integer;
  var s,i:integer; label 1;
  begin
    s:=-y;
    i:=x;
    1: s:=s+y;
    if x>0 then
      begin
    x:=x-1;
    goto 1;
      end;
    if x<0 then
      begin
    x:=x+1;
    goto 1;
      end;
     if i<0 then s:=-s;
     if x=0 then umn:=s;
  end;

  begin
    readln(a,b);
    z:=umn(a,b);
    writeln(z);
  end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 4
Пол: Мужской
Реальное имя: Юрий

Репутация: -  0  +


две разные
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
decompiler   Умножение в паскале без использования стандартного оператора умножения   8.01.2007 6:33
мисс_граффити   одна программа и для целых, и для вещественных? ил…   8.01.2007 6:49
decompiler   две разные   8.01.2007 6:53
Malice   Для целочисленных: function mul (a,b:longint):long…   8.01.2007 15:28
decompiler   Для целочисленных: function mul (a,b:longint):lon…   8.01.2007 17:47
Malice   именно, циклы недоступны.... Можно испортить whi…   8.01.2007 17:55
мисс_граффити   циклы нельзя... судя по условию   8.01.2007 17:43
мисс_граффити   а shl и xor ты через что испортишь? :)   8.01.2007 18:44
Malice   а shl и xor ты через что испортишь? :) Опять пр…   8.01.2007 18:56
Malice   Кто что придумал с вещественными ? У меня только с…   8.01.2007 21:23
Michael_Rybak   Без погрешности-то и встроенное умножение не умеет…   9.01.2007 4:15
Malice   Без погрешности-то и встроенное умножение не умее…   9.01.2007 4:55
Michael_Rybak   Дальше нет смысла обсуждать, пока ОП не укажет гра…   9.01.2007 7:48
decompiler   Дальше нет смысла обсуждать, пока ОП не укажет гр…   9.01.2007 8:14


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 5.12.2022 18:27
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name