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

Elenochka · 11.07.2011, 09:54

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

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

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

Vladimir_S · 11.07.2011, 10:34

Цитата:

Сообщение от Elenochka

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 %. Вывести ФИО, зарплату и время ра¬бочего дня.

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

Цитата:

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

Не за что.

11.07.2011, 09:54	#1 (permalink)
Elenochka Новичок Регистрация: 07.06.2011 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Строки и записи. 1)Составить программу перевода строки строчных русских букв в прописные. 2)Из списка служащих выявить тех, у кого рабочий день неполный и понизить им зарплату на 10 %. Вывести ФИО, зарплату и время ра¬бочего дня. Помогите пожалуйста.... С помощью языка Турбо Паскаль...) Заранее спасибо...)

11.07.2011, 09:54
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Скорее всего в данных темах будет что то нужное для вас Строки в паскале Строки в С Строки Строки Строки Строки

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070