VPF::ПОМОГИТЕ доделать программу - Форум программистов

SapFira

Дата 23.5.2007, 14:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 9.4.2007

Репутация: нет
Всего: нет

Дано предложение состоящее из латинских букв(которое вводится с клавиатуры). Вывести все гласные буквы, не входящие более чем в одно слово. А как вывести на экран,в которых нет таких гласных букв?? smile

Код


Uses Crt;
Type
TSimb = (a,e,i,o,u);

Procedure Proverka(str1:String;PSimbol:Char);
Var
 Bool1,Bool2,Bool3:Boolean;
 I:Integer;
begin
      Bool1:=False;
      Bool2:=False;
      Bool3:=False;
      For I:=0 To Length(Str1)-1 do
      Begin
        If PSimbol=Str1[I] Then bool1:=True;
        If (Bool1) And (str1[I]=' ') Then Bool2:=True;
        If (Bool2) and (Str1[I]=PSimbol) Then Bool3:=True;
      End;
      If Bool1 and Not(Bool3) Then Writeln(PSimbol);
  End;

Var
    Simb1:Tsimb;
    Str:STring;
Begin
Clrscr;
Writeln('Vvedite pledlogenie:');
Readln(Str);
writeln;
Writeln('Glasnye bykvy kotorye ne vxodyt bolee 4em v 1 slovo:');
For Simb1:=a to u do
  Case Simb1 of
    a:Proverka(Str,'a');
    e:Proverka(Str,'e');
    i:Proverka(Str,'i');
    o:Proverka(Str,'o');
    u:Proverka(Str,'u');
  end;
  Readln;
end.

KuZyagroup

Дата 24.5.2007, 00:28 (ссылка)

(нет голосов)

Загрузка ...

magento solution

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 16.4.2007
Где: Kiev

Репутация: нет
Всего: 4

Код


Uses CRT;
const g:array [1..8] of char = ('q','e','y','u','i','o','a','j');
Var C:char; A:array [0..1,0..256] of byte; NomerSlova,i:byte;
Label NEXT;
Begin
  ClrScr;
  NomerSlova := 1;
  FillChar(A[0],SizeOf(A[1]),0);
  FillChar(A[1],SizeOf(A[1]),1);
  Repeat
    if KeyPressed then
     Begin
      c:=ReadKey;
      Write(c);
      If (c=' ') then
        Begin
          inc(NomerSlova);
          FillChar(A[1],SizeOf(A[1]),1);
        End
        else
        If (A[1,Ord(c)]=1) then
          Begin
            A[1,Ord(c)]:=0;
            Inc(A[0,ord(c)]);
          End;
      End;
   Until c=#13;
   WriteLn;


  For i :=1 to 8 do
    If (A[0,Ord(G[i])] < NomerSlova) Then
       Write(G[i]:4);
  WriteLn;
  ReadKey;
End.

Мораль сего кода такая - он рабочий и протестированый но ты его врядли сможешь сдать преподователю.
Ты уже создавал аналогичное сообщение - я дал доступный алгоритм - вопрос: почему не разобрался, халявки захотелось? ))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »