Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Народ помогите.

Автор: Under Mark 20.12.2007 21:17

к зачету нужно решить решить в Pascal abc задачи из Programming Taskbook mega_chok.gif :
for14,while11,series19,proc11,proc20.
а я в паскале ваще полный 0 norespect.gif (((помогите пожалуйста!!! wacko.gif
вот сами задачи:
for14
дано целое число N(>0).Найти квадрат данного числа, используя для его вычислений следующую формулу:
N2(в квадрате)=1+3+5+...+(2*N-1)(*-умножение)
после добавления к сумме каждого слогаемого выводить текущее значение суммы(в результате будут выведены квадраты всех целых чисел от 1 до N)

While14:
Дано целое число N(>1).вывести наименьшее из целых чисел K, для которых сумма 1+2+...+K будет больше или равна N, и саму эту сумму.

Series19:
дано целое число N(>1)и набор из N целых чисел.Вывести те элименты в наборе, которые меньше своего левого соседа, и количество K таких элиментов.


proc 11
Описать процедуру Minmax(x,Y),записывающую в переменную Х минимальные из значений Х и Y, а в переменную Y-максимальные из этих значений (Х и Y-вещественные параметры, являющиеся одновременно входными и выходными).Используя четыре вызова этой процедуры,найти минимальное и максимальное из данных чисел А,В,С,D

Proc 20:
Описать функцию TriangleP(a, h), находящую периметр равнобедренного треугольника по его основанию а и высоте h, проведенной к основанию (a и h-вещественные). С помощью этой функции найти периметры трех треугольников, для которых даны основания и высоты. для нахождения боковой стороны b треугольника использовать теорему пифагора b2(2-в квадрате)=(а/2)2(в квадрате)+H2(в квадрате)

буду очень благодарен!

Автор: klem4 20.12.2007 21:21

Оформи тему как следует, прочитав предварительно правила, иначе она будет закрыта.

Автор: Under Mark 20.12.2007 21:35

Цитата(klem4 @ 20.12.2007 17:21) *

Оформи тему как следует, прочитав предварительно правила, иначе она будет закрыта.

так нормально?или еще что то изменить надо?если надо то что??

Автор: Michael_Rybak 20.12.2007 22:05

М
Не нормально.

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
6. Одна тема - один вопрос (задача)


Автор: Client 20.12.2007 22:36

Цитата
Описать процедуру Minmax
Воть...
uses crt;
var
a,b,c,d:real;

procedure max(var x,y:real);
var
c:real;
begin
if x>y then begin
c:=x;
x:=y;
y:=c
end
end;

begin
clrscr;
write(' Vvedite: ');
readln(a,b,c,d);
max(a,d);
max(a,b);
max(c,d);
max(b,c);
write(' ',a:0:4,' ',b:0:4,' ',c:0:4,' ',d:0:4);
readkey
end.