06.05.2011, 02:09 | #1 (permalink) |
Новичок
Регистрация: 05.05.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вывести страну с наибольшей площадью
Дан список стран (во входном файле). Вывести страну с наибольшей площадью в выходной файл, и в ходе программы добавить еще 2 страны с клавиатуры. Помогите, пожалуйста, в задачи найти ошибку. Почему у меня не правильно находит страну с наибольшей площадью. Код программы: Код:
Program a9; Uses crt; type geo=record gos:string[16]; pl:string[5]; st:string[7]; end; Var a:array[0..16] of geo; inp,out:text; g:geo; k:1..5; LG:1..16; LS:1..7; LP:1..5; i:1..16; max:string; begin clrscr; assign(inp,'C:\111.in');append(inp); for k:=1 to 2 do begin writeln('vvedite gosydarstvo'); readln(g.gos); writeln('vvedite plowad'); readln(g.pl); writeln('vvedite stolicy'); readln(g.st); LG:=length(g.gos); if LG<16 then for i:=LG+1 to 16 do insert(' ',g.gos,i); LS:=length(g.st); if LS<7 then for i:=LS+1 to 7 do insert(' ',g.st,i); write(inp,g.gos,g.pl,g.st); end; close(inp); reset(inp); assign(out,'C:\111.out'); rewrite(out); writeln(out,'strana'); a[i].pl:=g.pl ; max:=a[1].pl; repeat readln(inp,g.gos,g.pl,g.st); for i:=1 to 9 do if max<a[i].pl then max:=a[i].pl; until eof(inp); writeln(out,'naibolwaya po plowadi',g.gos,max,g.st); close(inp); close(out) end. Код:
Avstriya 84 Vena Belgiya 31 Brussel Velikobritaniya 244 London Germaniya 357 Berlin Franciya 544 Paris Italiya 301 Rim Greciya 132 Afinu |
06.05.2011, 02:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посмотрите в этих темах, возможно там есть нужный ответ Не могу вывести результат задачи Вывести на экран результат вычисления выражения Возможно ли вывести видео с телефона на телевизор? Вывести результат в Edit |
06.05.2011, 10:52 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Program a9; Uses crt; type geo=record gos:string[16]; pl:Word; st:string; end; Var a:array[1..16] of geo; inp,out:text; g:geo; k:1..5; LG:1..16; i:1..16; max:Word; begin clrscr; assign(inp,'C:\111.in'); append(inp); for k:=1 to 2 do begin writeln('vvedite gosydarstvo'); readln(g.gos); writeln('vvedite plowad'); readln(g.pl); writeln('vvedite stolicy'); readln(g.st); LG:=length(g.gos); if LG<16 then for i:=LG+1 to 16 do insert(' ',g.gos,i); writeln(inp,g.gos,g.pl,' ',g.st); end; close(inp); reset(inp); i:=1; max:=0; repeat readln(inp,a[i].gos,a[i].pl,a[i].st); if max<a[i].pl then begin max:=a[i].pl; g:=a[i]; end; Inc(i); until eof(inp); assign(out,'C:\111.out'); rewrite(out); writeln(out,'strana'); writeln(out,'naibolwaya po plowadi ',g.gos,' ',max,' ',g.st); close(inp); close(out) end. |
|
06.05.2011, 22:17 | #3 (permalink) |
Новичок
Регистрация: 05.05.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо огромное, за помощь
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|