Помогите, пожалуйста, написать 2 программки на Pascal ABC

Оле4ка) · 13.02.2010, 15:23

1) Дано целое число N (>0)исимвол C. Вывести строку длины N,
котораясостоитизсимволов C
2) Даны строки S и S0 . Найти количество вхождений строки S0 в строку S

Vladimir_S · 13.02.2010, 17:34

Цитата:

Сообщение от Оле4ка)

1) Дано целое число N (>0)исимвол C. Вывести строку длины N,
котораясостоитизсимволов C
2) Даны строки S и S0 . Найти количество вхождений строки S0 в строку S

Про АВС ничего не знаю, никогда не ставил, а вообще, например, так:

Код:

1.
VAR
 N,i:INTEGER;
BEGIN
 Write('N= ');
 ReadLn(N);
 For i:=1 to N do
  Write('C');
 WriteLn;
 ReadLn;
END.

2. 
VAR
 S,S0:STRING;
 i,j,N:INTEGER;
 B:BOOLEAN;
BEGIN
 WriteLn('Enter the string S:');
 ReadLn(S);
 WriteLn('Enter the string S0:');
 ReadLn(S0);
 N:=0;
 For i:=1 to (Length(S)-Length(S0)) do
  begin
   B:=TRUE;
   For j:=1 to Length(S0) do
     If S[i+j-1]<>S0[j] then B:=FALSE;
   If B then INC(N);
  end;
 WriteLn('The number of entries is ',N);
 ReadLn;
END.

13.02.2010, 15:23	#1 (permalink)
Оле4ка) Новичок Регистрация: 13.02.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите, пожалуйста, написать 2 программки на Pascal ABC 1) Дано целое число N (>0)исимвол C. Вывести строку длины N, котораясостоитизсимволов C 2) Даны строки S и S0 . Найти количество вхождений строки S0 в строку S

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