Строки и записи.

[Elenochka]

Строки и записи.

1)Составить программу перевода строки строчных русских букв в прописные.

2)Из списка служащих выявить тех, у кого рабочий день неполный и понизить им зарплату на 10 %. Вывести ФИО, зарплату и время ра¬бочего дня.

Помогите пожалуйста.... С помощью языка Турбо Паскаль...)
Заранее спасибо...)

 

[Vladimir_S]

1)Составить программу перевода строки строчных русских букв в прописные.

Пожалуйста:

CONST
 Big:Array[1..32] of Char=('А','Б','В','Г','Д','Е','Ж','З',
                           'И','Й','К','Л','М','Н','О','П',
                           'Р','С','Т','У','Ф','Х','Ц','Ч',
                           'Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я');
 Small:Array[1..32] of Char=('а','б','в','г','д','е','ж','з',
                             'и','й','к','л','м','н','о','п',
                             'р','с','т','у','ф','х','ц','ч',
                             'ш','щ','ъ','ы','ь','э','ю','я');
VAR
 S,S1:String;
 i,j:Byte;
 b:Boolean;
BEGIN
 S1:='';
 Writeln('Enter the string:');
 Readln(S);
 For i:=1 to Length(S) do
  begin
   j:=0;
   b:=false;
   Repeat
    Inc(j);
    If S[i]=Small[j] then b:=true;
   Until b or (j=32);
   If b then S1:=S1+Big[j] else S1:=S1+S[i];
  end;
 Writeln(S1);
 Readln;
END.

2)Из списка служащих выявить тех, у кого рабочий день неполный и понизить им зарплату на 10 %. Вывести ФИО, зарплату и время ра¬бочего дня.

Так, ну я Вам здесь уже показал, как работать с массивами записей - так что давайте самостоятельно. По образу и подобию. Дело это долгое, нудное, противное, но при том абсолютно не сложное. А выполнять за Вас рутинную черновую работу как-то энтузиазма нету.

Помогите пожалуйста.... С помощью языка Турбо Паскаль...)
Заранее спасибо...)

Не за что.