Отправляет email-рассылки с помощью сервиса Sendsay

Олимпиадные задачи с решениями на Turbo Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.826 RSS
  Декабрь 2001   →
 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


За последние 60 дней ни разу не выходила


Открыта: 02-12-2001

Автор
Aslof

Статистика

3.826 подписчиков
0 за неделю
←   Все выпуски   →

Олимпиадные задачи с решениями на Turbo Pascal


Служба Рассылок Subscribe.Ru
Олимпиадные задачи c решениями на Turbo Pascal

Олимпиадные задачи с решениями на Turbo Pascal

Рассылка проекта sapisoft.h1.ru [#003]
Главная О нас Программы Вакансии Документация Задачи FAQ по Delphi Ссылки

Крестики-нолики
Условие:
Игра в крестики-нолики ведётся на квадратном поле 3х3. Играют двое. Начинают "крестики". Каждый из игроков, поочерёдно, ставит свой значок, крестик или нолик, на свободную клетку. Выигрывает тот, кто первым поставит три своих значка вряд по вертикали, горизонтали или диагонали.
Задаётся последовательность ходов. Определить, кто выиграл, "крестики" или "нолики"?

Технические условия:
Последовательность ходов задаётся 9-значным числом. Цифра числа обозначает номер клетки хода, а порядковый номер цифры - номер хода. Клетки пронумерованы, как показано на рисунке:
7 8 9
4 5 6
1 2 3

В примере приведён один из вариантов. Очевидно, что последние два хода лишние, но они нужны для девятизначности кода позиции. Написать программу, которая читает файл INPUT.TXT, содержащий одну строку - последовательность ходов и выводит в текстовый файл OUTPUT.TXT символ "X" (большая латинская буква), если выиграли "крестики", символ "0" (цифра), если выиграли "нолики" или слово "DRAW" (ничья по-английски), если игра закончилась вничью. Правильность кода позиции проверять не надо.

Пример:

X 0 X
0 X 0
X 0 X

INPUT.TXT
123456789
OUTPUT.TXT
X

Решение:
var
str:string;f:text;A:array [1..9] of String;i:integer;

function winner:string;
begin
if (A[1]=A[2]) and (A[2]=A[3]) then begin Winner:=A[1];exit;end;
if (A[4]=A[5]) and (A[5]=A[6]) then begin Winner:=A[4];exit;end;
if (A[7]=A[8]) and (A[8]=A[9]) then begin Winner:=A[7];exit;end;
if (A[1]=A[4]) and (A[4]=A[7]) then begin Winner:=A[1];exit;end;
if (A[2]=A[5]) and (A[5]=A[8]) then begin Winner:=A[2];exit;end;
if (A[3]=A[6]) and (A[6]=A[9]) then begin Winner:=A[3];exit;end;
if (A[1]=A[5]) and (A[5]=A[9]) then begin Winner:=A[1];exit;end;
if (A[3]=A[5]) and (A[5]=A[7]) then begin Winner:=A[3];exit;end;
Winner:='DRAW';
end;

begin
assign(f,'input.txt');
reset(f);
readln(f,str);
close(f);
for i:=1 to 9 do begin
if (i mod 2)=0 then begin
case Str[i] of
'1':A[1]:='0';
'2':A[2]:='0';
'3':A[3]:='0';
'4':A[4]:='0';
'5':A[5]:='0';
'6':A[6]:='0';
'7':A[7]:='0';
'8':A[8]:='0';
'9':A[9]:='0';end;end else begin
case Str[i] of
'1':A[1]:='X';
'2':A[2]:='X';
'3':A[3]:='X';
'4':A[4]:='X';
'5':A[5]:='X';
'6':A[6]:='X';
'7':A[7]:='X';
'8':A[8]:='X';
'9':A[9]:='X';END;end;
if (i=9) and (Winner='DRAW') then begin
assign(f,'Output.txt');
rewrite(f);
writeln(f,'DRAW');close(f);end;
if Winner='X' then begin
assign(f,'Output.txt');
rewrite(f);
writeln(f,'X');close(f);Exit;end;
if Winner='0' then begin
assign(f,'Output.txt');
rewrite(f);
writeln(f,'0');close(f);Exit;end;
end;
end.

Слияние чисел
Условие:
Из цифр двух натуральных чисел составить наибольшее возможное число, сохраняя первоначальную последовательность цифр.

Технические условия:
Программа должна читать исходные числа из файла input.txt, и выводить полученое число в файл output.txt.

Примеры входного и выходного файлов:

Input.txt

Output.txt
20
4181		 421810
111
222		 222111
97531
86420		 9876543210

Реклама

  Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
  Программу можно бесплатно загрузить с сайта http://sapisoft.h1.ru.

Жду ваших предложений и замечаний, Шамис Алексей
Copyright © 2001 by Shamis Alex.
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное