найти наибольшее число из трех

@Программист_ · Регистрация: 19.11.2010

Author24 — интернет-сервис помощи студентам

Суть задачи в том, чтобы найти найбольшее число из трех(причем числа не меньше 10в 100 степени).
Пример входных данных (через текстовый документ):
5 7 3
Вывод должен быть 7. У меня на компьютере все работает, но почему то на сайте не принимает, один из вариантов что во входном файле я как то считываю пустую вторую строку:

for i:=1 to 3 do begin
for i1:=1 to 101 do
if b<>1 then begin read(q[i1]);
...
if q[i]=' ' then b:=1;end;

Подскажите, что не так.

@Puporev · 10.12.2010, 21:28

Сообщение от Программист_

У меня на компьютере все работает

И ты вводил числа типа 10^100?

@Программист_ · 10.12.2010, 21:43 **[ТС]**

Сообщение от Puporev

И ты вводил числа типа 10^100?

Дело не в больших числах, ошибка у меня при числах в пределе 1-20, может есть какой то алгоритм чтения отедльных элементов строки что ли...

@Puporev · 10.12.2010, 21:46

Если в файле записано три строки, то и читай эти строки

Pascal

1
2
3

readln(f,s1);
readln(f,s2);
readln(f,s3);

потом делай с ними что хочешь

@Программист_ · 10.12.2010, 21:53 **[ТС]**

Вообщем, вот задача
http://acmp.ru/index.asp?main=task&id_task=7

Но при чтении я почему то читаю пробел что ли, на компьютере все работает, код был приведен уже:

Pascal

for i:=1 to 3 do begin
for i1:=1 to 101 do
if b<>1 then begin read(q[i1]);
...
if q[i1]=' ' then b:=1;end;
b:=0;end;

Добавлено через 5 минут
А если можно читать как то три строки, записаных в одну строку обьясните как пожалуйста

@Puporev · 10.12.2010, 22:11

Вообще тупая задача, три числа по 100 знаков в 1 строку не войдут.
Если строка одна, то просто прочитать ее и выделить числа

Pascal

readln(f,s);
s1:=copy(s,1,pos(' ',s))-1;
delete(s,1,pos(' ',s));
s2:=copy(s,1,pos(' ',s))-1;
delete(s,1,pos(' ',s));
s3:=s;

Добавлено через 1 минуту
Если третье число переходит на другую строку, тогда читать посимвольно, пропустив символы #10,#13,#26

Добавлено через 15 минут
Я бы прочитал так.

Pascal

uses crt;
var s:string;
    a:array[1..3] of string;
    f:text;
    c:char;
    n,i:byte;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
n:=1;
while not eof(f) do
 begin
  read(f,c);
  if not(c in [#10,#13,#26,' '])then
  a[n]:=a[n]+c;
  if c=' 'then n:=n+1;
 end;
close(f);
for i:=1 to n do
writeln(a[i]);
readln
end.

@Программист_ 0 / 0 / 0 Регистрация: 19.11.2010 Сообщений: 9
		1
	найти наибольшее число из трех 10.12.2010, 21:26. Показов 1082. Ответов 5 Метки нет (Все метки) Суть задачи в том, чтобы найти найбольшее число из трех(причем числа не меньше 10в 100 степени). Пример входных данных (через текстовый документ): 5 7 3 Вывод должен быть 7. У меня на компьютере все работает, но почему то на сайте не принимает, один из вариантов что во входном файле я как то считываю пустую вторую строку: for i:=1 to 3 do begin for i1:=1 to 101 do if b<>1 then begin read(q[i1]); ... if q[i]=' ' then b:=1;end; Подскажите, что не так. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.12.2010, 21:28	2
	Сообщение от Программист_ У меня на компьютере все работает И ты вводил числа типа 10^100? 0

@Программист_ 0 / 0 / 0 Регистрация: 19.11.2010 Сообщений: 9
	10.12.2010, 21:43 [ТС]	3
	Сообщение от Puporev И ты вводил числа типа 10^100? Дело не в больших числах, ошибка у меня при числах в пределе 1-20, может есть какой то алгоритм чтения отедльных элементов строки что ли... 0

	10.12.2010, 22:11