1 / 1 / 0
Регистрация: 25.09.2016
Сообщений: 160
1

Repeat-until

05.12.2017, 20:18. Показов 923. Ответов 1
Метки нет (Все метки)

Добрый вечер,куда вставить в функцию,чтобы при x<-2 и x>2 Writeln(' функция не определена')


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Program lab_6;
uses crt;
function F(x:real):real;
begin
if(x>=-2) and (x<=-1) then 
F:=2*x+4
 else 
if (x>-1) and (x<1) then F:=2*x*x
 else F:=-2*x+2;
if (x<-2) and (x>2) then
end;
var x,x0,xn,hx:real;
begin
clrscr;
write('Введите начало интервала x0=');
readln(x0);
repeat
write('Введите конец интервала xn>',x0:0:2,' xn=');
readln(xn);
until xn>x0;
repeat
write('Введите шаг табуляции hx<',xn-x0:0:2,' hx=');
readln(hx);
until hx<xn-x0;
x:=x0;
while x<xn+hx/2 do
  begin
  writeln('x=',x:4:1,' f(x)=',f(x):5:2);
  x:=x+hx;
  end;
end.

Как оформить?Вставить нужно явно куда-то сюда)
Pascal
1
2
3
4
5
6
7
8
9
function F(x:real):real;
begin
if(x>=-2) and (x<=-1) then 
F:=2*x+4
 else 
if (x>-1) and (x<1) then F:=2*x*x
 else F:=-2*x+2;
if (x<-2) and (x>2) then
end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2017, 20:18
Ответы с готовыми решениями:

Вычислить a^n (repeat until)
решить с помощью цикла repeat until Заранее спасибо :senor:

Цикл repeat until
Помогите пожалуйста через repeat-until Вычислить y=cos(x)*cos(2x)*cos(3x)*...*cos(nx)

Цикл Repeat.until
Помогите пожалуйста нарисовать круги в цикле Repeat...until, никак не разберусь. В цикле For все...

Заменить цикл Repeat на While и For
Мне нужно все три цикла... А как заменить на FOR и WHILE я не догоняю.... var n,i:integer;...

1
Почетный модератор
64073 / 47484 / 32734
Регистрация: 18.05.2008
Сообщений: 115,185
06.12.2017, 10:15 2
В функцию ничего вставлять не нужно, это нужно писать в программе.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
function F(x:real):real;
begin
if(x>=-2) and (x<=-1) then F:=2*x+4
else if (x>-1) and (x<1) then F:=2*x*x
else if (x>=1)and(x<=2) then F:=-2*x+2;
end;
var x,x0,xn,hx:real;
begin
clrscr;
write('Введите начало интервала x0=');
readln(x0);
repeat
write('Введите конец интервала xn>',x0:0:2,' xn=');
readln(xn);
until xn>x0;
repeat
write('Введите шаг табуляции hx<',xn-x0:0:2,' hx=');
readln(hx);
until hx<xn-x0;
x:=x0;
while x<xn+hx/2 do
 begin
  if abs(x)>2 then writeln('x=',x:4:1,' функция не определена')
  else writeln('x=',x:4:1,' f(x)=',f(x):5:2);
  x:=x+hx;
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2017, 10:15

Перевод цикла FOR в repeat, while
Либо то что ночь на меня действует,либо я тупой...но я не догоняю как перевести в другие циклы,хоть...

Заменить оператор for на repeat until
Здраствуйте, написал программу, необходимо заменить for i := 1 to length(s) do на оператор repeat...

Из Repeat сделать рекурсию
Здравствуйте, дано код на PascalABC.NET, в нет есть цикл repeat - until, нужно переделать программу...

Переделать программу без until/repeat
var n,m,i,j,k,l,r:longint; begin repeat write('n,m='); readln(n,m); until...


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

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

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