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

Система уравнений с использованием операторов цикла (счётчк, предусловие, постусловие)

25.02.2015, 13:17. Просмотров 1065. Ответов 1
Метки нет (Все метки)

Здравствуйте.
Нужно программно решить систему с использованием трёх видов операторов цикла (счётчик, постусловие, предусловие). + Блок схема (с ней, скорее всего, я и сам справлюсь.)

http://www.cyberforum.ru/cgi-bin/latex.cgi?T=\begin{cases}<br />
0,5sin(x)+2cos(x) & \text{ , } x \gt 1,2 \\ <br />
zx-cos(z) & \text{ , } x=1,2  \\ <br />
sin(x)-2z & \text{ , } x \lt 1,2<br />
\end{cases}\\z=1,7 \\x\in [0;1,6] \\\Delta x=0,3

Благодарен за любую помощь.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.02.2015, 13:17
Ответы с готовыми решениями:

Переделать предусловие на постусловие
как переделать на постусловие? var i,w,k: integer; f: boolean; begin write('enter w: '); ...

программа с использованием трех операторов цикла
Написать программу, которая по заданному натуральному значению вычисляет результат выражения: ...

Дописать программу с использованием операторов цикла
Помогите пожалуйста написать все возможные, эквивалентные данному фрагменты программы, с...

Создание программы с использованием операторов цикла с параметром
вычислить значения: \sin x+\sin ^{2}x^{2}+..+\sin ^{n}x^{n}

Вычисление сумм и произведений с использованием операторов цикла
Доброго дня! В связи с тем, что я запуталась с прошлой темой (не могу найти правку сообщения), пишу...

1
Joy
Эксперт Pascal/Delphi
2193 / 1216 / 1443
Регистрация: 29.08.2014
Сообщений: 4,435
26.02.2015, 05:48 2
Лучший ответ Сообщение было отмечено Fantoccini как решение

Решение

с постусловием
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const dx=0.3;
      z=1.7;
      eps=0.0000001;
var
  t,x:real;
begin
  x:=0.0;
  repeat
    if x>1.2+eps then t:=0.5*sin(x)+2*cos(x) else
    if x<1.2-eps then t:=sin(x)-2*z else t:=z*x-cos(x);
    writeln(x:8:2,t:10:6);
    x:=x+dx;
  until x>1.6;
  readln;
end.
Добавлено через 4 минуты
с предусловием
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const dx=0.3;
      z=1.7;
      eps=0.0000001;
var
  t,x:real;
begin
  x:=0.0;
  while x<=1.6 do begin
    if x>1.2+eps then t:=0.5*sin(x)+2*cos(x) else
    if x<1.2-eps then t:=sin(x)-2*z else t:=z*x-cos(x);
    writeln(x:8:2,t:10:6);
    x:=x+dx;
  end;
  readln;
end.
Добавлено через 2 минуты
счетчик
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const dx=0.3;
      z=1.7;
      eps=0.0000001;
var
  t,x:real;
  i:integer;
begin
  x:=0.0;
  for i:=1 to round(1.6/0.3)+1 do begin
    if x>1.2+eps then t:=0.5*sin(x)+2*cos(x) else
    if x<1.2-eps then t:=sin(x)-2*z else t:=z*x-cos(x);
    writeln(x:8:2,t:10:6);
    x:=x+dx;
  end;
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2015, 05:48

Написать программу с использованием трех операторов цикла
1.Задание: Написать программу с использованием трех операторов цикла: арифметического, предусловием...

Создание программы с использованием операторов цикла с предусловием
Если в заданном целочисленном векторе A(N) есть элементы со значением, равным заданному числу B,...

Вычисление сумм и произведений с использованием операторов цикла
Доброго вам времени суток, пожалуйста помогите с заданием! Составить алгоритм (блок-схему) и текст...


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

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

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