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

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

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

Ответ
 
Опции темы
Старый 21.10.2018, 00:17   #1
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
Репутация: 10
По умолчанию Как считать первую переменную?

Дана последовательность вещественных чисел Ai, в которой первый член неотрицателен, а также присутствует хотя бы один член, меньший нуля. Необходимо найти произведение всех элементов последовательности, предшествующих первому отрицательному члену. Пусть n - номер первого отрицательного члена последовательности.
Код:

Var a,s:double;
Begin
while a>=1
do read(a);
s:=s+a;
writeln(s);
End.


Последний раз редактировалось Настя1303; 21.10.2018 в 00:22.
Настя1303 вне форума   Ответить с цитированием
Старый 21.10.2018, 09:46   #2
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 12,800
Репутация: 2143
По умолчанию

Вы всей группой с одними и теми же задачами будете приходить.

К чему вы привели этот код? Чтобы какой-то был? По условию массив - в коде нет, по условию отрицательность - в коде нет, по условию произведение - в коде нет...
__________________
Запомните раз и навсегда: помочь != "решите за меня"!

Последний раз редактировалось Вадим Мошев; 21.10.2018 в 15:16.
p51x на форуме   Ответить с цитированием
Старый 21.10.2018, 10:33   #3
CMY_3
Пользователь
 
Регистрация: 24.02.2016
Сообщений: 34
Репутация: 51
По умолчанию

Код:

Var a,s:double;
i,n : integer;
Begin
s:=1;
write('n='); readln(n);
for i := 1 to n-1 do begin 
  read(a);
  s:=s*a;
end;
writeln(s);
End.

CMY_3 вне форума   Ответить с цитированием
Старый 21.10.2018, 13:42   #4
jillitil
Форумчанин
 
Аватар для jillitil
 
Регистрация: 17.10.2018
Адрес: DS:SI
Сообщений: 80
Репутация: 149
По умолчанию

Код:

TYPE Arr = Array[0..10] of Single;
VAR
  A     : Arr;
  Mul   : Single;
  I     : Integer;
CONST
  AC    : Arr = (3, 0.1, 2, 3, 0.5, 0.5, 0.6, 7, 8, 9, -1); (* Обязательно должно одно значение быть меньше нуля *)
BEGIN
  A:= AC;
  I:= 0;
  Mul:= 1;
  Repeat
    Mul:= Mul * A[i];
    Inc(I);
  Until A[i] < 0;
  WriteLn('Mul= ', Mul:1:3);
END.


Последний раз редактировалось jillitil; 21.10.2018 в 13:48.
jillitil вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как в c++ считать с файла строку и загнать ее в переменную? что-б можно было считать 3-ю 4-ю и тд строки отдельно НАЧИНАЮЩИЙ_ПРО Помощь студентам 1 15.03.2017 17:28
C++ WinAPI - Считать символ с клавиатуры в символьную переменную Sierra26 Win Api 1 06.06.2015 19:41
Считать ответ на JAVA (Json)-зарос в переменную Diskretor Microsoft Office Excel 3 07.03.2012 02:55
считать из файла в word32 переменную Шаина Общие вопросы C/C++ 2 17.06.2010 23:58
Как считать int-овское число из файла в переменную? (Си) farewe11 Помощь студентам 5 31.05.2010 19:46


15:08.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru