Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Октябрь 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на языке Pascal

Выпуск № 326
от 10.10.2004, 20:30

Администратор:
Имя: Sensey
URL: Информационный ресурс
ICQ: 105679124
Украина, Харьков		 О рассылке:
Задано вопросов: 524
Отправлено ответов: 1985
Активность: 378.8 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]

 Список экспертов, ответы которых опубликованы в данном выпуске

Strory
Статус: Опытный
Общий рейтинг: 159.21
URL: МУАТ
Телефон: +7 (845-3) 54-16-74
[Подробней >>] 		sir henry
Статус: Профессиональный
Общий рейтинг: 162.71
[Подробней >>] 		Boriss
Статус: Профессиональный
Общий рейтинг: 157.02
URL: Программирование на Паскале
[Подробней >>]
 
Василевский Александр
Статус: Доверительный
Общий рейтинг: 114.58
[Подробней >>] 		Snowm@n
Статус: Опытный
Общий рейтинг: 106.91
[Подробней >>] 		Roman
Статус: Опытный
Общий рейтинг: 120.67
URL: Сайт про заработок
[Подробней >>]
 
Tigran K. Kalaidjian
Статус: Профессиональный
Общий рейтинг: 183.24
URL: Персональная страничка
[Подробней >>]

 Краткий перечень вопросов

Вопрос № 521. cac mojno uznati cacoi iz a , b , c , d menshii ????... (ответов: 7)
Вопросов: 1, ответов: 7

 Вопрос № 521
cac mojno uznati cacoi iz a , b , c , d menshii ????

Вопрос отправлен: 07.10.2004, 13:36
Отправитель: spider
[Следующий вопрос >>] [Список вопросов]

Отвечает Strory

Здравствуйте, spider!
Используйте конструкцию if (если). Вот формат:
if условие then команда else команда;
Можно использовать без else.
Например:
if a < b then WriteLn('a < b') else WriteLn('a > b');
Если а меньше б, то выведет "а < b", иначе "a > b".
Способ два: можно у кого-нибудь спросить :)
Ответ отправлен: 07.10.2004, 15:06
Отправитель: Strory

Отвечает sir henry

Добрый день, spider!
Только сравнивая их между собой.
:)
Ответ отправлен: 08.10.2004, 09:35
Отправитель: sir henry

Отвечает Boriss

Доброе время суток, spider!
var
a, b, c, d, min: Integer;
begin
a:=random(100);
b:=random(100);
c:=random(1000);
d:=random(200);
min:=a;
if min < b then min:=b;
if min < c hten min:=c;
if min < d then min:=d;
WriteLn(a,' ', b,' ', d,' ',min);
end.
Ответ отправлен: 07.10.2004, 14:24
Отправитель: Boriss

Отвечает Василевский Александр

Доброе время суток, spider!
Если я правильно понял, то нужно найти меньшее из четырёх чисел. Это делается просто. Сперва сравниваются первые два числа, затем вторые два числа. Потом сравниваются меньшие числа из каждой пары.
...
FUNCTION Minimal( a, b: INTEGER): INTEGER;
BEGIN
IF ( a ELSE Minimal := b;
END;
...
VAR a, b, c, d, min: INTEGER;
...
min := Minimal( Minimal( a, b ), Minimal( c, d ) );
...
Ответ отправлен: 07.10.2004, 13:50
Отправитель: Василевский Александр

Отвечает Snowm@n

Приветствую Вас, spider!
Загнать в массив:
var mas:array [1..4] of integer;
i,a,b,c,d,min:integer;
begin
a[1]:=a;a[2]:=b;a[3]:=c;a[4]:=d;
min:=a[1];
for i:=2 to 4 do if a[i] writeln('min=',min);
end.
Ответ отправлен: 08.10.2004, 08:18
Отправитель: Snowm@n

Отвечает Roman

Здравствуйте, spider!
Сначало сравнить а и б, потом ц и д потом сравнить получившиеся меньшие.
Ответ отправлен: 08.10.2004, 12:36
Отправитель: Roman

Отвечает Tigran K. Kalaidjian

Приветствую Вас, spider!
max:=a;
if b>max then max:=b;
if c>max then max:=c;
Ответ отправлен: 08.10.2004, 20:35
Отправитель: Tigran K. Kalaidjian

Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.
 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке

 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:

 Выбор рассылки

Программисту
Assembler (28)
C / C++ (16)
Perl (7)
Builder / Delphi (16)
Pascal (20)
Basic / VBA (9)
Java / JavaScript (7)
PHP (18)
Криптография (10)
WinAPI (14)
Радиоэлектроника (17)
 Пользователю
Windows 95/98/Me (44)
Windows NT/2000/XP (61)
"Железо" (38)
Поиск информации (22)
 Администратору
Windows NT/2000/XP (42)
Linux / Unix (18)
 Юристу
Гражданское право (8)
Семейное право (5)
Трудовое право (7)
КоАП (5)

Отправить вопрос всем экспертам выбранной рассылки.
Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование

hotlog_js="1.0";hotlog_d=document; hotlog_n=navigator;hotlog_rn=Math.random(); hotlog_n_n=(hotlog_n.appName.substring(0,3)=="Mic")?0:1; hotlog_r=""+hotlog_rn+"&s=25513&im=127&r="+escape(hotlog_d.referrer)+"&pg="+ escape(window.location.href); hotlog_d.cookie="hotlog=1"; hotlog_r+="&c="+(hotlog_d.cookie?"Y":"N"); hotlog_d.cookie="hotlog=1; expires=Thu, 01-Jan-70 00:00:01 GMT" hotlog_js="1.1";hotlog_r+="&j="+(navigator.javaEnabled()?"Y":"N") hotlog_js="1.2";hotlog_s=screen; hotlog_r+="&wh="+hotlog_s.width+'x'+hotlog_s.height+"&px="+((hotlog_n_n==0)? hotlog_s.colorDepth:hotlog_s.pixelDepth) hotlog_js="1.3" hotlog_r+="&js="+hotlog_js; hotlog_d.write("HotLog") Яндекс цитирования
© 2001-2004 Россия, Москва. Идея, дизайн, программирование: Калашников О.А. ICQ: 68951340
При перепечатке материалов ссылка на данный сайт обязательна!
http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus		 Отписаться
В избранное