Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 21.10.2010, 19:29   #1 (permalink)
Gagarin614
Member
 
Регистрация: 17.10.2010
Сообщений: 43
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Задача о последовательности чисел

Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Определить, равны ли все отрицательные.
чет туплю............. я,помогите)
Gagarin614 вне форума   Ответить с цитированием

Старый 21.10.2010, 19:29
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Участники форума когда то создавали аналогичные темы

Сгенерировать последовательности на Delphi
Последовательности в С++
Ввод последовательности
Последовательности, Паскаль
Файл вещественных чисел

Старый 21.10.2010, 21:53   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,858
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от Gagarin614 Посмотреть сообщение
Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Определить, равны ли все отрицательные.
чет туплю............. я,помогите)
Например, так:
Код:
VAR
 A,C:REAL;
BEGIN
 C:=0;
 Repeat
  Write('Enter the next number ');
  ReadLn(A);
 Until (A<0) or (A=0);
 If A<0 then
  begin
   C:=A;
   Repeat
    Write('Enter the next number ');
    ReadLn(A);
   Until ((A<0) and (A<>C)) or (A=0);
  end;
 If (A<0) and (A<>C) then
  WriteLn('Negative numbers are NOT equal') else
 If (A=0) and (C=0) then
  WriteLn('There were no negative numbers') else
 WriteLn('All negative numbers are equal');
 ReadLn;
END.
И на будущее - пожалуйста, давая наименование темам, придерживайтесь Правил форума, в частности, п. 2.1.
Тема переименована.

Уже как модератор.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 21.10.2010, 23:36   #3 (permalink)
Gagarin614
Member
 
Регистрация: 17.10.2010
Сообщений: 43
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо большое
Gagarin614 вне форума   Ответить с цитированием
Старый 26.10.2010, 19:03   #4 (permalink)
Gagarin614
Member
 
Регистрация: 17.10.2010
Сообщений: 43
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

есть такой вопрос... не могли бы вы перепроверить вышесделанную программу у меня что то не коректно работает. При вводе переменных выдаются странные значения
Gagarin614 вне форума   Ответить с цитированием
Старый 26.10.2010, 20:41   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,858
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от Gagarin614 Посмотреть сообщение
есть такой вопрос... не могли бы вы перепроверить вышесделанную программу у меня что то не коректно работает. При вводе переменных выдаются странные значения
Я всегда тестирую программу, прежде чем выложить.
А можно подробнее? В чём проявляется некорректность? И какие такие значения "выдаются при вводе"? Ввод есть ввод, там вообще ничего выдаваться не должно.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 26.10.2010, 22:50   #6 (permalink)
Gagarin614
Member
 
Регистрация: 17.10.2010
Сообщений: 43
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

delete
Gagarin614 вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

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

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




Часовой пояс GMT +4, время: 06:00.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.