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

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

542596

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

86

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

136

Выплачено ($): 7`602`661,58
Выплат: 8`111`850
Писем прочитано: 1`024`932`848

 
 
Online 1
Все ответы
 
 

Вопрос #6246

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

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

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

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

var ch,min:integer;
begin
writeln('Vvedit riad chisel');
read(ch);
min:=ch;
while ch0 do
begin
read(ch);
if min>ch and (ch0) then min:=ch;
end;
writeln(min);
readln
end.
помогите как сделать чтобы выводило 2 минимальных числа!??
Раздел: Программирование, последний комментарий: 13.09.2010 23:16

Ответы
Ответов всего: 24  вопрос закрыт 
Выделите текст и нажмите для цитирования  #  
+1   [13.09.2010 21:04] #638453   Все ответы пользователя

Фига се :shocking:
Проголосовали: zifirok
Выделите текст и нажмите для цитирования  #  
+1   [13.09.2010 21:06] #750528   Все ответы пользователя

Мда.. это вам не HTML :no:
Проголосовали: White_War
Выделите текст и нажмите для цитирования  #  
+1   [13.09.2010 21:07] White_War Рейтинг 45.11     Стена пользователя White_War +91  Все ответы пользователя White_War

#750528 пишет Мда.. это вам не HTML :no:

это Pascal:help::help:
Проголосовали: Adelante
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:08] Narbias Рейтинг 676.89     Стена пользователя Narbias +122  Все ответы пользователя Narbias

Что это? Много букав... :smok:
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:08] shellby Рейтинг 248.73     Стена пользователя shellby +78  Все ответы пользователя shellby

на Pascal похоже:confused:
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:08] White_War Рейтинг 45.11     Стена пользователя White_War +91  Все ответы пользователя White_War

Narbias пишет Что это? Много букав... :smok:

почему???
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:09] shellby Рейтинг 248.73     Стена пользователя shellby +78  Все ответы пользователя shellby

White_War пишет
#750528 пишет Мда.. это вам не HTML :no:

это Pascal:help::help:

чет не вижу из чего выбираются эти два минимальных числа
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:10] #717266   Все ответы пользователя

Задача случайно не со школы ??? :cool:
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:11] #748989   Все ответы пользователя

НАПИШИ ЗАДАНИЕ ПОПРОБУЮ РЕШИТь
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:12] White_War Рейтинг 45.11     Стена пользователя White_War +91  Все ответы пользователя White_War

#717266 пишет Задача случайно не со школы ??? :cool:

оттудова, откудаже еще)))
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:12] shellby Рейтинг 248.73     Стена пользователя shellby +78  Все ответы пользователя shellby

мне что то изнутри подсказывает что тебе нужно создавать массив, записывать туда введенные числа и уже из них выбирать числа:huh:
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:14] White_War Рейтинг 45.11     Стена пользователя White_War +91  Все ответы пользователя White_War

#748989 пишет НАПИШИ ЗАДАНИЕ ПОПРОБУЮ РЕШИТь

вводятся числа в ряд, ряд обязательно кончается 0, найти 2 минимальных числа этого ряда=))

Добавлено спустя 02 минуты 01 секунду
shellby пишет мне что то изнутри подсказывает что тебе нужно создавать массив, записывать туда введенные числа и уже из них выбирать числа:huh:

не, я был на факультативе сделал через массив, так он мне сказал: "Либо я делаю как он говорит, либо Вали Н*Х!!!"=)))
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:19] #665191   Все ответы пользователя

Не люблю паскаль.
Выделите текст и нажмите для цитирования  #  
+1   [13.09.2010 21:27] #697464   Все ответы пользователя

Чтобы 2 минимальных выводилось напиши так:
if min>ch and (ch0) then begin
min1:=min;
min:=ch;
end;
Ну и потом:
writeln(min, min1);
Синтаксис уже не помню...
Таким образом, если вводишь меньше, чем мин, то в мин1 запоминается предыдущее минимальное число, а в мин нынешнее..
Проголосовали: Adelante
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:28] shellby Рейтинг 248.73     Стена пользователя shellby +78  Все ответы пользователя shellby

[/quote]
не, я был на факультативе сделал через массив, так он мне сказал: "Либо я делаю как он говорит, либо Вали Н*Х!!!"=)))[/quote]

у меня такое было в институте на экзамене, поставил мне 2, пришлось доказывать чей метод практичней. Исправил на 5. Ох уж эти самолюбивые преподаватели.:rolleyes:
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:29] #697464   Все ответы пользователя

ch0 это я так понимаю (ch не равно 0) :smile:
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:34] White_War Рейтинг 45.11     Стена пользователя White_War +91  Все ответы пользователя White_War

#697464 пишет ch0 это я так понимаю (ch не равно 0) :smile:

да то опечатка))
Выделите текст и нажмите для цитирования  #  
+1   [13.09.2010 21:37] #697464   Все ответы пользователя

то не опечатка, а движок воспринимает угловые скобки как теги и убирает их :)
Проголосовали: White_War
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:40] White_War Рейтинг 45.11     Стена пользователя White_War +91  Все ответы пользователя White_War

#697464 пишет Чтобы 2 минимальных выводилось напиши так:
if min>ch and (ch0) then begin
min1:=min;
min:=ch;
end;
Ну и потом:
writeln(min, min1);
Синтаксис уже не помню...
Таким образом, если вводишь меньше, чем мин, то в мин1 запоминается предыдущее минимальное число, а в мин нынешнее..

1 вопрос этот код в цыкл?
2 констатация факта: выводит мне значение 0!!! а недолжно!!!:help:
Выделите текст и нажмите для цитирования  #  
+1   [13.09.2010 21:45] #697464   Все ответы пользователя

тот код вместо этого:
if min>ch and (ch0) then min:=ch;
Проголосовали: White_War
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:47] White_War Рейтинг 45.11     Стена пользователя White_War +91  Все ответы пользователя White_War

#697464 пишет тот код вместо этого:
if min>ch and (ch0) then min:=ch;

спс тебе все поканало=))):thumbsup:
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 21:47] #697464   Все ответы пользователя

И еще в секцию var добавь min1. Вот так:
var ch,min,min1:integer;

Добавлено спустя 58 секунд
White_War пишет спс тебе все поканало=)))

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

#697464 пишет И еще в секцию var добавь min1. Вот так:
var ch,min,min1:integer;

Добавлено спустя 58 секунд
White_War пишет спс тебе все поканало=)))

:drink:

это я уж то знаю=))):drink::drink:

Добавлено спустя 36 минут 49 секунд
вопрос можно закрывать!!!

Добавлено спустя 36 минут 51 секунду
вопрос можно закрывать!!!
Выделите текст и нажмите для цитирования  #  
0   [13.09.2010 23:16] #103207   Все ответы пользователя

var ch, min1, min2: integer;
begin
writeln('Vvedit riad chisel');
readln(ch);
min1 := ch;
min2 := 0;
while ch <> 0 do
begin
readln(ch);
if (min2 <> 0) and (min1 > ch) and (ch <> 0) then
begin
min2 := min1;
min1 := ch;
end;

if (min2 = 0) and (ch <> min1) and (ch <> 0) then
begin
if min1 > ch then
begin
min2 := min1;
min1 := ch;
end
else min2 := ch;
end;
end;
write('min1=');
if min1 = 0 then writeln('not found')
else writeln(min1);
write('min2=');
if min2 = 0 then writeln('not found')
else writeln(min2);
readln;
end.

Ы а так правильнее :smile:

Видеоурок

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

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

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