Работа со строковыми переменными!!! - Помощь студентам

NightFire · 02.03.2009, 21:07

Люди,выручите...задачка...тема для меня нулевая..

Задача.
Вывести статистику вхождения гласных букв в строку

AlDelta · 02.03.2009, 21:12

http://delphibasics.ru/String.php

NightFire · 02.03.2009, 21:18

а кто-нибудь написать прогу может или хотя бы пример привести...

Sm1Le · 02.03.2009, 21:19

А что сложного берешь строку и по символьно проверяешь на Гласная или нет ?!

NightFire · 02.03.2009, 21:28

дело в том,что Паскаль не для меня...вот я и зашел и попросил помощи чтоб показали,помогли

AlexanderKs · 02.03.2009, 21:52

как я понял, на Паскале нужно сделать программу, которая считает количество гласных в строке?

NightFire · 02.03.2009, 21:56

AlexanderKs,верно...есть какие-нибудь идеи?можешь подсказать что-нибудь?

AlexanderKs · 02.03.2009, 22:02

есть код.

program ForStudent;
uses Crt;
var
i,j:integer;
stroka:string;
begin
Writeln('‚ўҐ¤ЁвҐ бва®Єг');
ReadLn(stroka);
j:=0;
for i:=1 to Length(stroka) do
if (stroka[i] in ['а','е','ё','и','о','у','ы','э','ю' ,'я']) or
(stroka[i] in ['А','Е','Ё','И','О','У','Ы','Э','Ю' ,'Я']) then
j:=j+1;
Writeln('‚ Їа®жҐ*в %: ',Round((j*100)/Length(stroka)));
Writeln('Љ®«¬зҐбвў®: ',j);
Readln;
end.

AlexanderKs · 02.03.2009, 22:04

Забыл кодировочку переправить...

Writeln('В процентах: ',Round((j*100)/Length(stroka)));
Writeln('Количество: ',j);

NightFire · 02.03.2009, 22:07

Благодарю,но можешь сказать что это Writeln('‚ўҐ¤ЁвҐ бва®Єг') это тупо набор символов???и это Writeln('‚ Їа®жҐ*в %: ',Round((j*100)/Length(stroka)));
Writeln('Љ®«¬зҐбвў®: ',j);

02.03.2009, 21:07	#1
NightFire Пользователь Регистрация: 01.03.2009 Сообщений: 25	Работа со строковыми переменными!!! Люди,выручите...задачка...тема для меня нулевая.. Задача. Вывести статистику вхождения гласных букв в строку

02.03.2009, 21:12	#2
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	http://delphibasics.ru/String.php Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

02.03.2009, 21:19	#4
Sm1Le Форумчанин Регистрация: 31.10.2008 Сообщений: 500	А что сложного берешь строку и по символьно проверяешь на Гласная или нет ?! Skype : UASm1Le.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Работа с переменными	Sapsan	Общие вопросы C/C++	2	24.02.2009 20:02
работа со строковыми процедурами и функциями	pooharilo	Паскаль, Turbo Pascal, PascalABC.NET	3	26.12.2008 23:51
Работа с динамическими переменными	DonLena	Паскаль, Turbo Pascal, PascalABC.NET	1	14.10.2008 20:05
Работа со строковыми типами	VenMaster	Общие вопросы Delphi	2	04.06.2008 08:07
Работа с переменными в DLL	Zeraim	Общие вопросы Delphi	3	14.05.2008 23:10

02.03.2009, 21:18	#3
NightFire Пользователь Регистрация: 01.03.2009 Сообщений: 25	а кто-нибудь написать прогу может или хотя бы пример привести...

02.03.2009, 21:28	#5
NightFire Пользователь Регистрация: 01.03.2009 Сообщений: 25	дело в том,что Паскаль не для меня...вот я и зашел и попросил помощи чтоб показали,помогли

02.03.2009, 21:52	#6
AlexanderKs Пользователь Регистрация: 26.02.2009 Сообщений: 60	как я понял, на Паскале нужно сделать программу, которая считает количество гласных в строке?

02.03.2009, 21:56	#7
NightFire Пользователь Регистрация: 01.03.2009 Сообщений: 25	AlexanderKs,верно...есть какие-нибудь идеи?можешь подсказать что-нибудь?

02.03.2009, 22:02	#8
AlexanderKs Пользователь Регистрация: 26.02.2009 Сообщений: 60	есть код. program ForStudent; uses Crt; var i,j:integer; stroka:string; begin Writeln('‚ўҐ¤ЁвҐ бва®Єг'); ReadLn(stroka); j:=0; for i:=1 to Length(stroka) do if (stroka[i] in ['а','е','ё','и','о','у','ы','э','ю' ,'я']) or (stroka[i] in ['А','Е','Ё','И','О','У','Ы','Э','Ю' ,'Я']) then j:=j+1; Writeln('‚ Їа®жҐв %: ',Round((j100)/Length(stroka))); Writeln('Љ®«¬зҐбвў®: ',j); Readln; end.

02.03.2009, 22:04	#9
AlexanderKs Пользователь Регистрация: 26.02.2009 Сообщений: 60	Забыл кодировочку переправить... Writeln('В процентах: ',Round((j*100)/Length(stroka))); Writeln('Количество: ',j);

02.03.2009, 22:07	#10
NightFire Пользователь Регистрация: 01.03.2009 Сообщений: 25	Благодарю,но можешь сказать что это Writeln('‚ўҐ¤ЁвҐ бва®Єг') это тупо набор символов???и это Writeln('‚ Їа®жҐв %: ',Round((j100)/Length(stroka))); Writeln('Љ®«¬зҐбвў®: ',j);