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

@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.

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

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

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

	Ввод значений переменных. 20.01.2010, 18:01. Показов 6210. Ответов 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