2 / 2 / 0
Регистрация: 20.12.2009
Сообщений: 47
1

Определить, может ли белая фигура пойти на поле (e,f), не попав при этом под удар черной фигуры

24.12.2009, 01:40. Показов 1258. Ответов 1
Метки нет (Все метки)

Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми: первое число – номер вертикали (при счете слева направо), второе – номер горизонтали (при счете снизу вверх). С помощью датчика случайных чисел получить натуральные числа a, b, c, d, e, f, каждое из которых не превосходит восьми. Пусть на поле (a,b) расположена белая фигура, а на (c,d) – черная. Определить, может ли белая фигура пойти на поле (e,f), не попав при этом под удар черной фигуры. При условии, что белая фигура – конь, черная фигуру – ферзь.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program chess;
uses crt;
type pole=1..8;
var a,b,c,d,e,f:pole;
begin
clrscr;
randomize;
a:=random(8)+1;
b:=random(8)+1;
c:=random(8)+1;
d:=random(8)+1;
e:=random(8)+1;
f:=random(8)+1;
writeln('Kon:  ',a,' ',b);
writeln('Ferz: ',c,' ',d);
writeln('Pole: ',e,' ',f);
if (e=c)or(f=d)or(abs(e-c)=abs(f-d))or(c+d=e+f)
then write('No!') else write('Yes!');
readln
end.
Дано предложение. Напечатать все слова, которые встречаются в нем по одному разу.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program String;
var
a:string;
b:array[1..100]of string;
i,k,f,j:integer;
begin
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' 'then inc(k) else b[k]:=b[k]+a[i];
for i:=1 to k do
begin
f:=0;
for j:=1 to k do
if (i<>j)and(b[i]=b[j])then f:=1;
if f=0 then write(b[i],' ');
end;
end.
Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов.
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
Program Function;
uses crt;
type mas=array[1..50]of integer;
var a:mas;
n,i:integer;
function Max(n:integer):integer;
var w:integer;
begin
if n>1 then
begin
w:=Max(n-1);
if a[n]<w then Max:=w
else Max:=a[n]
end
else Max:=a[1]
end;
begin
clrscr;
randomize;
write('Razmer massiva A n=');
readln(n);
writeln('Massiv A:');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
write('max=',Max(n));
readln
end.
Дана матрица (nXm). Найти произведение элементов каждой строки.
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
Program matrica;
var
a:array[1..100,1..100]of integer;
p:longint;
n,m,j,i:integer;
begin
write('strok=');
readln(n);
write('stolbcov=');
readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10);
writeln('matrica');
p:=1;
for i:=1 to n do
begin
for j:=1 to m do
begin
p:=p*a[i,j];
write(a[i,j]:4);
end;
writeln(‘p=',p);
p:=1;
end;
readln;
end.
Спасибо всем кто помог и отписал.
P.S: Программы на 100% верные и проверенные....
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2009, 01:40
Ответы с готовыми решениями:

Шахматы: может ли белая фигура пойти на поле ef, не попав при этом под удар черной фигуры?
Поле шахматной доски определяется парой чисел, каждое из которых не превосходит 8: 1е число - номер...

Определить, может ли белая ладья пойти на заданное поле, не попав при этом под удар чёрной ладьи
Даны натуральные числа a,b,c,d,e,f каждое из которых не превосходит восьми.На поле(a,b) шахматной...

Сможет ли белая фигура перейти на ячейку, не попав под удар черной фигуры
Даны координаты трех ячеек шахматной доски. На клетке (x1, y1) расположена белая фигура, на ячейке...

Определить, может ли белая фигура пойти на поле, не попав при этом под удар черной фигуры
Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми:...

1
ЙожЪ
63 / 59 / 17
Регистрация: 23.10.2009
Сообщений: 652
24.12.2009, 01:49 2
Цитата Сообщение от SILVER77 Посмотреть сообщение
Pascal
1
Program Function;
такое название не может быть)
Pascal
1
Program Functio;
-другое дело))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2009, 01:49
Помогаю со студенческими работами здесь

Может ли белая фигура пойти на поле (e,f), не попав при этом под удар черной фигуры
Дураку уж помогите(((( 1. Поле шахматной доски определяется парой натуральных чисел, каждое из...

Определить поля(отметить символом +), на которые может пойти первая фигура, не попав под удар второй фигуры
Шахматную доску будем представлять в виде квадратного символьного массива размерность 8 на 8. Дано...

Определить, сможет ли белый слон одним ходом пойти на поле (e, f), не попав при этом под удар
Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми:...

Определить сможет ли белый слон расположенный на поле (a,b),одним ходом пойти на поле (e,f),не попав при этом под удар чёрного коня нах.(c,d)
ребята помогите пожалуйста!я в с++ вообще не бум-бум! у меня 2-е задачи с шахматами!а я даже играть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru