Непонятный фрагмента кода

@Vatalik · Регистрация: 26.11.2012

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

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
uses crt;
type
  Tmas = array [1..20] of char;
var
  i,m1,m2:integer;
  mas1,mas2: Tmas;
  s:string;
  
procedure Plusi_Zvezdi(var p1,p2:tmas);
begin
  for i:=1 to 20 do
    begin
      if not (p1[i] in ['0'..'9']) then
        p1[i]:='*';
      if not (p2[i] in ['0'..'9']) then
        p2[i]:='+';
    end;
  write('1 massiv:');
  for i:=1 to 20 do
    write(p1[i]:2);
  writeln;
  
  write('2 massiv:');
  for i:=1 to 20 do
    write(p2[i]:2);
end;
 
BEGIN
  m1:=0;
  m2:=0;
 
  write('Vvedite 1 massiv simvolov: ');
  readln(s);
  clrscr;
  for i:=1 to 20 do
    begin
      mas1[i]:=s[i];
    end;
    
  write('Vvedite 2 massiv simvolov: ');
  readln(s);
  clrscr;
  for i:=1 to 20 do
    begin
      mas2[i]:=s[i];
    end;
    
  for i:=1 to 20 do
    begin
      if mas1[i] in ['0'..'9'] then
        inc(m1);
      if mas2[i] in ['0'..'9'] then
        inc(m2);
    end;
 
if m1>m2 then
  Plusi_Zvezdi(mas1,mas2)
else if m2>m1 then
  Plusi_Zvezdi(mas2,mas1)
else write('V massivah odinakovoe kol-vo cifr.');
END.

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

Pascal
1
2
3
4
if not (p1[i] in ['0'..'9']) then
 p1[i]:='*';
 if not (p2[i] in ['0'..'9']) then
 p2[i]:='+';

что это

@Dmitrinik · 12.03.2013, 21:50

Читаем буквально по-английски: если значение элемента p1[i] не входит в интервал символьных значений от '0' до '9', то надо присвоить этому элементу символьное значение '*'. То же самое и для элемента p2[i]

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@Dmitrinik 539 / 399 / 99 Регистрация: 18.08.2012 Сообщений: 1,024
	12.03.2013, 21:50
	Читаем буквально по-английски: если значение элемента p1[i] не входит в интервал символьных значений от '0' до '9', то надо присвоить этому элементу символьное значение '*'. То же самое и для элемента p2[i] 0