| ← Октябрь 2018 → | ||||||
|
1
|
2
|
3
|
4
|
|||
|
8
|
9
|
10
|
11
|
12
|
13
|
14
|
|
15
|
16
|
17
|
18
|
19
|
20
|
21
|
|
22
|
23
|
25
|
26
|
27
|
28
|
|
|
29
|
30
|
31
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 193628: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Составьте программу, позволяющую найти долю согласных букв в строке, не содержащей знаков препинания. Пример ввода: поздравляем с праздником Пример вывода: Всего букв - 22 Согласных букв - 15 Доля согласных в тексте - 0,68... Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 30.09.2018, 20:08 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, svrvsvrv! Код (Pascal) :: выделить код var
a:string;
b,c,d:integer;
begin
b:=1;
c:=1;
d:=3;
randomize;
repeat
if b<>c then writeln('bad result, again');
b:=random(10);
c:=random(10);
write('Please, calculate ',b,'*',c,'=');
b:=b*c;
readln(c);
dec(d);
until (d=0)or(b=c);
if b=c then
begin
write('What is your name:');
readln(a);
writeln('Congratulations:',a,',',a);
end else writeln('I',chr(39),'m going to sleep');
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 30.09.2018, 20:16 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, svrvsvrv! Код (Pascal) :: выделить код var
a,b:string;
i,j:integer;
begin
write('Enter string:');
readln(a);
i:=0;
j:=0;
while length(a)>0 do
begin
case UpCase(a[1])of
'B','C','D','F','G',
'H','J','K','L','M',
'N','P','Q','R','S',
'T','V','W','X','Y',
'Z','Б','В','Г','Д',
'Ж','З','Й','К','Л',
'М','Н','П','Р','С',
'Т','Ф','Х','Ц','Ч',
'Ш','Щ','Ь','Ъ':begin inc(i);inc(j)end;
'A','E','I','O','U',
'А','О','И','Е','Ё',
'Э','Ы','У','Ю','Я':inc(j);
else begin end;
end;
delete(a,1,1);
end;
writeln('all chars:=',j);
writeln('chars:=',i);
writeln('percent:=',(i/j):4:2);
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
