Форум » Обработка числовых последовательностей » [С4] задача 4[2] » Ответить
[С4] задача 4[2]
5-4ok.: вот такой вопрос)скажите пожалуйста на сколько баллов мне расчитывать за такое решение?) знаю что там цикл в цикле,но всё же больше ничего не лезет в голову) [pre2]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.[/pre2]
Ответов - 4
Поляков: 5-4ok. пишет: скажите пожалуйста на сколько баллов мне рассчитывать за такое решение?) Запустите программу и погоняйте на разных вариантах. Она не работает, как нужно.
5-4ok.: хорошо посмотрю.просто прогонял вроди работала.. а вот на счет того что тут 2 цикла норм?))за это не будут баллы снижать?)
Поляков: 5-4ok. пишет: на счет того что тут 2 цикла норм?))за это не будут баллы снижать?) Смотря какие критерии будут у экспертов. Пока ваше решение претендует на 1-2 балла (работает в некоторых ситуациях, когда каждая фамилия встречается 1 или 2 раза).
5-4ok.: ага я заметил)только вот думаю как переделать)
полная версия страницы