| ← Апрель 2020 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
|
13
|
16
|
17
|
18
|
|||
|
21
|
22
|
23
|
24
|
|||
|
30
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 09.04.2020, 04:55 Консультирует puporev (Профессор): Здравствуйте, shevru02! Код (Pascal) :: выделить код function V(a,b,n,r,f:real):real;
begin
V:=n/(3*b)*a*(3*r*r-a*a)+3*r*r*(b-r)*f*pi/180;
end;
var a,b,n,r,f1,f2,h,f:real;
begin
repeat
writeln('Введите параметры 0<a<r<b');
readln(a,r,b);
until(a>0)and(r>a)and(b>r);
repeat
write('Введите параметр n>0 n=');
readln(n);
until n>0;
repeat
writeln('Введите начальный и конечный углы в градусах 0>fn>fk<360');
readln(f1,f2);
until(f1>0)and(f2>f1)and(f2<360);
repeat
write('Введите шаг в градусах 0<h<',f2-f1,' h=');
readln(h);
until (h>0)and(h<f2-f1);
f:=f1;
while f<f2+h/2 do
begin
writeln('f=',f:6:2,' V=',V(a,b,n,r,f):8:3);
f:=f+h;
end;
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
