(паскаль абс,информатика,кто шарит?) Даны основания и высоты двух равнобедренных трапеций. Найти сумму их периметров. (Определить функцию для расчета
5-9 класс
|
периметра равнобедренной трапеции по ее основаниям м высоте.)
procedure Per(a,b,h:real;var p:real);
var c,d:real;
begin
d:=abs(a-b)/2;
c:=sqrt(h*h+d*d);
p:=2*c+a+b;
end;
var a1,b1,h1,a2,b2,h2,p1,p2,s:real;
begin
clrscr;
writeln('Parametri 1:');
write('1 osnovanie=');
readln(a1);
write('2 osnovanie=');
readln(b1);
write('h=');
readln(h1);
Per(a1,b1,h1,p1);
writeln('Parametri 2:');
write('1 osnovanie=');
readln(a2);
write('2 osnovanie=');
readln(b2);
write('h=');
readln(h2);
Per(a2,b2,h2,p2);
s:=p1+p2;
write('Summa=',s:0:2);
end.
Другие вопросы из категории
из одной школы высказались про своих учеников:1. первое место займет Вася, а Юра — второе;2. Саша займет второе место, а Вася — пятое;3. второе место займет Иван, а Гриша окажется четвертым;4. на первом месте будет Гриша, а Юра — на четвертом;5. Юра будет четвертым, а Иван — вторым.На самом деле жюри уже известно, что в каждом высказывании одно утверждение истинно, а второе — нет. Определите кто какое занял место и в ответе напишите пять имен через пробел Юра, Вася, Саша, Иван, Гриша, в порядке занятых ими мест, то есть если Юра - первый, Гриша - третий, Миша - второй, тогда в ответ укажите Юра Миша Гриша
Приведите пример.
передать через это же соединение за 125 секунд. В ответе укажите одно число — размер файла в Кбайтах. Единицы измерения писать не нужно.ПОООМММООГГИИИТТЕЕЕ!!!
Читайте также
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
файла.Результат поместить в файл g.
дан файл f компоненты которого являются целыми числамию Найти наибольший и наименьший из компонентов файла.результат поместить в файл g
ДАн файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g
Дан файл F компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f
Дан файл F компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.