За лето всё забыл. Помогите в решении 2х несложных задач. - Страница 2

AlexZir · 17.09.2010, 09:04

Массив в задании не озвучен, потому решение примерно такое:

Код:

var InExpr, Sum: Real;
begin
Sum:=0;
repeat
WriteLn('Input expression');
ReadLn(InExpr);
If InExpr<=5 then Sum:=Sum+InExpr;
until InExpr=0;
WriteLn('Sum=',Sum);
ReadLn;
end.

Проверьте у себя и отпишитесь.

Викто_р · 17.09.2010, 09:24

Окей спасибо сейчас проверю)))

Викто_р · 17.09.2010, 09:27

Ошибка: процедура INC с параметрами указанных типа не найдена!

Вот в этой строчке
If InExpr<=5 then inc(Sum, InExpr)(!)

Викто_р · 17.09.2010, 09:33

Я вместо Inc написал Write и всё заработало, но вот не ссумирует когда ввожу!

AlexZir · 17.09.2010, 09:38

напишите вместо inc(Sum, InExpr) обычный оператор суммирования Sum:=Sum+InExpr.

Викто_р · 17.09.2010, 09:41

О да точно я его только сейчас то IF вводил не получалось))
Спасибо вы меня очень выручили!

Vladimir_S · 17.09.2010, 09:48

А зачем тут вообще массив? Если речь идет о суммировании вводимых чисел, не превышающих 5, то:

Код:

VAR
 A,SUM:REAL;
BEGIN
 Sum:=0;
 Repeat
  Write('Enter the next number ');
  ReadLn(A);
  If A<=5 then
   Sum:=Sum+A;
 Until A=0;
 WriteLn('Sum= ',Sum);
 ReadLn;
END.

Vladimir_S · 17.09.2010, 09:50

Ага, опоздал. Но программы удивительно схожи почему-то

.

AlexZir · 17.09.2010, 09:52

Ага, сам удивляюсь

17.09.2010, 09:04	#11 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Массив в задании не озвучен, потому решение примерно такое: Код: var InExpr, Sum: Real; begin Sum:=0; repeat WriteLn('Input expression'); ReadLn(InExpr); If InExpr<=5 then Sum:=Sum+InExpr; until InExpr=0; WriteLn('Sum=',Sum); ReadLn; end. Проверьте у себя и отпишитесь. __________________ Убить всех человеков!

17.09.2010, 09:38	#15 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	напишите вместо inc(Sum, InExpr) обычный оператор суммирования Sum:=Sum+InExpr. __________________ Убить всех человеков!

17.09.2010, 09:48	#17 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	А зачем тут вообще массив? Если речь идет о суммировании вводимых чисел, не превышающих 5, то: Код: VAR A,SUM:REAL; BEGIN Sum:=0; Repeat Write('Enter the next number '); ReadLn(A); If A<=5 then Sum:=Sum+A; Until A=0; WriteLn('Sum= ',Sum); ReadLn; END.

17.09.2010, 09:52	#19 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Ага, сам удивляюсь __________________ Убить всех человеков!

17.09.2010, 09:04
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Люди часто создают схожие топики, советую вам почитать созданное ранее Требуется срочная помощь в решении задач по электротехнике Нужна помощь в решении двух задач

17.09.2010, 09:24	#12 (permalink)
Викто_р Member Регистрация: 12.09.2010 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Окей спасибо сейчас проверю)))

17.09.2010, 09:27	#13 (permalink)
Викто_р Member Регистрация: 12.09.2010 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ошибка: процедура INC с параметрами указанных типа не найдена! Вот в этой строчке If InExpr<=5 then inc(Sum, InExpr)(!)

17.09.2010, 09:33	#14 (permalink)
Викто_р Member Регистрация: 12.09.2010 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Я вместо Inc написал Write и всё заработало, но вот не ссумирует когда ввожу!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

17.09.2010, 09:41	#16 (permalink)
Викто_р Member Регистрация: 12.09.2010 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	О да точно я его только сейчас то IF вводил не получалось)) Спасибо вы меня очень выручили!

17.09.2010, 09:50	#18 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ага, опоздал. Но программы удивительно схожи почему-то .