Ввод значений переменных.

@freshman · Регистрация: 28.12.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте.

Как "правильнее" ввести в программу значение переменной?
Например, некая переменная, скажем, W, имеет значения
от W(min)= 2 до W(max)= 7, с шагом, допустим 1.
А при вводе, чтобы IF проверял соответствие условию
если соответствует - then переходим на следующий begin; else -
повторить ввод.

Можно было бы тупо перечислить значения, их всего-то 4 в данном случае,
но мне кажется это как-то несерьезно.
Пробовал сделать через "for"- запутался окончательно

Спасибо

@vad2211 · 20.01.2010, 21:03

Не могли бы вы конкретный пример или задачу показать, а то не очень понятно что именно вам надо...

@Puporev · 20.01.2010, 21:05

например

Pascal
1
2
3
4
5
6
w:=2;
while w<=7 do
  begin
    что-то делаем
    w:=w+1;
   end;

@Snoopy · 20.01.2010, 21:07

если я правильно понял, то можно так

Pascal
1
2
3
4
repeat
Write('w=');
Readln(w);
until w in[2..7];

@freshman · 20.01.2010, 23:02 **[ТС]**

__

Добавлено через 3 минуты
Добавлено через 3 минуты
Попробую смоделировать задачу "в общем виде".

Ищем значение N:=P*V*w/K*c; c, K - константы

Нарисовал вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    const
  c=0.85;
  K=60*100000;
var
  V,N,P,w:real;
  begin
    clrscr;
       write ('(P)=');
          read (P);
            readln;
              write ('V=');
                read (V);
                  readln;
                    write ('w=');
                      read (w);
                        readln;
                           begin
                            N:=P*V*w/K*c;
                               writeln ('N=',N);
                                 readln;
                          end;
   end.

Для каждой переменной предлагается ряд значений:

P - от 1 до 7, шаг 1
w - от 1200 до 2400 шаг 400
V - 32, 46, 58, 60.

Можно конечно держать значения "в уме" и вводить какие предлагают. Но смысл следующий:
для каждой переменной должен крутиться цикл проверки условия, если условие соблюдено вводим следующую переменую, она также проверяется, потом третья.
И только после этого

Pascal
1
2
3
4
5
begin
     N:=P*V*w/K*c;
        writeln ('N=',N);
           readln;
end;

Таким вот образом

Добавлено через 51 секунду
Добавлено через 7 минут

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

например

Pascal
1
2
3
4
5
6
w:=2;
while w<=7 do
  begin
    что-то делаем
    w:=w+1;
   end;

Тоже вариант Тут цикл последовательно подставляет значения из интервала 2..7, увеличивая значение на 1, пока не отработает до 7. Правильно?
Надо считать введенное значение и проверить, попадает ли оно в условие. Пока не попадет- вводим. Если попало- идем к вводу следующей переменной. И так трижды, после этого, собственно запускаем само вычисление. У меня почему-то в голове навязчиво крутится if.. then

Добавлено через 40 секунд

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

если я правильно понял, то можно так

Pascal
1
2
3
4
repeat
Write('w=');
Readln(w);
until w in[2..7];

Вряд ли... Здесь теперь если я правильно понял) мы повторяем ввод, пока значение соответствует предусловию.[2..7]
Мне же нужно выскочить из цикла при первом же подходящем значении и перейти к вводу следующей переменной.
Если значение неподходящее- вернуться к вводу.
И так- последовательно для трех переменных, которые участвуют в вычислении результата задачи.

Это я наверно путанно объяснил. Пытаюсь разобраться сам- сразу готовое решени просить некрасиво

@vad2211 · 20.01.2010, 23:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
repeat
 write('p [1,7] = ');
 readln(p);
until p in [1..7];{если ввели p<1 или p>7, то повторяем запрос на ввод переменной p. Если ввели p из промежутка [1,7], то выходим из цикла}
repeat
 write('w [1200,2400] = ');
 readln(w);
until w in [1200..2400]; {повторяем ввод если ввели w которая не принадлежит диапазону [1200..2400]}
repeat
 write('V (32,46,58,60) = ');
 readln(v);
until (v=36) or (v=46) or (v=58) or (v=60);{выходи из цикла если v=32,46,58,60 - одному из этих значений}

@Puporev · 21.01.2010, 06:50

Мне кажется автор толком не понял сам, что ему нужно, ибо, кто ясно мыслит, тот ясно излагает.
Смею предположить, что нужно привести таблицу вычислений для всех заданных параметров. Результат лучше вывести в файл, в программе смотреть неудобно. Вот вариант без файла.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
uses crt;
const c=0.85;
      k=6000000;
var p,w,v:integer;
    n:real;
    i:integer;
begin
clrscr;
v:=32;
i:=0;
p:=1;
while p<=7 do
 begin
  w:=1200;
  while w<=2400 do
   begin
    n:=(p*v*w)/(k*c);
    writeln('V=',v,'  P=',p,'  W=',w,'  N=',n:10:6);
    i:=i+1;
    if i mod 22=0 then
     begin
      write('Press Enter...');
      readln
     end;
    w:=w+400;
   end;
  p:=p+1;
 end;
write('Press Enter...');
readln;
v:=46;
p:=1;
while p<=7 do
 begin
  w:=1200;
  while w<=2400 do
   begin
    n:=(p*v*w)/(k*c);
    writeln('V=',v,'  P=',p,'  W=',w,'  N=',n:10:6);
    i:=i+1;
    if i mod 22=0 then
     begin
      write('Press Enter...');
      readln
     end;
    w:=w+400;
   end;
  p:=p+1;
 end;
write('Press Enter...');
readln;
v:=58;
p:=1;
while p<=7 do
 begin
  w:=1200;
  while w<=2400 do
   begin
    n:=(p*v*w)/(k*c);
    writeln('V=',v,'  P=',p,'  W=',w,'  N=',n:8:4);
    i:=i+1;
    if i mod 22=0 then
     begin
      write('Press Enter...');
      readln
     end;
    w:=w+400;
   end;
  p:=p+1;
 end;
write('Press Enter...');
readln;
v:=60;
p:=1;
while p<=7 do
 begin
  w:=1200;
  while w<=2400 do
   begin
    n:=(p*v*w)/(k*c);
    writeln('V=',v,'  P=',p,'  W=',w,'  N=',n:10:6);
    i:=i+1;
    if i mod 22=0 then
     begin
      write('Press Enter...');
      readln
     end;
    w:=w+400;
   end;
  p:=p+1;
 end;
write('Press Enter...');
readln;
readln
end.

@freshman · 21.01.2010, 19:37 **[ТС]**

Это шикарное решение, очень пригодится.
Я все-таки пытаюсь разобраться сам. По кусочкам. Теперь появился внятный вопрос.
Чтобы проверять не только попадание в интервал, но и соответствие шагу, как мне вставить еще вот такой циклик : if p mod pd=0 then... вот сюда:

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
uses crt;
var pn,pk,pd,p:integer;
begin
clrscr;
 pn:=3 {начальное значение};
 pk:=9;{конечное значение};
 pd:=3; {шаг};
 repeat
    write ('p=');
      read (p);
          if p in [pn..pk] then {если попали в интервал- начинаем считать};
               begin
                 writeln ('Значение принято');
                    writeln ('p=',p);
                    n=p*2;
                    writeln ('n=',n);
                       readln;
                       readln;
               end
           else
              writeln ('Недопустимое значение');
  until p in [pn..pk]; {повторяем цикл пока не попадем в интервал}
readln;
end.

Добавлено через 5 часов 6 минут

Добавлено через 1 минуту

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
repeat
 write('p [1,7] = ');
 readln(p);
until p in [1..7];{если ввели p<1 или p>7, то повторяем запрос на ввод переменной p. Если ввели p из промежутка [1,7], то выходим из цикла}
repeat
 write('w [1200,2400] = ');
 readln(w);
until w in [1200..2400]; {повторяем ввод если ввели w которая не принадлежит диапазону [1200..2400]}
repeat
 write('V (32,46,58,60) = ');
 readln(v);
until (v=36) or (v=46) or (v=58) or (v=60);{выходи из цикла если v=32,46,58,60 - одному из этих значений}

Подходит
Я только немножко доработал

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
begin
clrscr;
 pn:=2;
 pk:=7;
 pd:=1;
repeat
   repeat
     write ('Введите p=');
       read (p);
         if p mod pd=0  then
           if p in [pn..pk] then
               begin
                 clrscr;
                 writeln ('Значение принято');
                 writeln ('p=',p);
                 readln;
                   writeln ('Введите w=');
               end
           else
         else
            writeln ('Недопустимое значение. Повторите ввод');
   until p in [pn..pk];
until p mod pd=0;
readln;
end.

Вот так примерно, чтобы все проверялось

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук 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-динозавры, а новое поколение лёгких потоков. Откат?. . .

@freshman 1 / 1 / 0 Регистрация: 28.12.2009 Сообщений: 6

	Ввод значений переменных. 20.01.2010, 18:01. Показов 6197. Ответов 7 Метки нет (Все метки) Здравствуйте. Как "правильнее" ввести в программу значение переменной? Например, некая переменная, скажем, W, имеет значения от W(min)= 2 до W(max)= 7, с шагом, допустим 1. А при вводе, чтобы IF проверял соответствие условию если соответствует - then переходим на следующий begin; else - повторить ввод. Можно было бы тупо перечислить значения, их всего-то 4 в данном случае, но мне кажется это как-то несерьезно. Пробовал сделать через "for"- запутался окончательно Спасибо 0

@vad2211 119 / 119 / 41 Регистрация: 21.12.2009 Сообщений: 194
	20.01.2010, 21:03
	Не могли бы вы конкретный пример или задачу показать, а то не очень понятно что именно вам надо... 1