21.12.2010, 18:16 | #1 (permalink) |
Новичок
Регистрация: 21.12.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с блок-схемой Turbo-Pascal
Slova : Array [1..12] of String; i,j,k,s : Integer; Glasniy : Set of Char; Begin Glasniy:=['w','W','y','Y','i','I','o','O','a','A','j','J','у ','У','е','Е','e','E','ы','Ы','а','А','о','О','э', 'Э','я','Я','и','И','ю','Ю']; Writeln ('Введите 12 слов :'); k:=0; for i:=1 to 12 do begin Write (i,'-е слово : '); Readln(Slova[i]); if (Slova[i,1]='c') or (Slova[i,1]='с') then k:=k+1; end; Writeln ('Количество слов начинающихся с символа "c" : ',k); for i:=1 to 12 do if (Slova[i,1]='c') or (Slova[i,1]='с') then begin s:=0; for j:=1 to length(Slova[i]) do if Slova[i,j] in Glasniy then s:=s+1; Writeln ('В слове ',Slova[i],' ',s,' гласных.'); end; Readln; End. |
21.12.2010, 18:16 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Участники форума ранее решали похожую проблему Cтек, Turbo Pascal Turbo Pascal. Оператор CASE Синтаксический анализатор. Turbo Pascal Помогите решить задачи в Turbo Pascal Стек в Turbo Pascal Задача в Turbo Pascal |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|