Ввод чисел

[Dicar]

Дана функция y=tg(x)+1. Написать программу для поиска максимального значения y в промежутке x=[2;2.8] с шагом 0,1.

var
max,x,y:real;
i:integer;
 begin
max:=sin(x)/cos(x)+1;
while x<2.8 do
 begin
x:=x+0.1;
if max<(sin(x)/cos(x)+1) then
max:=sin(x)/cos(x)+1;
 end;
writeln ('max=',max:2:2);
 readln;
  end.

Как сделать ввод чисел?

[noxin]

а зачем числа вводить, и так ведь всё есть?
просто присвоить иксу первоначальное значение

[Grag]

Сообщение от Dicar

Дана функция y=tg(x)+1. Написать программу для поиска максимального значения y в промежутке x=[2;2.8] с шагом 0,1.

var
max,x,y:real;
i:integer;
begin



max:=sin(x)/cos(x)+1;
while x<2.8 do
begin
x:=x+0.1;
if max<(sin(x)/cos(x)+1) then
max:=sin(x)/cos(x)+1;
end;
writeln ('max=',max:2:2);
readln;
end.
Как сделать ввод чисел?

В начале программы
поставь оператор x:=2;
перед max:=sin(x)/cos(x)+1;


Замени while x<2.8 на while x<=2.8
Оператор x:=x+0.1; поставь в конец цикла


Readln(x) и вводи с клавы числа... x:тип переменной

[Dicar]

Ну а если кто-то введет число которое в промежуток не войдет. Тогда нужно сообщить какой промежуток и показать что число не входит в промежуток .... .А как это сделать?

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Grag]

Сообщение от Dicar

Ну а если кто-то введет число которое в промежуток не войдет. Тогда нужно сообщить какой промежуток и показать что число не входит в промежуток .... .А как это сделать?

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

Конкретно для твоей задачи ввод чисел не нужен, границы диапазона заданы жестко. А для проверки ввода данных пиши валидатор, т.е. процедуру определяющую допустимость введенных данных, что ввели цифры или буквы, допуcтимы ли введенные числа, типа

  flgRead:=false;
  while not flgRead do
    begin
      readln(X);
      if (X>=MinRange) and (X<=MaxRange) 
        then flgRead:=true
        else writeln('Данные введены не верно!')
    end