Форум «Всё о Паскале» _ Задачи _ объясните решение
Автор: Vinsent90 4.06.2008 22:47
Всем здрасте. Дана задача... Ввести последовательность символов и определить число различных букв данной строки
program koli4estvo_razli4nih_bukv; uses crt; var s, a : string; r : real ; i,j,n,x:integer; begin clrscr; writeln (' vvedite stroku '); readln(s); for i:=1 to length(s) do begin if s[i] in ['a'..'z'] then begin inc(x); a[x]:=s[i]; end; end; begin for i:=1 to x do begin n:=0; for j:=1 to x do begin if a[i]=a[j] then inc(n) end;
Может кто-нибудь объяснить, что происходит в строке r:=r+1/n ?
Автор: volvo 4.06.2008 22:54
Цитата
Может кто-нибудь объяснить, что происходит в строке r:=r+1/n ?
Особенно интересно, что будет происходить в этой строчке при вводе строки "abcd", например
Автор: Vinsent90 4.06.2008 23:33
Цитата(volvo @ 4.06.2008 19:54)
Особенно интересно, что будет происходить в этой строчке при вводе строки "abcd", например
Ну если буква в строке не повторяется, то n=1 , R увеличивается на 1, а если буква повторяется, допустим 3 раза, то R:=r+1/3 ... R не изменится так как оно REAL ? Я правильно понял?