| ← Декабрь 2016 → | ||||||
|
1
|
2
|
4
|
||||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
|
12
|
14
|
15
|
16
|
17
|
18
|
|
|
19
|
20
|
21
|
22
|
25
|
||
|
26
|
27
|
28
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте, я очень нуждаюсь в помощи специалиста в области Pascal. Вообщем дело такого: мне нужно решить Лабораторную работу№5 в моей методичке, пытался сделать но что-то не так, блок схема не та что нужно( не пойму как описать промежуток -5 до 5 в блок схеме ну и в паскале). Если не сложно, составьте программу с блок-схемой с кратким объяснением если вам не трудно (Задание №17 нужно только). Спасибо за внимание!
Дата отправки: 13.12.2016, 17:18 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, sting.net.den! Код (Pascal) :: выделить код function f(c:real):real;
begin
f:=1.7*c*c*c-5.6*cos((2*c-1)/(c*c+3.4));
end;
var
a,b,c,h:real;
begin
{вводим предел}
repeat
write('enter b>-2:');
readln(b);
until (b>-2);
{вводим шаг}
repeat
write('step h>0:');
readln(h);
until h>0;
{начало цикла}
a:=-2;
repeat
c:=f(a);
{проверка -5:5}
if abs(c)<=5 then writeln('f(',a,'):=',c);
a:=a+h;
until a>b;{сам цикл}
end.
Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
