Строчные буквы ABS

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Shkiper2009, 12 May 2010.

Thread Status:
Not open for further replies.
  1. Shkiper2009

    Shkiper2009 New Member

    Joined:
    18 Aug 2009
    Messages:
    136
    Likes Received:
    3
    Reputations:
    -10
    Среда программирования: ABS Pascal

    Задача: Напишите программу,определяющую,является ли заданый символ строчной гласной буквой русского алфавита.


    За сегодняшний день это уже мой второй косяк :D , потому что в паскале вообще не разбераюсь, так что прошу у вас помощи.
    Заранее спасибо.
     
  2. GreenBear

    GreenBear наркоман с медалью

    Joined:
    7 May 2005
    Messages:
    2,548
    Likes Received:
    1,397
    Reputations:
    611
    http://www.programmon.ru/TurboPascal/3.html
    первая ссылка гугеля.
     
  3. GreenBear

    GreenBear наркоман с медалью

    Joined:
    7 May 2005
    Messages:
    2,548
    Likes Received:
    1,397
    Reputations:
    611
    интернет сейчас - это не интернет вчера, где могли написать программу, если кто-нибудь попросит.
    google.com -> паскаль строчная буква.
     
  4. Shkiper2009

    Shkiper2009 New Member

    Joined:
    18 Aug 2009
    Messages:
    136
    Likes Received:
    3
    Reputations:
    -10
    блин а тебе трудно сюда ее скинутЬ!!!!!!!!?????????????
     
  5. Shkiper2009

    Shkiper2009 New Member

    Joined:
    18 Aug 2009
    Messages:
    136
    Likes Received:
    3
    Reputations:
    -10
    Я В ПАСКАЛЕ 0000000 люди если вы нашли то киньте сюда ее
     
  6. Shkiper2009

    Shkiper2009 New Member

    Joined:
    18 Aug 2009
    Messages:
    136
    Likes Received:
    3
    Reputations:
    -10
    или напишите ктонибудь?? Greeeen-ов дам
     
  7. GreenBear

    GreenBear наркоман с медалью

    Joined:
    7 May 2005
    Messages:
    2,548
    Likes Received:
    1,397
    Reputations:
    611
    так прочитай ты статью, ебаный насос! там все написано уже за тебя!
     
    1 person likes this.
  8. Shkiper2009

    Shkiper2009 New Member

    Joined:
    18 Aug 2009
    Messages:
    136
    Likes Received:
    3
    Reputations:
    -10
    дак мля я уже половину прочитал немогу понять где она!!!
     
  9. Shkiper2009

    Shkiper2009 New Member

    Joined:
    18 Aug 2009
    Messages:
    136
    Likes Received:
    3
    Reputations:
    -10
    спасибо нашол

    var
    ch : Char ;
    begin
    ReadLn (ch) ;
    case ch of
    'n','N' : WriteLn ('Нет' );
    'y','Y' : WriteLn ('Да')
    end
    end.
     
  10. TRX.new

    TRX.new Member

    Joined:
    27 Apr 2009
    Messages:
    151
    Likes Received:
    21
    Reputations:
    0
    Ты точно это искал?
     
  11. Shkiper2009

    Shkiper2009 New Member

    Joined:
    18 Aug 2009
    Messages:
    136
    Likes Received:
    3
    Reputations:
    -10
    ну просто потом за место англ букв заменить руские и написать что эта буква прописной гласной
     
  12. JnK

    JnK Elder - Старейшина

    Joined:
    30 Mar 2007
    Messages:
    125
    Likes Received:
    21
    Reputations:
    0
    :D
    1. Создаешь массив с гласными строчными буквами
    2. введеный символ в цикле сравниваешь с массивом
    3. если найдено, выводишь да, если не найдено, выводишь нет.

    P.s. Если голова на плечах. То в соседней теме (созданой тобой) есть код, который надо чуток переделать.
     
  13. TRX.new

    TRX.new Member

    Joined:
    27 Apr 2009
    Messages:
    151
    Likes Received:
    21
    Reputations:
    0
    Держи вообщем, английский алфавит я надеюсь на русский поменять сможешь...

    PHP:
    Program aBc;
    Uses crt;
    type Letters set of 'a'..'z';
    Const 
    geng Letters = ['a''e''i''o''u''y'];
    Var 
    str1 string;
        
    pos integer;
    Begin
        clrscr
    ;
        
    writeln('Enter some string: ');
            
    read(str1);
            
    writeln('Pos about? (1-',length(str1),')');
            
    read(pos);
            
    pos:=abs(pos);
            if (
    pos<=length(str1)) and (str1[posin gengthen
            writeln 
    ('vowel small case!')      
        else 
            
    writeln('something wrong... bye!');
    End.
     
    #13 TRX.new, 12 May 2010
    Last edited: 12 May 2010
Loading...
Thread Status:
Not open for further replies.