Написать программы в Паскале.
1) нахождение периметра и площади треугольника
2) найти произведение четных числе от 10 до 99
3) для различных вводимых с клавиатуры чисел, найдите сумму положительных нечетных чисел.
4) вычислить у, если... (смотреть внизу )
Приложения:
![](https://st.uroker.com/files/4c9/4c965080b46cadc80b63254676d798fc.png)
Ответы
Ответ дал:
0
Programa vichislenie_ploshadi_treug_po_Geronu;
Var a,b,c,S,p:real;
begin
writenLn(‘dliny storon’);
readLn(a);
readLn(b);
readLn(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writenLn(‘ploshad=’,S);
end.
4. Выполнение.
Alt+F9 – компиляция, проверка на ошибки.
Ctrl+F9-выполнение программы.
Вводим переменные(длины сторон треугольника).
Alt+F5 – просмотре результатов.
Получаем на экране ответ.
5. Объяснение:
Programa vichislenie_ploshadi_treug_po_Geronu;(название программы)
Var a,b,c,S,p:real;(переменные в программе)
begin(начало рабочей области)
writenLn(‘dliny storon’);(оператор ввода оповещает о необходимости ввести переменные)
readLn(a);
readLn(b);
readLn(c);(считывается значение переменных в память компьютера)
p:=(a+b+c)/2;(рассчитывается полупериметр)
S:=sqrt(p*(p-a)*(p-b)*(p-c));(рассчитывается площадь треугольника)
writenLn(‘ploshad=’,S);(вывод результата на экран)
end.(конец рабочей области)
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
Var a,b,c,S,p:real;
begin
writenLn(‘dliny storon’);
readLn(a); readLn(b); readLn(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writenLn(‘ploshad=’,S);
end.
4. Выполнение. Alt+F9 – компиляция, проверка на ошибки.
Ctrl+F9-выполнение программы. Вводим переменные(длины сторон треугольника).
Alt+F5 – просмотре результатов. Получаем на экране ответ.