PDA

Просмотр полной версии : Pascal Help



Impulsive
07.12.2007, 14:08
Хоть задачка и легкая - подскажите где ее можно подглядеть - как образец:

x=max(A,B)+min(A,D)

Благодарен...

Хыиуду
07.12.2007, 15:35
на каком хоть языке? Честное слово, задачка - секунду мозгом подумать.

Impulsive
07.12.2007, 16:58
Хыиуду =) Я написал на Паскале!!! ( в теме)

Impulsive
08.12.2007, 11:24
Не кто не поможет!!?? Парни!!!! Сдовать в понедельник. =(

Impulsive
09.12.2007, 11:34
Парни - ну проверти хотябы!!!!

Program a1;

var A,B,C,D,x,max,min: real;

Begin

writeln('BBeguTe 3Ha4eHu9 A,B,C,D');
readln(A,B,C,D);

if A>B then max:=A else max:=B;
if C<D then min:=C else min:=D;

x:=max+min;

writeln('x=',x);

Readln;
end.

Serge_Bliznykov
09.12.2007, 14:01
да, всё отлично.
единственное, что я бы задал формат вывода:
writeln('x=',x:1);

Impulsive
09.12.2007, 16:04
да, всё отлично.
единственное, что я бы задал формат вывода:
writeln('x=',x:1);

И правда, ок, спасиб!;)

Serge_Bliznykov
09.12.2007, 19:00
и ещё
Может быть, Вам всё же нужно было разработать и использовать функции Max(..) и Min(...) ?
я бы на вашем месте, был бы готов к такому повороту событий. или сразу написал бы вариант программы с такими функциями...
Сами справитесь?

Impulsive
09.12.2007, 22:52
Serge_Bliznykov спасиб, но в данном случае это не нужно! Тем более писал её не для себя, а на ихнем факультете и такого хватит!

KEF
11.12.2007, 20:24
Помагите пожалусто.
Массивы
1. Найти минимальный из положительных элементов массива.
2. Упорядочить элементы массива по убыванию и вычислить произведение первого и последнего элементов.
3. Вставить 2 перед каждым элементом массива A(N), большим заданного числа В.

Хыиуду
12.12.2007, 11:00
1. Раздел Алгоритмы, тема Поиск минимума
2. Там же, тема Упорядочивание массива