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

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

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

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

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

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

Блок-схема алгоритма вычисления выражения
программа 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 при...

Алгоритмы циклической структуры.
Помогите плиз хоть несколько программ написать!!! Ничего не понимаю в...

Программы циклической структуры
Вводится N чисел. Вывести на экран те числа, делителем которых яв- ляется целое...


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

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

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