Страница 1 из 2
Pascal Help
Добавлено: 07 дек 2007, 14:08
Impulsive
Хоть задачка и легкая - подскажите где ее можно подглядеть - как образец:
x=max(A,B)+min(A,D)
Благодарен...
Re: Pascal Help
Добавлено: 07 дек 2007, 15:35
Хыиуду
на каком хоть языке? Честное слово, задачка - секунду мозгом подумать.
Re: Pascal Help
Добавлено: 07 дек 2007, 16:58
Impulsive
Хыиуду =) Я написал на Паскале!!! ( в теме)
Re: Pascal Help
Добавлено: 08 дек 2007, 11:24
Impulsive
Не кто не поможет!!?? Парни!!!! Сдовать в понедельник. =(
Re: Pascal Help
Добавлено: 09 дек 2007, 11:34
Impulsive
Парни - ну проверти хотябы!!!!
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.
Re: Pascal Help
Добавлено: 09 дек 2007, 14:01
Serge_Bliznykov
да, всё отлично.
единственное, что я бы задал формат вывода:
writeln('x=',x:1);
Re: Pascal Help
Добавлено: 09 дек 2007, 16:04
Impulsive
Serge_Bliznykov писал(а):да, всё отлично.
единственное, что я бы задал формат вывода:
writeln('x=',x:1);
И правда, ок, спасиб!
Re: Pascal Help
Добавлено: 09 дек 2007, 19:00
Serge_Bliznykov
и ещё
Может быть, Вам всё же нужно было разработать и использовать функции Max(..) и Min(...) ?
я бы на вашем месте, был бы готов к такому повороту событий. или сразу написал бы вариант программы с такими функциями...
Сами справитесь?
Re: Pascal Help
Добавлено: 09 дек 2007, 22:52
Impulsive
Serge_Bliznykov спасиб, но в данном случае это не нужно! Тем более писал её не для себя, а на ихнем факультете и такого хватит!
Re: Pascal Help
Добавлено: 11 дек 2007, 20:24
KEF
Помагите пожалусто.
Массивы
1. Найти минимальный из положительных элементов массива.
2. Упорядочить элементы массива по убыванию и вычислить произведение первого и последнего элементов.
3. Вставить 2 перед каждым элементом массива A(N), большим заданного числа В.