Буквы в строке Опции

[Вячеслав Л.]

Задание:

ввести строку (латинские буквы) и подсчитать кол-во букв 'а' в ней

Я думаю, это будет выглядеть как-то так:

Код

program hg;
var
st:string;
k:integer;
begin
for 1 to length(st) do
k:=ord(st,'a')
if k:=160 {esli ne owibayus' eto kod bykvy 'a'}
then k:=k+1
else writeln('bykv 'a' v stroke net');
end.

[RathaR]

Задание:
ввести строку (латинские буквы) и подсчитать кол-во букв 'а' в ней

а что мешает посимвольно пройтись по строке, проверить каждый символ, ровняеться ли он "а", эфект тотже, да и намного проще чем сравнивать через ASCII таблицу:

program hg;
var
st:string;
I,k:integer;
begin
k:=0;
write('Vvedite strokyy');
readln(st);

for I:=1 to length(st) do
If st[I]='a' then inc(k);

If k=0 then  writeln('bykv 'a' v stroke net') else writeln('Bykv a v stroke:', k);
end.

З.Ы. Я чтото в твоей програме не увидел где ты считываеш строку St...
З.З.Ы. Это роздел Паскаля, поэтому впредь бери код программ в теги "code=pas"...

Сообщение отредактировано: RathaR - 29.09.2009 20:21