Помогите составить программу в Паскале

denisova · 13.04.2013, 17:01

Написать программу, которая выполняет следующие действия:
– объявляет строку длиной 20 символов;
– заполняет эту строку 16-ю одинаковыми символами;
– в центре введенных 16 символов выводит 8 пробелов;
– в центре введенных 8 пробелов помещает 4 цифры, соответствующие текущему году,
взяв это значение из переменной типа Word.

Vladimir_S · 13.04.2013, 20:21

Цитата:

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

Написать программу, которая выполняет следующие действия:
– объявляет строку длиной 20 символов;
– заполняет эту строку 16-ю одинаковыми символами;
– в центре введенных 16 символов выводит 8 пробелов;
– в центре введенных 8 пробелов помещает 4 цифры, соответствующие текущему году,
взяв это значение из переменной типа Word.

Пожалуйста, только вот не уверен, что в Вашем Паскале пройдет команда GetDate с тем же набором параметров, что у меня (год, месяц, число, день недели). Может закапризничать.

Код:

Uses DOS,CRT;
Var
 S:String[20];
 S1:String;
 i:Byte;
 Y,M,D,DW:Word;
Begin
 ClrScr;
 S:='';
 For i:=1 to 16 do S:=S+'$';
 Writeln(S);
 For i:=1 to 8 do 
  begin
   Delete(S,4+i,1);
   Insert(' ',S,4+i);
  end;
 Writeln(S);
 GetDate(Y,M,D,DW);
 STR(Y,S1);
 Delete(S,7,4);
 Insert(S1,S,7);
 Writeln(S);
 ReadKey
End.

denisova · 14.04.2013, 01:32

Спасибо огромное!

13.04.2013, 17:01	#1 (permalink)
denisova Member Регистрация: 13.04.2013 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите составить программу в Паскале Написать программу, которая выполняет следующие действия: – объявляет строку длиной 20 символов; – заполняет эту строку 16-ю одинаковыми символами; – в центре введенных 16 символов выводит 8 пробелов; – в центре введенных 8 пробелов помещает 4 цифры, соответствующие текущему году, взяв это значение из переменной типа Word.

13.04.2013, 17:01
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Содержание вашей темы очень схоже с другими темами, можете потратить минутку и ознакомиться Помогите составить программу на Паскале Здравствуйте. Помогите составить программу на Паскале

14.04.2013, 01:32	#3 (permalink)
denisova Member Регистрация: 13.04.2013 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо огромное!

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