Задача.Максимальные числа+работа с файлами.
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Задача.Максимальные числа+работа с файлами. - 2010-11-03 14:19:03.036666
|
|
|
Gavrilov
Сообщений: 229
Оценки: 0
Присоединился: 2010-04-06 16:13:53.420000
|
Здравствуйте дорогие друзья. Сижу за школьным компьютером.
Задали мне вот такую задачку:
Дана последовательность чисел. Выяснить, сколько раз в ней встречаеться максимальное число.
Входные данные.
Вводиться сначало одно число N - количество членов последовательности, а потом N чисел - члены последовательности.
Выходные данные.
Вывести одно число - сколько раз в последовательности встречаеться максимальное число.
Имя входящего файла: INPUT.TXT
Пример
7
1 4 2 5 2 5 3
Имя исходящего: OUTPUT.TXT
Пример
2
Вот моя наработка, которая постоянно выдает ошибки:
Uses crt;
Var a:array[1..255] of longint; i,n,k,m:longint; inp,out:text;
begin
clrscr;
assign(inp,D:\tp7\BIN\input);
assign(out,D:\tp7\BIN\output);
rewrite(inp);
readln(n);
writeln(inp,n);
for i:=1 to n do begin
read(a[i]);
writeln(inp,a[i]);
end;
close(inp);
m:=a[1];
for i:=1 to n do
if a[i]>m then m:=a[i];
for i:=1 to n do
if a[i]=m then inc(k);
rewrite(out);
writeln(k);
close(out);
readln;
readln;
end.
Прошу быть снисходительным и помочь. Я разрешаю даже ругать и ругать сильно. Только не бейте;)
Буду очень признательным за Ваше потраченное время и рад потратить свое время на Вас.
|
|
|
|
|
RE: Задача.Максимальные числа+работа с файлами. - 2010-11-03 15:21:34.273333
|
|
|
sbk
Сообщений: 144
Оценки: 0
Присоединился: 2008-12-20 19:01:57.273333
|
1. Пишите какие ошибки выдает!
2. Должно быть не так assign(inp,D:\tp7\BIN\input);
assign(out,D:\tp7\BIN\output); а так: assign(inp,'D:\tp7\BIN\input.txt');
assign(out,'D:\tp7\BIN\output.txt'); Дальше код не смотрел.
|
|
|
|
|
RE: Задача.Максимальные числа+работа с файлами. - 2010-11-08 09:06:40.930000
|
|
|
dimonix6
Сообщений: 11
Оценки: 0
Присоединился: 2010-11-08 08:44:44.413333
|
а за O(n) вот так:
#include <iostream>
#include <fstream>
using namespace std;
int main()
{
ifstream ofile("input.txt");
int n;
int max, k = 1, cur;
ofile >> n;
ofile >> cur;
max = cur;
for (int i = 0; i < n - 1; i++)
{
ofile >> cur;
if (cur > max)
{
max = cur;
k = 1;
}
else if (cur == max)
k++;
}
ofstream outfile("output.txt");
outfile << k;
return 0;
}
|
|
|
|
|
|
