Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

(паскаль абс,информатика,кто шарит?) Даны основания и высоты двух равнобедренных трапеций. Найти сумму их периметров. (Определить функцию для расчета

5-9 класс

периметра равнобедренной трапеции по ее основаниям м высоте.)

Чернышёва58 17 мая 2014 г., 0:51:40 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Fira1995
17 мая 2014 г., 2:09:13 (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. Юра будет четвертым, а Иван — вторым.На самом деле жюри уже известно, что в каждом высказывании одно утверждение истинно, а второе — нет. Определите кто какое занял место и в ответе напишите пять имен через пробел Юра, Вася, Саша, Иван, Гриша, в порядке занятых ими мест, то есть если Юра - первый, Гриша - третий, Миша - второй, тогда в ответ укажите Юра Миша Гриша

Файл раз­ме­ром 2 Мбай­та пе­ре­даётся через не­ко­то­рое со­еди­не­ние за 50 се­кунд. Опре­де­ли­те раз­мер файла (в Кбай­тах), ко­то­рый можно

пе­ре­дать через это же со­еди­не­ние за 125 се­кунд. В от­ве­те ука­жи­те одно число — раз­мер файла в Кбай­тах. Еди­ни­цы из­ме­ре­ния пи­сать не нужно.ПОООМММООГГИИИТТЕЕЕ!!!

Читайте также

Pascal!

Даны основания и высота р/б трапеции. Найти ее периметр!

1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов

2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.

1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже

паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль

Ребятки!!!!ПОмогите пожалуйста очень срочно!!!! Дан файл f компоненты которого действительные числа.Найти сумму компонентов

файла.Результат поместить в файл g.

дан файл f компоненты которого являются целыми числамию Найти наибольший и наименьший из компонентов файла.результат поместить в файл g

ДАн файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g

Дан файл F компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f

Дан файл F компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.



Вы находитесь на странице вопроса "(паскаль абс,информатика,кто шарит?) Даны основания и высоты двух равнобедренных трапеций. Найти сумму их периметров. (Определить функцию для расчета", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.