Текстовый файл: определить количество гласных букв в тексте

@Сергей2193 · Регистрация: 10.03.2011

Author24 — интернет-сервис помощи студентам

Создайте текстовый файл p ,в котором содержиться текст.составьте программу определяющую количество гласных букв в тексте Заранее спасибо

@rubisgt · 10.03.2011, 13:59

Pascal

program xakerGT;
uses crt;
var a,b,c:string;
p: file of string;
d,e,f:integer;
begin
clrscr;
d:=0;
writeln ('Введите текст');
readln (a);
assign (p,'C:/p.txt');
rewrite (p);
write (p,a);
close (p);
for e:=1 to length(a) do
begin
if a[e]=('у') then d:=d+1;
if a[e]=('У') then d:=d+1;
if a[e]=('Е') then d:=d+1;
if a[e]=('е') then d:=d+1;
if a[e]=('ы') then d:=d+1;
if a[e]=('Ы') then d:=d+1;
if a[e]=('а') then d:=d+1;
if a[e]=('А') then d:=d+1;
if a[e]=('о') then d:=d+1;
if a[e]=('О') then d:=d+1;
if a[e]=('э') then d:=d+1;
if a[e]=('Э') then d:=d+1;
if a[e]=('я') then d:=d+1;
if a[e]=('Я') then d:=d+1;
if a[e]=('и') then d:=d+1;
if a[e]=('И') then d:=d+1;
if a[e]=('ю') then d:=d+1;
if a[e]=('Ю') then d:=d+1;
end;
writeln ('Гласных ',d);
end.

как-то так, наверненько.

@Сергей2193 0 / 0 / 0 Регистрация: 10.03.2011 Сообщений: 4
		1
	Текстовый файл: определить количество гласных букв в тексте 10.03.2011, 09:46. Показов 1584. Ответов 1 Метки нет (Все метки) Создайте текстовый файл p ,в котором содержиться текст.составьте программу определяющую количество гласных букв в тексте Заранее спасибо 0

	10.03.2011, 13:59

Опции темы

Текстовый файл: определить количество гласных букв в тексте

Решение