Найти в массиве запись, удовлетворявшую заданным условиям

@Andrux · Регистрация: 27.12.2008

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

Доброго времени суток, пожалуйста помогите
внести в задачу, условия такого типа;

Найти запись удовлетворявшую след. условия: среди жанра игр "стратегия"
вышедшие в 2009 году и которые имеют минимальные системные требования.

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
Program AnzStr;
Uses crt;
TYPE
   Date = Record
   Month : 1..12;
   Day : 1..31;
   Year : 2000..2009;
     end;
   Person = Record
   Nazvanie : string;
   Vishla : (Net,Da);
   SysTreb : string;
   Janr: string;
   Datavix: date;      
     end;
       var i:person;
           s:byte;
         begin
           with i do
         begin
         clrscr;
         textcolor(Green);
           write('Nazvanie=');readln(Nazvanie);
           write('Janr=');readln(Janr);
           write('Vishla li Igra (0-Net, 1-Da)');readln(s);
           if s=0 then vishla:=Net else vishla:=Da;
           write('SysTreb=');readln(SysTreb);
           WITH Datavix do
               begin
                 write('Year=');readln(Year);
                 write('Month=');readln(Month);
                 write('Day=');readln(Day);
               end;
              end;
               writeln('--------------------------------');
               writeln(' ');
               writeln('--------------------------------');
                WITH i do
                  begin
                    writeln('Nazvanie=',Nazvanie);
                    writeln('Janr=',Janr);
                    writeln('Vishla=');if vishla=Net then writeln('Net') else writeln('Da');
                    writeln('Systreb=',Systreb);
                    writeln('Datavix:');
                      WITH Datavix do
                      begin
                        writeln('Year=',Year);
                        writeln('Month=',Month);
                        writeln('Day=',Day);
                        end;
                          readln
                       end;
                       end.

Заранее благодарю, за помощь в добавлении записей!

@Puporev · 15.02.2009, 17:23

которые имеют минимальные системные требования.

У Вас все системные требования записаны одной строкой. Как Вы хотите узнать где минимальные, а где нет? Ведь для этого надо сравнивать конкретные величины, а значит системные требования, как и дата, должны быть представлены записью,с полями, которые можно измерить и найти в каждом из них минимальное.
Вот выберите 2-3 таких требования и составьте из них запись, кторая и будет полем в основной записи. Кстати уберите Вы этот Person. Какое отношение это слово имеет к записи игр.

@Andrux · 15.02.2009, 17:44 **[ТС]**

а как вот смотрите... записать?
например к systreb присвоить 2 параметра, думаю хватит и 2:
minimal=Pentium;Ozu;video
recomended=Pentium;Ozu;Video

и например если пользователь введет параметры
практически равные минимальным и выберет жанр стратегия
то ему на экран выведется информация об игре?
а то у меня есть задумки... присвоить значения к Pentium ; ozu; video
и после используя например... if systreb<= minimal 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
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
Program AnzStr;
Uses crt;
 
TYPE
   TGenre = (rpg, strategy, mmorpg, adventure, action);
   YesNo = (Net, Da);
 
   Date = Record
     Month : 1..12;
     Day : 1..31;
     Year : 2000..2009;
   end;
   Person = Record
     Nazvanie : string;
     Vishla : YesNo;
     SysTreb : string;
     Janr: TGenre;
     Datavix: date;
   end;
 
const
  Titles: array[Tgenre] of string[8] =
    ('rpg','strategy','mmorpg','adventure','action');
  strYN: array[YesNo] of string[3] = ('Net', 'Da');
 
  size = 5;
 
var
  arr: array[1 .. size] of Person;
  i, s: byte;
  G: TGenre;
 
begin
  clrscr;
  textcolor(Green);
 
  for i := 1 to size do begin
    writeln('Record #', i);
 
    with arr[i] do begin
      write('Nazvanie='); readln(Nazvanie);
 
      write('genre : (');
      for G := low(TGenre) to high(TGenre) do
        write(ord(G), '=' + Titles[G] + ' ');
      write(')');
      repeat readln(s); until s in [0 .. ord(high(TGenre))];
      Janr := TGenre(s);
 
      write('Vishla li Igra (0-Net, 1-Da)'); readln(s);
      vishla := YesNo(s);
 
      write('SysTreb='); readln(SysTreb);
      WITH Datavix do begin
        write('Year=');readln(Year);
        write('Month=');readln(Month);
        write('Day=');readln(Day);
      end;
    end;
  end;
 
  writeln('--------------------------------');
  writeln;
  writeln('--------------------------------');
  for i := 1 to size do
    if arr[i].Janr = strategy then
      WITH arr[i] do begin
        writeln('Nazvanie=',Nazvanie);
        writeln('Janr=',Titles[Janr]);
        writeln('Vishla=', strYN[vishla]);
        writeln('Systreb=',Systreb);
        writeln('Datavix:');
        WITH Datavix do begin
          writeln('Year=',Year);
          writeln('Month=',Month);
          writeln('Day=',Day);
        end;
        readln;
      end;
 
end.

@Puporev · 15.02.2009, 18:09

minimal=Pentium;Ozu;video
recomended=Pentium;Ozu;Video

Минимальные требования должны быть числа. Я в этом не очень рублю, но типа Память в Мб, частота в Ггц ни и еще что там?

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 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-динозавры, а новое поколение лёгких потоков. Откат?. . .