VPF::Помогите решить задачки - Форум программистов

Yusup

Дата 11.3.2009, 04:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 26.1.2006

Репутация: нет
Всего: нет

Задача № 1.
Дано число n. Найти все его делители.
Примеры входных и выходных файлов:
INPUT.TXT             6
OUTPUT.TXT    1 2 3 6

Задача № 2.
Проверить корректность расстоновки скобок в арифметическом выражении. Выражение задается
из файла "INPUT.TXT" и может содержать произвольное количество круглых скобок.
Программа должна выдать одну строчку: "правильно" или "неправильно"
Примеры входных и выходных файлов:
INPUT.TXT                             OUTPUT.TXT
7+(А+В)*(-Х)                      правильно
(7+(А+В)*(-Х)                     неправильно

Задача № 3.
Имеется список учащихся школы. Требуется написать программу, распределяющую какое имя самое редкое.
Формат входных данных:
Входной файл "INPUT.TXT" содержит список учеников. В каждой строке через пробел заданы
Фамилия Имя Отчество ученика.
Ограничения на входные данные: Число учеников в школе <=10000
Формат выходных данных:
Файл "OUTPUT.TXT" содержит одну строку с искомым именем.
INPUT.TXT                                                      OUTPUT.TXT
Пушкин Александр Сергеевич                     Любовь
Луканов Александр Сергеевич
Соколова Любовь Викторовна
Иванов Иван Васильевич
Сидоров Иван Петрович

hot_man

Дата 11.3.2009, 07:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 5.12.2007
Где: Россия, Тольятти

Репутация: нет
Всего: нет

C такими идеями иди в центр помощи!

Metalex

Дата 11.3.2009, 10:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Даже не обязательно в центр. Неплохо было бы записать каждую задачу в отдельный топик, тогда было бы лучше думать.

#1

Код


Program Chisla;
Var ino, outo:file of integer; A, i:integer;
Begin
assign (ino, 'input.txt');
rewrite (ino);
readln (A);
write (ino, A);
close(ino);
assign (outo, 'output.txt');
{reset (ino);} {Почему - см. дальше}
rewrite (outo);
{Дальше возможны варианты: Число можна брать входное, а можна считывать записанное из файла. Поскольку в условии про чтение из файла ничего не сказано, не будем усложнять жизнь.}
for i:=1 to A do {И опять же: в условии сказано: все делители, а в примере только положительные. Ну что же..}
if A mod i=0
then write (outo, i);
close (outo);
readln;
end.

Вроде должно работать.

Это сообщение отредактировал(а) Metalex - 11.3.2009, 10:47

--------------------

Don't let the system get you down.

Metalex

Дата 11.3.2009, 10:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Или если число уже в файле, так:

Код

Program Chisla;
Var ino, outo:file of integer; A, i:integer;
Begin
assign (ino, 'input.txt');
reset (ino);
read (ino, A);
close(ino);
assign (outo, 'output.txt');
rewrite (outo);
for i:=1 to A do
if A mod i=0
then write (outo, i);
close (outo);
readln;
end.

--------------------

Don't let the system get you down.

Yusup

Дата 12.3.2009, 04:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 26.1.2006

Репутация: нет
Всего: нет

Metalex
Большое Спасибо!!! Вы меня выручили!

hot_man
Учту ваше замечание!

Metalex

Дата 15.3.2009, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Хм.. а вторую задачу у меня решить не получается.. Идея есть, конечн..

--------------------

Don't let the system get you down.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »