Компьютерлік ойын — ойнауға арналған компьютерлік бағдарлама. Оларға сондай-ақ видеоойындар мен мобильді ойындар да жатады. Қазіргі уақытта компьютерлік ойынды көбінесе видео ойын деп атайды, басқа сөзбен айтқанда, ойын жағдайы экран дисплейіне немесе теледидарға беріледі. Ойындар кітап немесе фильмдер негізінде жасалуы мүмкін. Кері болған жағдайлар да бар. 2011 жылдан бастап компьютерлік ойындар ресми түрде АҚШ-та жеке көркемдік формасы ретінде танылды.
Видеоойындар деп теледидарға қосып ойнайтын, немесе ойын автоматтардағы ойындарды атайды.
Мобильді ойындар Ұялы телефондармен, смартфондармен, қалта компьютерлермен ойналатын бағдарламаларды атайды
Объяснение:
Если то и мне с последним во
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
type
TRAIN = record
ПунктНазначения: string;
НомерПоезда: string;
ВремяОтправления: DateTime
end;
procedure ВводДанных(Список: List<TRAIN>);
begin
var Поезд: TRAIN;
var ЧЧММ: string;
for var i := 1 to 6 do // 6 поездов
begin
Println('Ввод данных о поезде', i);
Поезд.ПунктНазначения := ReadlnString('Пункт назначения:');
Поезд.НомерПоезда := ReadlnString('Номер поезда:');
repeat
ЧЧММ := ReadlnString('Время отправления (ЧЧ:ММ):');
until DateTime.TryParse(ЧЧММ, Поезд.ВремяОтправления);
Список.Add(Поезд)
end
end;
procedure ПоискПоездов(Список: List<TRAIN>; ПунктНазначения: string);
begin
var Отобрано:=
Список.Where(Поезд->Поезд.ПунктНазначения=ПунктНазначения);
if Отобрано.Count>0 then
foreach var Поезд in Отобрано do
Writeln($'{Поезд.НомерПоезда} {Поезд.ВремяОтправления:HH-mm}')
else
Println('Нет поездов на это направление')
end;
begin
var Поезда := new List<TRAIN>;
ВводДанных(Поезда);
ПоискПоездов(Поезда,ReadlnString('Куда едем?'))
end.
