// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 begin var a:=MatrixRandom(7,7,0,9); var k:=0; for var i:=0 to 6 do begin for var j:=0 to 6 do begin Write(a[i,j]:3); if a[i,j] in [1..5] then Inc(k) end; Writeln end; Writeln('Кол-во элементов на [1,5]: ',k) end.
const n=7; var a:array[1..n,1..n] of integer; i,j,k:integer; begin Randomize; k:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(10); Write(a[i,j]:3); if a[i,j] in [1..5] then Inc(k) end; Writeln end; Writeln('Кол-во элементов на [1,5]: ',k) end.
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
#include<iostream>
#include<cstdlib>
#include<ctime>
#include<conio.h>
using std::cout;
using std::cin;
using std::endl;
bool gameOver;
const int width = 25;
const int height = 25;
int x, y, fruitX, fruitY, score;
int tailX[100], tailY[100];
int nTail;
enum eDirection { STOP = 0, LEFT, RIGHT, UP, DOWN };
eDirection dir;
void Setup() {
gameOver = false;
dir = STOP;
x = width / 2 - 1;
y = height / 2 - 1;
fruitX = rand() % width;
fruitY = rand() % height;
score = 0;
};
void Draw() {
cout << "w = UP" << endl;
cout << "s = DOVN" << endl;
cout << "d = RIGHT" << endl;
cout << "a = LEFT" << endl;
system("cls");//system("clear");
for (int i = 0;i < width + 1;i++) {
cout << "##";
};
for (int i = 0;i < height;i++) {
for (int j = 0;j < width;j++) {
if (j == 0 || j == width - 1) {
cout << "##";
};
if (i == y && j == x) {
cout << "0";
}
else if (i == fruitY && j == fruitX) {
cout << "F";
}
else {
bool print = false;
for (int k = 0;k < nTail;k++) {
if (tailX[k] == j && tailY[k] == i) {
print = true;
cout << "o";
}
}
if (!print) {
cout << " ";
}
};
cout << " ";
};
cout << endl;
};
cout << endl;
for (int i = 0;i < width;i++) {
cout << "#";
};
cout << endl;
cout << "Score: " << score << endl;
};
void Input() {
if (_kbhit()) {
switch (_getch()) {
case'a': {
dir = LEFT;
}
break;
case'd': {
dir = RIGHT;
}
break;
case'w': {
dir = UP;
}
break;
case's': {
dir = DOWN;
}
break;
case'x': {
gameOver = true;
}
break;
}
};
};
void Logic() {
int prevX = tailX[0];
int prevY = tailY[0];
int prev2X, prev2Y;
tailX[0] = x;
tailY[0] = y;
for (int i = 1;i < nTail;i++) {
prev2X = tailX[i];
prev2Y = tailY[i];
tailX[i] = prevX;
tailY[i] = prevY;
prevX = prev2X;
prevY = prev2Y;
}
switch (dir)
{
case LEFT:
x--;
break;
case RIGHT:
x++;
break;
case UP:
y--;
break;
case DOWN:
y++;
break;
}
/*
if (x > width || x < 0 || y>height || y < 0) {
gameOver = true;
};*/
if (x >= width - 1) {
x = 0;
}
else if (x < 0) {
x = width - 2;
}
if (y >= height) {
y = 0;
}
else if (y < 0) {
y = height - 1;
}
for (int i = 0;i < nTail;i++) {
if (tailX[i] == x && tailY[i] == y) {
gameOver = true;
}
}
if (x == fruitX && y == fruitY) {
score += 10;
fruitX = rand() % width;
fruitY = rand() % height;
nTail++;
}
}
int main() {
srand(time(0));
Setup();
while (!gameOver) {
Draw();
Input();
Logic();
}
return 0;
}
Объяснение:
эта игра работает только в кампиляторе Visual studio или qt creater