Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 24.04.2012
Сообщений: 7
1

Вывести слова, в которых две гласные буквы

25.04.2012, 16:43. Просмотров 994. Ответов 5
Метки нет (Все метки)


Нужно написать 2 проги

1) Пользователь вводит с клавиатуры слова через запятую в строку. Вывести слова, в которых две гласные буквы.

2) Написать программу с помощью процедур (функций). Упорядочить по возрастанию строки матрицы размером (m x n), сумма элементов которых больше 30.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2012, 16:43
Ответы с готовыми решениями:

Напечатать слова, в которых гласные буквы (a, e, i, o, u) чередуются с согласными
Напечатать слова, в которых гласные буквы (a, e, i, o, u) чередуются с согласными. Прогу...

Найти в строке слова, у которых первая и последняя буквы - гласные
Найти слова, у которых первая и последняя-гласные буквы.

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

Вывести в столбик слова, в которых две буквы а
Дана строка символов, состоящая из слов, разделенных пробелами. Распечатать исходную строку....

5
0 / 0 / 0
Регистрация: 24.04.2012
Сообщений: 7
26.04.2012, 18:25  [ТС] 2
Люди... Мне тут срочно помощь нужна...
0
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
26.04.2012, 19:46 3
Цитата Сообщение от Shurik Посмотреть сообщение
2) Написать программу с помощью процедур (функций). Упорядочить по возрастанию строки матрицы размером (m x n), сумма элементов которых больше 30.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of integer;
var a: matr; n,m: byte;
 
procedure Gen (var ri: byte; var rj: byte; var z: matr);
var i,j: byte;
begin
repeat
write('Количество строк, не более ',nmax,', n=');readln(ri);
until ri in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m=');readln(rj);
until rj in [1..nmax];
for i:=1 to ri do
    for j:=1 to rj do
        z[i,j]:=random(199)-99;
end;
 
procedure Print (ri,rj: byte; z: matr);
var i,j: byte;
begin
for i:=1 to ri do
    begin
    for j:=1 to rj do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
function Sum(ns,rj: byte; z: matr): integer;
var j: byte; s: integer;
begin
s:=0;
for j:=1 to rj do
    inc(s,z[ns,j]);
Sum:=s;
end;
 
procedure Obmen(var x: integer; var y: integer);
var z: integer;
begin
z:=x;
x:=y;
y:=z;
end;
 
procedure Sort (ri,rj: byte; var z: matr);
var i,j,e: byte;
begin
for i:=1 to ri do
    begin
    writeln(i,' строка, сумма ',Sum(i,rj,z));
    if Sum(i,rj,z)>30 then
       begin
       e:=0;
       while e<rj do
             begin
             for j:=1 to rj-1 do
                 if z[i,j]>z[i,j+1] then  Obmen(z[i,j],z[i,j+1]);
             inc(e);
             end;
       end;
    end;
end;
 
begin
Gen (n,m,a);
writeln;
Print (n,m,a);
Sort (n,m,a);
writeln;
Print (n,m,a);
readln;
end.
1
0 / 0 / 0
Регистрация: 24.04.2012
Сообщений: 7
29.04.2012, 16:55  [ТС] 4
а первую прогу знает кто-нибудь?
0
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
29.04.2012, 17:07 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const g: set of char=['ё','у','е','ы','а','о','э','я','и','ю',
                      'Ё','У','Е','Ы','А','О','Э','Я','И','Ю',
                      'e','y','u','i','o','a',
                      'E','Y','U','I','O','A'];
var s,sl: string;
    i,j,k: byte;
begin
write('s='); readln(s); s:=s+','; sl:='';
for i:=1 to length(s) do
    if (s[i]<>',') and (s[i]<>' ') then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          k:=0;
          for j:=1 to length(sl) do
              if sl[j] in g then inc(k);
          if k=2 then write(sl,',');
          sl:='';
          end;
readln;
end.
1
0 / 0 / 0
Регистрация: 24.04.2012
Сообщений: 7
30.04.2012, 14:08  [ТС] 6
Спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2012, 14:08

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вывести слова, в которых есть две одинаковые буквы
{В алфавите языке племени «тумба-юмба» четыре буквы: «Ы», «Ш», «Ч» и «О». Нужно вывести на экран...

Вывести на экран все слова, состоящие из K букв, в которых есть по крайней мере две одинаковые буквы, стоящие рядом
Напишите пожалуйста программу В алфавите языке племени «тумба-юмба» четыре буквы: «Ы», «Ш», «Ч»...

В символьной строке удалить все слова, содержащие две подряд идущие гласные буквы
Здравствуйте, помогите пожалуйста напрсать программу, сам вообще ноль :( Условие: В символьной...

Удалить из строки все слова, в которых отсутствуют гласные буквы
В поле ввода вводится строка, состоящая из слов на русском языке, отделённых друг от...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.