Помогите с программированием на языке Паскаль

alexe196 · 23.06.2014, 13:44

нужно составить программу, в которой используется процедура с параметрами, которая выводит строку из одинаковых символов длинна строки и символ задаются с клавиатуры.

что прога лёгкая знаю но процедуры в паскале благополучно проболел(
по этому не смейтесь а помогисе пожалуйста.

alexe196 · 23.06.2014, 13:45

заранее извиняюсь за ошибки

Vladimir_S · 23.06.2014, 14:06

Да пожалуйста, тоже мне...

Код:

Var
 Ch:Char;
 Lng:Byte;

Procedure Str_out(C:char; L:Byte);
Var
 S:String;
 i:Byte;
begin
 S:='';
 for i:=1 to L do S:=S+C;
 writeln(S);
end;

Begin
 Write('Symbol: ');
 Readln(Ch);
 Write('Length: ');
 Readln(Lng);
 Str_out(Ch,Lng);
 Readln
End.

alexe196 · 27.06.2014, 10:41

спасибо большое)

23.06.2014, 13:44	#1 (permalink)
alexe196 Новичок Регистрация: 18.06.2014 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с программированием на языке Паскаль нужно составить программу, в которой используется процедура с параметрами, которая выводит строку из одинаковых символов длинна строки и символ задаются с клавиатуры. что прога лёгкая знаю но процедуры в паскале благополучно проболел( по этому не смейтесь а помогисе пожалуйста.

23.06.2014, 14:06	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Да пожалуйста, тоже мне... Код: Var Ch:Char; Lng:Byte; Procedure Str_out(C:char; L:Byte); Var S:String; i:Byte; begin S:=''; for i:=1 to L do S:=S+C; writeln(S); end; Begin Write('Symbol: '); Readln(Ch); Write('Length: '); Readln(Lng); Str_out(Ch,Lng); Readln End.

23.06.2014, 13:45	#2 (permalink)
alexe196 Новичок Регистрация: 18.06.2014 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	заранее извиняюсь за ошибки

27.06.2014, 10:41	#4 (permalink)
alexe196 Новичок Регистрация: 18.06.2014 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо большое)

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