Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
kirsrk
0 / 0 / 0
Регистрация: 16.10.2017
Сообщений: 1
#1

Табулирование цикла с постусловием - Turbo Pascal

16.10.2017, 18:59. Просмотров 101. Ответов 4
Метки нет (Все метки)

Помогите решить пожалуйста
0
Миниатюры
Табулирование цикла с постусловием  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.10.2017, 18:59
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Табулирование цикла с постусловием (Turbo Pascal):

Циклы. Вычисление факториала f=n! описать с помощью цикла с предусловием и цикла с постусловием. - Turbo Pascal
1) Вычисление факториала f=n! описать с помощью цикла с предусловием и цикла с постусловием; сделать проверку на отрицательность n ...

Для цикла с предусловием запишите его полный эквивалент с помощью цикла с постусловием - Turbo Pascal
pr:=1; for i:=2 to n do if odd(i) then pr:=pr-(1/i) else pr:=pr+(1/i);

Табулирование функции с постусловием - Turbo Pascal
Товарищи помогите пожалуйста решить следующую задачу на табулирование функции с использованием циклического алгоритма с...

Табулирование функции. Цикл с постусловием - Turbo Pascal
Hазработать алгоритм и программу, имеющих структуру цикла с постусловием и осуществляющих табулирование заданной функции при изменении...

Табулирование функции. Цикл с постусловием - Turbo Pascal
Для всех вариантов заданий разработать алгоритм и программу, имеющих структуру цикла с постусловием и осуществляющих табулирование заданной...

Задача с использованием цикла с постусловием - Turbo Pascal
k и s переменные целого типа: readln(k); s:=0; while k>0 do begin s:=s+k mod 10; k:=k div 10 end; writeln(s); Нужно...

4
Puporev
16.10.2017, 20:32
  #2
 Комментарий модератора 
Текст задачи напечатайте руками в теме.
0
ArtemFM
213 / 196 / 91
Регистрация: 10.09.2015
Сообщений: 780
16.10.2017, 22:43 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Task01;
const
     PI = 3.14;
     
var
   x : double;
   
begin
    write('Input X: ');
    readln(x);
    
    if (x > -1 * PI / 2) and (x < PI / 2) then write('f(', x:0:3, ') = ', sin(x / 2):0:5)
    else if (x >= PI / 2) and (x < PI) then write('f(', x:0:3, ') = ', (x / 8 * cos(3 * x)):0:5)
    else if (x > PI) and (x < 3 / 4 * PI) then write('f(', x:0:3, ') = ', (sin(x) + cos(x)):0:5)
    else write('f(', x:0:3, ') = ', 'solution is not.');
end.
0
JuriiMW
Эксперт Pascal/Delphi
1614 / 895 / 726
Регистрация: 10.12.2014
Сообщений: 3,171
17.10.2017, 07:15 #4
ArtemFM, pi — это константа TP.
Код
-1 * pi / 2 = -pi / 2
Зачем лишнее умножение для замены знака?
Цитата Сообщение от ArtemFM Посмотреть сообщение
'f(', x:0:3, ') = '
Зачем это писать четыре раза? Хватило бы и одного перед первым условием.
Ну и вообще, условия можно бы и подсократить:
Pascal
1
2
3
4
5
6
7
8
9
var x : Real;
begin
  Write('x = '); Read(x);
  Write('f(', x:0:3, ') = ');
  if (x <= -pi*0.5) or (x >= pi*1.5) then Write('не определено')
  else if x < pi*0.5 then Write(sin(x/2):0:5)
  else if x <= pi then Write(x/8*cos(3*x):0:5)
  else Write(sin(x)+cos(x):0:5);
end.
P.S. В 13 и 14 строке ошибки!
0
Puporev
Модератор
52999 / 40810 / 14059
Регистрация: 18.05.2008
Сообщений: 94,913
17.10.2017, 08:37 #5
ArtemFM, Не нужно лепить код не зная даже задания, вообще плохая привычка всюду совать свой нос. Пользы от Ваше деятельности немного в отличие от вреда.
0
17.10.2017, 08:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2017, 08:37
Привет! Вот еще темы с ответами:

Для цикла с постусловием запишите его полный эквивалент - Turbo Pascal
с помощью цикла с предусловием. Для цикла с параметром запишите его полный эквивалент с помощью циклов с пред- и постусловием. ...

Используя оператор цикла с постусловием вычислить сумму ряда sum=(2a+i/i) - Turbo Pascal
Используя оператор цикла с постусловием вычислить сумму ряда sum=(2a+i/i) при i=1..n

Составьте программу двумя способами: с использованием операторов цикла с предусловием и постусловием - Turbo Pascal
Составьте программу на Турбо Паскале двумя способами: с использованием операторов цикла с предусловием и постусловием. Вычислить:...

Определить порядковый номер наименьшего из них. использовать оператор цикла с постусловием - Turbo Pascal
дана непустая последовательность различных натуральных чисел, за которой следует ноль. Определить порядковый номер наименьшего из них....


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

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

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