IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
Closed Topic Открыть новую тему 
> процедура! Реализуйте плиз, процедура
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 9
Пол: Женский
Реальное имя: Irinka

Репутация: -  0  +


Я уже устала от них. голова раскалывается. Но я не зря поступила в вуз. Прошу вас, напишите
мне программу, а то мне скоро сдавать, а я сама не смогу уже, пробовала:
Описать процедуру Minmax (A,B), записывающую в переменную A минимальное из значений A и B, а
в переменную B-максимальное из этих значений(A и B - вещественные параметры, являющиеся
одновременно входными и выходными). Используя 4 вызова этой процедуры, найти минимальное и
максимальное из чисел A,B,C,D.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 118
Пол: Женский

Репутация: -  0  +


procedure minmax(var A, B : real);
function min(a,b:real):real;
begin
if a>=b then begin
min:=b;
exit;
end;
if b>=a then begin
min:=a;
exit;
end;
end;
function max(a,b:real):real;
begin
if a>=b then begin
max:=a;
exit;
end;
if b>=a then begin
max:=b;
exit;
end;
end;
var I,j:real;
begin
i:=min(a,b);
j:=max(a,b);
a:=i;
b:=j;
end;


откомментируй как этот код работает.

а вопрос 2 - типичный пузырек


--------------------
Нам не дано предугадать как наше слово отзовется...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 9
Пол: Женский
Реальное имя: Irinka

Репутация: -  0  +


Цитата(Reflex @ 27.10.2006 21:11)
откомментируй как этот код работает.

Спасибо!!! Вы хотите что бы я откоментировала ? а зачем? еси скажете зачем то я откоментирую-найду время напишу!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Пионер
**

Группа: Пользователи
Сообщений: 118
Пол: Женский

Репутация: -  0  +


иначе от этого тебе пользы никакой не будет. преподаватель же не просто так тебе дал эту задачу.


--------------------
Нам не дано предугадать как наше слово отзовется...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Цитата(Reflex @ 27.10.2006 21:11) *

откомментируй как этот код работает.
а вопрос 2 - типичный пузырек

no1.gif Чего это ты тут наплел ? smile.gif Процедура MinMax должна выглядеть вот так, и ни как иначе:
procedure minMax (var a,b:real);
var x:real;
begin
if a>b then begin x:=a; a:=b; b:=x; end;
end;


А вот с 4-мя вызовами, не получится вроде sad.gif

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Пионер
**

Группа: Пользователи
Сообщений: 118
Пол: Женский

Репутация: -  0  +


пункт 1 не наплел а наплела!
А во вторых мой код тоже работает, но она просит решить элементарные задачи, а раз она их не может решить, то решим их как-то сложно ;)


--------------------
Нам не дано предугадать как наше слово отзовется...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Знаток
****

Группа: Пользователи
Сообщений: 424
Пол: Мужской

Репутация: -  2  +


Malice Reflex изучает паскаль второй месяц, сразу она до короткого решения не догадаеться ...


--------------------
Чего хочет женщина – того хочет Бог
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Пионер
**

Группа: Пользователи
Сообщений: 118
Пол: Женский

Репутация: -  0  +


А админов локалки некто не спрашивает mad.gif


--------------------
Нам не дано предугадать как наше слово отзовется...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Цитата
Reflex изучает паскаль второй месяц, сразу она до короткого решения не догадаеться ...
Сорри, если человек изучает Паскаль второй месяц, то он должен больше СПРАШИВАТЬ, а не ОТВЕЧАТЬ...

А уж если отвечаешь, то...

"Назвался груздем - ..." (С)

P.S. Будет продолжаться личная переписка - начнется отстрел...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Знаток
****

Группа: Пользователи
Сообщений: 424
Пол: Мужской

Репутация: -  2  +


Цитата
"Назвался груздем - ..." (С)
Это ты к чему?

 ! 
Ты опять за старое? Как знаешь... 10 дней премод...
Тема закрыта, все дружно говорим спасибо arhimag



Сообщение отредактировано: volvo -


--------------------
Чего хочет женщина – того хочет Бог
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.03.2024 13:35
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name