Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Строчные буквы ABS (https://forum.antichat.xyz/showthread.php?t=203569)

Shkiper2009 12.05.2010 20:53
Строчные буквы ABS
 
Среда программирования: ABS Pascal

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


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

GreenBear 12.05.2010 21:00
http://www.programmon.ru/TurboPascal/3.html
первая ссылка гугеля.

GreenBear 12.05.2010 21:14
интернет сейчас - это не интернет вчера, где могли написать программу, если кто-нибудь попросит.
google.com -> паскаль строчная буква.

Shkiper2009 12.05.2010 21:16
блин а тебе трудно сюда ее скинутЬ!!!!!!!!?????????????

Shkiper2009 12.05.2010 21:19
Я В ПАСКАЛЕ 0000000 люди если вы нашли то киньте сюда ее

Shkiper2009 12.05.2010 21:22
или напишите ктонибудь?? Greeeen-ов дам

GreenBear 12.05.2010 21:22
так прочитай ты статью, ебаный насос! там все написано уже за тебя!

Shkiper2009 12.05.2010 21:23
дак мля я уже половину прочитал немогу понять где она!!!

Shkiper2009 12.05.2010 21:37
спасибо нашол

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

TRX.new 12.05.2010 21:52
Цитата:
Сообщение от Shkiper2009
спасибо нашол

var
ch : Char ;
begin
ReadLn (ch) ;
case ch of
'n','N' : WriteLn ('Нет' );
'y','Y' : WriteLn ('Да')
end
end.
Ты точно это искал?

Shkiper2009 12.05.2010 21:59
ну просто потом за место англ букв заменить руские и написать что эта буква прописной гласной

JnK 12.05.2010 22:03
Цитата:
Сообщение от Shkiper2009
спасибо нашол

var
ch : Char ;
begin
ReadLn (ch) ;
case ch of
'n','N' : WriteLn ('Нет' );
'y','Y' : WriteLn ('Да')
end
end.
:D
1. Создаешь массив с гласными строчными буквами
2. введеный символ в цикле сравниваешь с массивом
3. если найдено, выводишь да, если не найдено, выводишь нет.

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

TRX.new 12.05.2010 22:07
Держи вообщем, английский алфавит я надеюсь на русский поменять сможешь...

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[pos] in geng) then
        writeln ('vowel small case!')      
    else 
        writeln('something wrong... bye!');
End. 


Время: 18:40