Автор | Сообщение |
|
Отправлено: 08.05.12 22:49. Заголовок: [С4] задача 4[2]
вот такой вопрос)скажите пожалуйста на сколько баллов мне расчитывать за такое решение?) знаю что там цикл в цикле,но всё же больше ничего не лезет в голову) program p1; uses crt; var i,j,n,k,p:integer; s:string; a:array[1..100]of string; begin clrscr; readln(n);k:=0; for i:=1 to n do begin readln(a); p:=pos(' ',a[ i]); delete(a[ i],p,length(a)-p+1);//отрезаем имя от фамилии for j:=1 to n do if a[ i]=a[j] then inc(k); if k>1 then begin str(k,s); a[ i]:=a[ i]+s;//если встретилась такая же фамилия n раз, прибавляем к слову n end; k:=0; end; for i:=1 to n do writeln(a[ i]); end.
|
|
|
Ответов - 4
[только новые]
|
|
|
| Администратор
|
Сообщение: 302
|
|
Отправлено: 09.05.12 11:36. Заголовок: 5-4ok. пишет: скажит..
5-4ok. пишет: цитата: | скажите пожалуйста на сколько баллов мне рассчитывать за такое решение?) |
|
Запустите программу и погоняйте на разных вариантах. Она не работает, как нужно.
|
|
|
|
Отправлено: 09.05.12 12:18. Заголовок: Поляков эмм хорошо п..
хорошо посмотрю.просто прогонял вроди работала.. а вот на счет того что тут 2 цикла норм?))за это не будут баллы снижать?)
|
|
|
|
| Администратор
|
Сообщение: 306
|
|
Отправлено: 09.05.12 16:08. Заголовок: 5-4ok. пишет: на сч..
5-4ok. пишет: цитата: | на счет того что тут 2 цикла норм?))за это не будут баллы снижать?) |
|
Смотря какие критерии будут у экспертов. Пока ваше решение претендует на 1-2 балла (работает в некоторых ситуациях, когда каждая фамилия встречается 1 или 2 раза).
|
|
|
|
Отправлено: 09.05.12 19:57. Заголовок: ага я заметил)только..
ага я заметил)только вот думаю как переделать)
|
|
|
|