Вернуться   Компьютерный форум > Компьютеры > Программы > Программирование
 
 
Опции темы
Старый 10.03.2015, 23:36   #1 (ссылка)
Новичок
 
Регистрация: 14.02.2015
Сообщений: 28
Репутация: 0
Post Ввести два числа и найти произведение их не используя умножение.Доработайте программу

Пишу программу на паскале.Мне нужно с функцией while.Не как не могу понять с чему мне сравнивать?

program n555;
var
s,b,a:integer;
begin
Writeln('Введите два целых числа через пробел');
readln(a,b);
s:=0;
while ????? do begin
s:=s+a;
end;
writeln (s);
end.
Stop вне форума  
Старый 11.03.2015, 07:29   #2 (ссылка)
Новичок
 
Регистрация: 14.07.2009
Сообщений: 187
Репутация: 1
По умолчанию

Я бы сделала так:
var s,a,b,i:integer;
begin
readln(a,b);
s:=a;
i:=1;
while (i<b) do
begin
s:=s+a;
i:=i+1;
end;
writeln('s=',s);
end.
Проверяла, код рабочий.
Если что-то непонятно, спрашивайте, объясню.
elenka вне форума  
Старый 16.03.2015, 16:11   #3 (ссылка)
Новичок
 
Регистрация: 21.11.2009
Сообщений: 486
Репутация: 47
По умолчанию

Stop, можно попробовать так:

Код:
var
   a,b,s,i: integer;
begin
     Writeln('a:'); Readln(a);
     Writeln('b:'); Readln(b);
     s:=0; i:=0;

     while i<>abs(b) do
           begin
                s:=s+a;
                inc(i);
           end;
     if b<0
           then s:=-s;

     Writeln(s);

Readln;
end.
sheff-09 вне форума  
Ads
 


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите найти программу anatolik1981 Графика 5 02.04.2012 14:44
помогите найти программу mike03 Утилиты 5 06.04.2011 00:07
Помогите найти программу!!! Zhulykpaeva Офис 8 22.12.2009 00:19
помогите найти программу ^^ pania333 Утилиты 16 15.11.2009 19:33


Текущее время: 20:33. Часовой пояс GMT +4. Powered by vBulletin® Version 5.8.9
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.