|
кролики!
|
|
| snaper1993 | Дата: Среда, 12.12.2007, 04:11 | Сообщение # 1 |
 Бывалый
Группа: Пользователи
Сообщений: 121
Статус: Offline
| Входные данные: в первой строке текстового файла Z3.dat содержится число N - количество кроликов, которых представил каждый фермер (значение N не превышает 1000). Дальше следуют 2*N строк, в каждом из которых записанная масса одного кролика.Для удобства фермеры записывали массу кролика в граммах. Поэтому все числа – натуральные. Причем в первых N строках записанные данные о кроликах фермера Вампірова, а в следующих N строках - кролики фермера Дієтенка.
Исходные данные: в первую строку текстового файла Z3.sol запишите букву V, если победил фермер Вампіров, или букву D, если победил фермер Дієтенко. ВО вторую строку запишите массу кролика-перможця.Если ни у одного кролика масса не будет выражаться простым числом, или массы кроликов- победителей у фермеров совпадают, в файл Z3.sol запишите единую строку, которая содержит слово "draw".
Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?
|
| |
| |
| Seqular | Дата: Среда, 12.12.2007, 06:18 | Сообщение # 2 |
 Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Непонятно.. Нужно сравнивать общие массы кроликов? Т.е. у кого суммарная масса кроликов больше, тот и победил?
А что значит "кролика-перможця"?
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| snaper1993 | Дата: Среда, 12.12.2007, 08:03 | Сообщение # 3 |
|
Бывалый
Группа: Пользователи
Сообщений: 121
Статус: Offline
| Как известно, фермеры Диєтенко и Вампиров постоянно конкурировали один из одним. Каждый хотел довести второму, что его кролики лучшие. Но, в связи с тем, что оба имели незаурядное дарование к математике, просто искать наибольшего кролика им было неинтересно. Поэтому наилучшим считался тот кролик, вес которого выражался простым числом и при этом сумма цифр этого числа была по возможности большей. Для проверки фермеры выбрали по N своих кроликов. Помогите фермерам Дієтенку и Вампірову решить этот спор и выбрать найлучшево кролика Z3.dat Z3.sol
4
1123
V 9551
2252
951
5921
1129
1893
2854
9551 Добавлено (12.12.2007, 01:03)
---------------------------------------------
Z3.sol
написано V 9551
Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?
|
| |
| |
| Seqular | Дата: Суббота, 15.12.2007, 10:09 | Сообщение # 4 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Итак, считали файл Z3.dat в переменную N.
Потом считываем N первых строк файла Z3.dat, преобразовываем в числа и находим максимум, (max1).
Делаем то же самое с остатоком файла, но максимум записываем в max2.
Если max1 > max2, то пишем в файл Code Writeln(f2, 'V ' + max1);
Если наоборот, то пишем в файл Code Writeln(f2, 'D ' + max2);
А если равны, то пишем
Вот и вся задача
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| snaper1993 | Дата: Суббота, 15.12.2007, 18:04 | Сообщение # 5 |
|
Бывалый
Группа: Пользователи
Сообщений: 121
Статус: Offline
| У меня штото не работает Переделай правильно пожалуста!!
VAR n,max1,max2:integer;
begin
readln(n);
max1:=max1+1;
max2:=max2+1;
n:=max1+max2;
if max1>max2 then writeln('v' +max1);
if max1<max2 then writeln('d' +max2);
if max1<>max2 then writeln('draw');
end.
Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?
|
| |
| |
| Seqular | Дата: Суббота, 15.12.2007, 20:22 | Сообщение # 6 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| snaper1993, Конечно не будет работать =)) С чего б она работала?
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| Seqular | Дата: Суббота, 15.12.2007, 21:19 | Сообщение # 7 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Code Program KROLIK;
Uses CRT;
Var f1, f2: Text; {Файлы на ввод и вывод}
n: Integer; {Сколько строк считывать}
i, c, num: Integer;
s: String; {Сама строка}
m1, m2: Integer; {Максимум первый и второй}
Begin
ClrScr;
Assign(f1, 'z1.dat'); ReSet(f1);
Assign(f2, 'z1.sol'); ReWrite(f2);
Readln(f1, n);
For i := 1 to n do
Begin
Readln(f1, s);
Val(s, num, c);
If (num > m1) then m1 := num;
End;
For i := 1 to n do
Begin
Readln(f1, s);
Val(s, num, c);
If (num > m2) then m2 := num;
End;
If (m1 > m2) then Writeln(f2, 'V ', m1);
If (m2 > m1) then Writeln(f2, 'D ', m2);
If (m1 = m2) then Writeln(f2, 'draw');
Close(f1); Close(f2);
End.
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| snaper1993 | Дата: Суббота, 15.12.2007, 21:31 | Сообщение # 8 |
|
Бывалый
Группа: Пользователи
Сообщений: 121
Статус: Offline
| Спасибо Большое!
Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?
|
| |
| |
| Seqular | Дата: Суббота, 15.12.2007, 22:07 | Сообщение # 9 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| snaper1993, Большое пожалуйста! Тему закрываю 
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
