Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.58/103: Рейтинг темы: голосов - 103, средняя оценка - 4.58
0 / 0 / 1
Регистрация: 24.04.2011
Сообщений: 71

Как задать диапазон ввода значения Х от 0,1до 0,6

10.11.2015, 08:37. Показов 21226. Ответов 14
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Уважаемые программисты!
В ходе написания программы для расчёта значения по формуле столкнулся со следующей проблемой...
В задание указано, что вводимое в программе значение Х должно лежать на отрезке от 0,1 до 0,6. Сразу понял, что для переменной Х тип integer не подходит, смекнул, что надо использовать real. Поменял тип переменной.. Но выдаёт следующую ошибку ''ожидался порядковый тип''. Хотел бы понять в чем проблема и как её решить. Заранее спасибо=)
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
10.11.2015, 08:37
Ответы с готовыми решениями:

Как задать диапазон чисел для ввода в DataGridView?
В программе есть таблица, в ней в столбце "курс" можно вводить только числа с 1 по 4. Как это реализовать? Вот так указываю, что только...

Как задать диапазон rand
Как задать диапазон rand например от 3 до -5?

Как задать диапазон дат?
Надо создать экспертную систему про знаки зодиака. Как я понял мне надо задать в правилах типо : ...

14
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
10.11.2015, 08:41
Илья555, вряд ли можно что-то вам ответить. Не видя текста программы.
0
0 / 0 / 1
Регистрация: 24.04.2011
Сообщений: 71
10.11.2015, 08:59  [ТС]
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program program1_1;
var x,f,l:real;
begin
 
write('введи число= ');
readln(x);
For x:=0.1 to 0.6 do
begin
f:=sqrt((1/5)+exp(x/5));
write;
l:=(ln (sqr(x))-1.3);
write;
y:=f/l;
writeln(y);
readln;
end;
end.
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
10.11.2015, 09:35
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Илья555, это не работающая программа!
Цикл for работает только с целым типом параметров…
Осмелюсь предложить вот такой вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
begin
  var a := ReadLnReal('Введите начало интервала:');
  var b := ReadLnReal('Введите конец интервала:');
  var dX := ReadLnReal('Введите шаг приращения:');
  if (a > b) or (dX <= 0) then
    begin
      WriteLn('Не правильно заданы начальные данные!');
      Halt;
    end;
    
  var X := a;
  repeat
    WriteLn(X);
    X += dX;
  until X > b;
  WriteLn('конец');
end.
0
0 / 0 / 1
Регистрация: 24.04.2011
Сообщений: 71
10.11.2015, 09:41  [ТС]
Pascal
1
2
3
4
5
6
7
8
9
f:=sqrt((1/5)+exp(x/5));
write;
l:=(ln (sqr(x))-1.3);
write;
y:=f/l;
writeln(y);
readln;
end;
end.
Эта часть программы правильная.
В ней задана исходная формула и она правильно написана. Программа (в виде под целочисленное значение Х отлично считает, но по заданию надо сделать чтобы Х был в пределах от 0,1 до 0,6.
Только в этом проблема..
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
10.11.2015, 09:46
Илья555!
Прежде, чем постить, внимательно прочти мой предыдущий ответ…

P.S. А то, что вы тут выкладываете, использует зачем-то 2 лишних оператора write и, после вывода значения y замирает в ожидании enter!
0
0 / 0 / 1
Регистрация: 24.04.2011
Сообщений: 71
10.11.2015, 09:59  [ТС]
Имеет смысл использовать оператор while?
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
10.11.2015, 10:07
Можно.
0
0 / 0 / 1
Регистрация: 24.04.2011
Сообщений: 71
10.11.2015, 10:08  [ТС]
Не могли бы помочь? Что тогда требует изменения и как это реализуются..
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
10.11.2015, 10:13
А ещё можно goto…
А ещё можно рекурсию…

Вариантов полно!

Я же тебе уже практически сделал через repeat!

Добавлено через 2 минуты
… Вставь в мою программу после строки 12 из своей первоначальной программы строки: 9, 11 и 13
А после двенадцатой — твою четырнадцатую!

Добавлено через 45 секунд
… Ну и объявление твоих переменных добавь.
Мои то уже объявлены ;–)

Добавлено через 1 минуту
P.S. Это именно помощь, а не „сделайте всё за меня“…
0
0 / 0 / 1
Регистрация: 24.04.2011
Сообщений: 71
10.11.2015, 11:33  [ТС]
Спасибо. Программа работает. Но я бы хотел узнать, как сделать чтобы программа принимала значения от заданного диапазона, чтобы это уже было задано
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
10.11.2015, 11:35
Замени ввод значений на константные числовые значения…
0
0 / 0 / 1
Регистрация: 24.04.2011
Сообщений: 71
10.11.2015, 11:46  [ТС]
В var задать числа?
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
10.11.2015, 11:49
Нет! Я же сказал: «константные числовые значения»…
Первые 5 страниц букваря по ЯП паскаль.
0
0 / 0 / 1
Регистрация: 24.04.2011
Сообщений: 71
10.11.2015, 22:55  [ТС]
Спасибо. Разобрался
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
10.11.2015, 22:55
Помогаю со студенческими работами здесь

Как задать диапазон рандома в c++
Я хочу задать диапазон рандома в c++, от 13 до 99, как это сделать? В Питоне это легко делалось: a=randint(13,99)

Как задать диапазон поиска?
как задать диапозон поиска? например от 7 до 20 и чтобы в этом диапозоне выводило значения procedure TForm2.N3TP1Click(Sender: TObject); ...

Как задать диапазон копирования
Всем привет! Зашла сюда в надежде найти помощь со стороны более опытных программистов, чем я. Суть моего вопроса такова: есть код(...

Как задать диапазон ячеек
Здравствуйте. Как в этом коде задать диапазон через значения переменных типа Range(Cells(x1,y1),Cells(x2,y2))? Dim Rng As Range ...

Как задать диапазон значений?
Как задать диапазон значений(например, для возраста)? Вот так выводит какой-то мусор switch (toy6.age) { case 7 ... 9: ...


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

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru