Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 18.05.2014, 02:10   #1 (permalink)
yanna
Новичок
 
Регистрация: 06.05.2014
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Блок-схема

помогите, пожалуйста, составить блок схемы для данных программ
буду очень признательна!)

1)program zadanie211a;
var
chisl,znam,x,y:real;

begin
write('Введите х = ');
read(x);

chisl:=(8*sqr(x)-6*x+1)*(1/4);
znam:=pi/2-arctan(sqrt(2*x+1));
y:=chisl/znam+exp(sin(x)/abs(x)*ln(2));

write('y = ',y);
end.
2)program zadanie211b;
var
x,y,r:real;

begin
write('Введите R = ');
read(r);
write('Введите х = ');
read(x);

if (x <= -r) or (x = r) then
y:=0;
if (x > -r) and (x < r) then
y:=sqrt(sqr(r)-sqr(x));
if x > r then
y:=x-r;

write('y = ',y);
end.
3)program zadanie211v;
var
x,y,a,b,c:real;

begin
write('Введите A = ');
read(a);
write('Введите B = ');
read(b);
write('Введите C = ');
read(c);
write('Введите х = ');
read(x);

if ((a < b) and (x >= a) and (x <= b))
or ((a > b) and (x <= a) and (x >= b)) then
y:=a*sqr(x)+b*x+c
else
4)program zadanie311a;
var
chisl,znam,x,y,h:real;
i,n,a,b:integer;

begin
a:=1;
b:=2;
n:=10;

h:=(b-a)/n;

for i:=0 to n-1 do
begin
x:=a+i*h;

chisl:=(8*sqr(x)-6*x+1)*(1/4);
znam:=pi/2-arctan(sqrt(2*x+1));
y:=chisl/znam+exp(sin(x)/abs(x)*ln(2));

write('y = ',y:2:2,'; ');
end;
end.
5)program zadanie311b;

var
s,a:real;
i:integer;

begin
repeat
inc(i);
a:=sqrt(i+1)-sqrt(i);
s:=s+a;
until a < 0.001;

write('Сумма = ',s);
end.
yanna вне форума   Ответить с цитированием

Старый 18.05.2014, 02:10
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме уже встречались схожие проблемы, посмотрите

Блок-схема
Блок-схема 1
Блок-схема
Блок-схема
Блок-схема 2
Блок-схема

Старый 18.05.2014, 10:19   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,863
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Составить алгоритм в блок схемах по коду
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:04.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.