Сделать фон для игры на питоне print('укажите имя персонажа: ')name = input()print('', name, 'вы очнулись в комнате.')print('вы находитесь в пещере на развилке. вы можете пойти "налево", "направо" или "прямо". введите одно из слова кавычках для выбора.')a = input()while a ! = 'налево' and a ! = 'направо' and a ! = 'прямо': a = input()if a == 'налево': print('вы направились налево. через некоторое время вы дошли до'' двух дверей. вы выберете "левую" или "правую"? ')elif a == 'направо': print('вы направились направо. через 500 метров вы увидели обрыв.'' путь назад уже закрыт.')exit(0)elif a == 'прямо': print('вы прямо и вы услышали какойта шум ,это был шум от обвала ,вас присыпало камнями ')print('вы умерли от боли ')exit(0)print('вы попали снова на розвилку ')print('выбирите сторону левую или правую')b = input()while b ! = 'левую' and b ! = 'правую': b = input()if b == 'левую': print('на полу вы увидели кексик. это верный знак к хорошему продолжению.')elif b == 'правую': print('сразу за дверью оказалась пропасть. и вы в неё упали.')exit(0)else: print('ошибка.')exit(0)print(' куда дальше? прямо,направо или налево? ')c = input()while c ! = 'направо' and c ! = 'прямо' and c ! = 'налево': c = input()if c == 'направо': print('вы увидели собак.вы убежалиу ')elif c == 'прямо': print('вы смело вперед,но там вас подстерегала гигантская'' подземная жаба, которая проглотила вас целиком')exit(0)elif c == 'налево': print('за этой дверью вас ждал гигантский медведь,который'' не дал вам убежать.')exit(0)else: print('ошибка.')exit(0)print('вы убежали.и в зади вас случился обвал.перед вами две двери,левая или правая! ')d= input()while d ! = 'левая' and d ! = 'правая': d = input()if d == 'левая': print('вы попали в помешение ,ви нашли на столе записку .в которой сказано чтоб вийти с комнати вам нужно взорвать люк чтоб вибраца на ружу')print('вам нужно найти взривчатку чтоб взорвать люк на ружу')elif d == 'правая': print('в этой комнате оказались бандиты, они вас ростреляли')exit(0)else: print('ошибка.')exit(0)print('вы обискали комнату,вы нашли взривчатку,')print('вы взорвали люк и ')print('и окозалось что ви били не в пешере а в бункере')print('ви поднялись по леснице,и пошли по коридору,вы дошли до бронированой двери ,чтоби открить дверь вам понадобица пароль с двух чисел')f = input()while f ! = '11' and d ! = '': f = input()if f == '11': print('')else: print('ошибка.')exit(0)print('вы открыли двери')print('вы пошли в перед вам захотелось попить')print('чтоби набрать воды и выпить эту воду введите слово (еда) или проигнорировать')g = input()while g ! = 'еда' and g ! = 'проигнорировать': g = input()if g == 'еда': print('вы напились води ')elif g == 'игнорить': print('вы умерли')exit(0)else: print('ошибка.')exit(0)print('вы нашли оружие')print('чтобы проверить обойму нажмите(анг.б .r)')e = input()while e ! = 'r' and e ! = '1': e = input()if e == 'r': print('вы провери обойму,теперь вы будете готови до атаки')else: print('ошибка.')exit(0)print('вы услишали что хтота идет по коридору ')print('вы спрятались')print('вы видете силует человека')print('если ты хочешь вступить в бой то тогда напиши слово в (бой )а эсли хочешь проследить за ним то тогда напиши (следить)')e = input()while e ! = 'следить' and e ! = 'бой': e = input()if e == 'следить': print('вы проследили')elif e == 'бой': print('вы вистрили в голову ви убили ')print('но прибежали бандити и вас убили')exit(0)else: print('ошибка.')exit(0)print('oн вас на улицу.вы вийшли из бункера.')print('чтобы убить человека напишите слово (убить ) или подойти к ниму чтобы спросить напишите слово (подойти)')e = input()while e ! = 'убить' and e ! = 'подойти': e = input()if e == 'убить': print('')elif e == 'подойти': print('вас убили')exit(0)else: print('ошибка.')exit(0)print('вы забрали вещи которие били у трупа ')print('вещи: ')print('патрони(п.м.)')print('бинты')print('бутылка воды')print('канистра бензина')print('спичкы')print('нож')print('чтоби выжить вам надо отправится в пустощь,тобы вижывать')print('напишыте слово ити')h = input()while h! = 'ити': h = input()if h == 'ити': print('вы увиделы заброшений дом.')print('наступила ноч.')print('вы розожгли огонь')print('вы уснули')else: print('ошибка.')exit(0)
arr = array[,] of integer;
arrB = array[1..3] of integer;
var
i, n, m: integer;
A1, A2, A3: arr;
B1, B2, B3: arrB;
procedure FormB(var A: arr;var B:arrB);
var i, j, n, m: integer;
begin
n:= Length(A,0);
m:= Length(A,1);
for i := 0 to n-1 do
begin
for j := 0 to m-1 do
begin
A[i,j]:=random(10);
write(A[i,j]:2);
if A[i,j]=1 then B[1]:=B[1]+1;
if A[i,j]=2 then B[2]:=B[2]+1;
if A[i,j]=3 then B[3]:=B[3]+1
end;
writeln
end
end;
begin
write('Введите N1 и M1:');
readln(n,m);
SetLength(A1, n, m);
FormB(A1,B1);
write('Число единиц, двоек и троек соответственно равно: ');
for i := 1 to 3 do write(B1[i]:4);
writeln;
write('Введите N2 и M2:');
readln(n,m);
SetLength(A2, n, m);
FormB(A2,B2);
write('Число единиц, двоек и троек соответственно равно: ');
for i := 1 to 3 do write(B2[i]:4);
writeln;
write('Введите N3 и M3:');
readln(n,m);SetLength(A3, n, m);
FormB(A3,B3);
write('Число единиц, двоек и троек соответственно равно: ');
for i := 1 to 3 do write(B3[i]:4)
end.
Сделал еще вариант с двумя процедурами:
type
arr = array[,] of integer;
arrB = array[1..3] of integer;
var
A1, A2, A3: arr;
B1, B2, B3: arrB;
procedure FormB(var A: arr;var B:arrB);
var i, j, n, m: integer;
begin
for i:=1 to 3 do B[i]:=0;
n:= Length(A,0);
m:= Length(A,1);
for i := 0 to n-1 do
begin
for j := 0 to m-1 do
begin
A[i,j]:=random(10);
write(A[i,j]:2);
if A[i,j]=1 then B[1]:=B[1]+1;
if A[i,j]=2 then B[2]:=B[2]+1;
if A[i,j]=3 then B[3]:=B[3]+1
end;
writeln
end
end;
procedure Inp(var A: arr;var B:arrB);
var i,n,m:integer;
begin
write('Введите N и M: ');
readln(n,m);
SetLength(A, n, m);
FormB(A,B);
write('Число единиц, двоек и троек соответственно равно: ');
for i := 1 to 3 do write(B[i]:4);
writeln
end;
begin
Inp(A1,B1);
Inp(A2,B2);
Inp(A3,B3)
end.