wmmail.ru – cервис почтовых рассылок на главную
написать письмо
карта сайта

С чего начать?РекламодательПравилаFAQСтатистикаБиржа статейTOP100ФоткиКонтакты
Логин:
Пароль: 
Регистрация   Забыли пароль?
WMLogin
Пользователей всего:

542549

Пользователей сегодня:

38

Пользователей online:

178

Выплачено ($): 7`602`611,76
Выплат: 8`111`715
Писем прочитано: 1`024`931`468

 
 
Online 2
Все ответы
 
 

Вопрос #5983

Внимание! В разделе вопрос-ответ запрещается:

  • Мат, оскорбления, флуд, реклама
  • Сообщения, не являющиеся вопросами/ответами
  • Нарушение законодательства РФ
  • Попрошайничество в любой форме

Выделите текст и нажмите для цитирования  #  
+1   [09.09.2010 21:35] White_War Рейтинг 45.11     Стена пользователя White_War +91

Закрытый вопрос от пользователя White_War Program помогите пожалуйста!!!

var ch,min:integer;
begin
writeln('Vvedit riad chisel');
read(ch);
min:=ch;
while ch0 do
begin
read(ch);
if min>ch then min:=ch;
end;
writeln(min);
readln
end.
Подскажите как проверить переменную в цыкле на ноль?
Раздел: Программирование, последний комментарий: 11.09.2010 01:34
Проголосовали: #740339

Ответы
Ответов всего: 10  вопрос закрыт 
Выделите текст и нажмите для цитирования  #  
0   [09.09.2010 21:40] #665191   Все ответы пользователя

Надо же, паскаль собственной персоной.

Добавлено спустя 35 секунд
Какую из переменных тебе проверять надо. У тебя их тут 2 штуки
Выделите текст и нажмите для цитирования  #  
0   [09.09.2010 21:42] White_War Рейтинг 45.11     Стена пользователя White_War +91  Все ответы пользователя White_War

которую получаю min
Выделите текст и нажмите для цитирования  #  
0   [09.09.2010 21:43] #665191   Все ответы пользователя

типа
if min=0 then
ну и дальше действия нужные

Добавлено спустя 32 секунды
Это перед строкой if min>ch then min:=ch;

Добавлено спустя 01 минуту 09 секунд
Да и боюсь одну из переменных надо array сделать (массив)
Выделите текст и нажмите для цитирования  #  
0   [09.09.2010 21:45] White_War Рейтинг 45.11     Стена пользователя White_War +91  Все ответы пользователя White_War

а как сделать что бы выводило 2 минимальных числа???
Выделите текст и нажмите для цитирования  #  
0   [09.09.2010 21:46] #665191   Все ответы пользователя

#665191 пишет Это перед строкой if min>ch then min:=ch;

Ну или после. Не знаю там что тебе надо. Я такими каликуляторами не занимаюсь

Добавлено спустя 48 секунд
White_War пишет а как сделать что бы выводило 2 минимальных числа???

Я щас не соображу. Я изучал паскаль больше 2 лет назад.
Я щас на делфи программирую
Выделите текст и нажмите для цитирования  #  
0   [09.09.2010 21:47] White_War Рейтинг 45.11     Стена пользователя White_War +91  Все ответы пользователя White_War

спасибо я уже догадался за ноль мне бы во сделать что бы выводило 2 минимальных числа. :help:

Добавлено спустя 32 секунды
и на это тебе спасибо!!!:help::help:
Выделите текст и нажмите для цитирования  #  
+1   [09.09.2010 22:23] #661644   Все ответы пользователя

White_War пишет спасибо я уже догадался за ноль мне бы во сделать что бы выводило 2 минимальных числа.

Во-первых, ch должен быть массивом.
Во вторых, тебе нужна ещё 1 переменная, которой ты будешь присваиать значение переменной min, если очередной элемент массива будет меньше. Если надо, могу попробовать написать прогу, но не гарантирую отсутствие ошибок, так как давно это учила)
Проголосовали: kolovorot
Выделите текст и нажмите для цитирования  #  
0   [10.09.2010 09:28] Head_Devil Рейтинг 1162.66     Стена пользователя Head_Devil +33  Все ответы пользователя Head_Devil

Текать с вопроса, это какая то высшая материя
Выделите текст и нажмите для цитирования  #  
0   [10.09.2010 12:15] #711573   Все ответы пользователя

А ты Pascal изучаешь, я программирую на институтском уровне, пиши в личку обязательно подскажу.
Выделите текст и нажмите для цитирования  #  
0   [11.09.2010 01:34] boroda340 Рейтинг 0.00     Стена пользователя boroda340 +54  Все ответы пользователя boroda340

никогда:tongue:

Видеоурок

Вопрос-ответ

НОВОСТИ
21.02.2024QIWI
подробнее>>
31.12.2023С Новым 2024 Годом!
подробнее>>

© 2004-2024 «WMMAIL» Пользовательское соглашение