к зачету нужно решить решить в Pascal abc задачи из Programming Taskbook :
for14,while11,series19,proc11,proc20.
а я в паскале ваще полный 0 (((помогите пожалуйста!!!
вот сами задачи:
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(в квадрате)
буду очень благодарен!
Оформи тему как следует, прочитав предварительно правила, иначе она будет закрыта.
М | Не нормально. 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 6. Одна тема - один вопрос (задача) |
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.