Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
chap
0 / 0 / 1
Регистрация: 06.05.2013
Сообщений: 28
1

Блок-схема для алгоритма циклической структуры

22.05.2013, 16:44. Просмотров 1083. Ответов 2
Метки нет (Все метки)

1 с операторами while-do
2 - until-repeat
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2013, 16:44
Ответы с готовыми решениями:

Блок-схема алгоритма
необходимо составить в текстовом процессоре схему алгоритма для проведения...

Блок-схема алгоритма сортировки массива
Написал программу и к ней нужно сделать блок-схему. Нашел кучу инфы, как...

Блок-схема алгоритма вычисления выражения
программа var x,y:real; begin write('vvedite x='); readln(x); if x<=-1...

Блок-схема алгоритма
нужно написать блок-схему и написать программу в паскале. я чет вообще не...

Приведена блок-схема алгоритма

2
Gidropon
75 / 75 / 52
Регистрация: 28.02.2013
Сообщений: 206
Записей в блоге: 9
22.05.2013, 16:57 2
Соблюдая правила форума,напишите код в текстовом виде
1
chap
0 / 0 / 1
Регистрация: 06.05.2013
Сообщений: 28
22.05.2013, 18:36  [ТС] 3
Лучший ответ Сообщение было отмечено chap как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var x,xn,dx,y:real;
begin
writeln('vvedite xn,dx');
readln(xn,dx);
begin repeat
if abs(x*x-3*x-4)=0 then
writeln('no decisions')
else
begin
y:=exp(ln(abs(x*x-3*x-4))/3;
if x*x-3*x-4<0 then y:=y;
y:=y/(sin(1,5*x+1)+exp(3*x-0.8));
y:=y+sin(1,5*x-4)/cos(1,5*x-4);
writeln('y(',x:4:1,') = ' ,y:0:5);
end;
x:=x+dx;
until x>5;
readln;
end;
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var x,xn,dx,y:real;
begin
writeln('vvedite xn,dx');
readln(xn,dx);
while x<-5 do
begin
if abs(x*x-3*x-4)=0 then
writeln('no decisions')
else
begin
y:=exp(ln(abs(x*x-3*x-4))/3);
if x*x-3*x-4<0 then y:=-y;
y:=y/(sin(1,5*x+1)+exp(3*x-0,8));
y:=y+sin(1,5*x-4)/cos(1,5*x-4);
writeln('y(',x:4:1,') =' ,y:0:5);
end;
x:=x+dx;
end;
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2013, 18:36

Блок-схема алгоритма вычисления произведения элементов квадратной матрицы, расположенных на главной диагонали
Здравствуйте. Разработать алгоритм вычисления произведения элементов...

Программы циклической структуры
Напечатать таблицу перевода температуры из градусов по шкале Цельсия...

Алгоритмы циклической структуры
Вычислить таблицу значений функции U U=-√(y^2+4x^2/3)+(5cos^3(xy)/xz при...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru