Помогите, пожалуйста!!! - Форум
Воскресенье, 04.12.2016, 04:49
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите, пожалуйста!!! (Составление программы)
Помогите, пожалуйста!!!
NiwДата: Понедельник, 09.11.2009, 10:08 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
1)F(x) равно, фигурная скобка:
0, если х меньше или равно 1
1/х+6, если х больше 1

2) Найти площадь равнобедренной трапеции с основаниями a и b и углом альфа при большем основании a.

Сообщение отредактировал Niw - Понедельник, 09.11.2009, 10:09
 
SagyndykДата: Понедельник, 09.11.2009, 10:41 | Сообщение # 2
Сержант
Группа: Новичок
Сообщений: 7
[ 1 ]
Статус: Offline
program p1;
var x,fx:real;
begin
write('Введите х-');
readln(x);
If x<=1 then fx:=0 else fx:=1/x+6;
writeln('F(x)=',fx);
readln
end.
 
SagyndykДата: Вторник, 10.11.2009, 15:24 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 7
[ 1 ]
Статус: Offline
Сначала нодо найти формулу трапеции.
Формула: S=(a+b)*h, здесь h -высота трапеции.
h неизвестна, 2x=a-b, отсюда x=(a-b)/2
(h/x)=tg(alfa)
h=x*tg(alfa), тогда S=(a+b)*(a-b)/4*tg(alfa)
Но стоит учеть, угол alfa надо вводить с клавиатуры в радиане, а не в градусах.
Или может в программе надо формулу какую то написать.
У меня с математикой не очень и формул под рукой нету, а то ...

Program P2;
Var a, b, alfa:real;
begin
Write('введите основание трапеции а=');
readln(a);
Write('введите основание трапеции b=');
readln(b);
Write('введите угол alfa=');
readln(alfa);
S=(a+b)*(a-b)/4*tan(alfa);
Writeln('S=',S:6:4);
readln
end.

Есть рисунок

Прикрепления: 2240767.jpg(16Kb)
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите, пожалуйста!!! (Составление программы)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016