С ПРОГОЙ В ПАСКАЛЕ 4. Общие требовання к выйду работ Разработка игры на языке программирования Паскаль в приложении Pascal ABC. Net. Использование дружественного и понятного пользователям интерфейса, Минимум вопросов от пользователей при работе в приложении. Суть игры: у пользователя имеется уровень профиля, оцениваемый . На момент регистрации выдается Пользователь может поднять этот уровень в приложении «Орёл - Решка». Во время работы игры, должно выводиться диалоговое окно - «хочет ли пользователь продолжить игру» (у/n). При ответе «n» - выход из приложения. При ответе «у» ему предлагается сделать ставку от количества имеющихся (в минус уйти нельзя). Далее предлагается выбрать, что выпадет на подкинутой монете: Орёл или решка. С генератора случайных чисел определяется что выпадет на «упавшей» монете. Если пользователь угадал, то ставка умножается на 2 и суммируется с профиля, иначе ставка вычитается из профиля. После окончания работы с приложением должен выводиться уровень профиля.
arr: array[1..27] of integer;
summ: integer;
begin
Randomize;
for var i := 1 to 27 do
begin
arr[i] := random(-5, 5);
summ := summ + arr[i];
end;
writeln('Массив: ',arr);
writeln('Сумма всех элементов массива = ',summ);
for var i := 1 to 27 do if arr[i] = 0 then arr[i] := summ;
writeln('Массив: ',arr);
end.
пример работы:
Массив: [5,-1,1,5,4,-2,-3,0,3,5,-3,-4,3,0,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]
Сумма всех элементов массива = 14
Массив: [5,-1,1,5,4,-2,-3,14,3,5,-3,-4,3,14,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]
var
arr: array of integer;
n,k,m: integer;
begin
write('Введи n: ');
readln(n);
Randomize;
arr:= new integer[n];
for var i := 0 to n-1 do arr[i] := random(-5, 5);
writeln('Массив: ',arr);
for var i := 0 to n-1 do
begin
if arr[i]<0 then inc(k);
if (i>=1) and (i<=6) then inc(m);
if (i>=6) and (arr[i]>=0) then arr[i]:=1;
end;
writeln('Количество отрицательных элементов массива = ',k);
writeln('Количество элементов массива в интервале [2..7] = ',m);
writeln('Массив: ',arr);
end.
Пример работы:
Введи n: 5
Массив: [0,1,-4,1,3]
Количество отрицательных элементов массива = 1
Количество элементов массива в интервале [2..7] = 4
Массив: [0,1,-4,1,3]
Введи n: 15
Массив: [0,1,4,3,-3,5,-4,-1,1,-2,3,1,-4,1,3]
Количество отрицательных элементов массива = 5
Количество элементов массива в интервале [2..7] = 6
Массив: [0,1,4,3,-3,5,-4,-1,1,-2,1,1,-4,1,1]