Отправляет 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 [#002]
Главная    Здравствуйте!
  Вы читаете второй выпуск рассылки "Олимпиадные задачи с решениями на Turbo Pascal".
  Сначала информация для новичков. Меня зовут Шамис Алексей, вы всегда можете обратиться ко мне, если у вас возникнут какие-то вопросы. Рассылка выходит по выходным дням, один раз в неделю. В каждом номере публикуется условие новой задачи и решение старой. Авторские решения всех задач вы всегда сможете найти на сайте http://sapisoft.h1.ru.
  Кстати, если у вас есть условия интересных задач по информатике, то вы можете присылать их мне, таким образом пополняя нашу "задачную" базу.
  Может быть, у вас возникнут какие-то предложения по изменению содержания данной рассылки. Например, нужен ли теоритический раздел? Не стесняйтесь, присылайте cвои мысли по адресу: sapisoft@yandex.ru.
  В этом номере публикуется решение задачи прошлого номера, и условие новой задачи - "Крестики-нолики".
О нас
Программы
Вакансии
Документация
Задачи
FAQ по Delphi
Ссылки

Товарные операции
Условие:
Предприниматель приобретает товар по оптовой цене (цена в долларах США за 100 единиц товара) партиями по 100 единиц. Затем он этот товар продаёт по розничной цене (цена в рублях за одну единицу товара). Составить программу для определения размера прибыли, которую получит предприниматель в рублях, если продаст весь товар.

Технические условия:
Программа должна читать исходные данные из файла input.txt, имеющего такую структуру:
- Первая строка содержит число N (N<231) - количество видов приобретённого товара.
- Каждая последующая строка содержит четыре числа, разделённых одним или несколькими пробелами - информацию о товаре: количество единиц приобретённого товара, оптовая цена товара (за 100 единиц товара), розничная цена единицы товара, курс доллара (цена одного доллара в рублях) на момент приобретения товара.
Программа должна заносить результат работы в файл output.exe, содержащий единственное вещественное число с двумя знаками дробной части - размер прибыли предпринимателя в рублях.

Пример входного и выходного файлов:
3 1420.00
1000 5 1 2.5
500 3 0.6 5
2500 65 3.62 5.68

Решение:
{$N+}
{Переводим данную директиву компилятора в состояние $N+ для использования переменной типа extended}
var
F:text;
n,i:longint;
S:extended;
T:integer;
Opt,Rozn,Buks:Real;
begin
assign(f,'input.txt');
reset(f);
readln(f,n);
for i:=1 to n do begin
read(F,T,Opt,Rozn,Buks);
S:=S+T*Rozn-T/100*Opt*Buks;end;
close(f);
{Для N-ого количества товаров читаем из файла значения переменных и по формуле вычисляем размер прибыли предпринимателя}
assign(f,'Output.txt');
rewrite(f);
Writeln(F,S:2:2);
{Выводим в файл значение переменной S с двумя знаками после запятой}
Close(f);
end.

Товарные операции
Условие:
Игра в крестики-нолики ведётся на квадратном поле 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

Реклама

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

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