Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > c++ -> pascal

Автор: hyperboloid 25.11.2005, 20:51

Переведите, пожалуйста, вот этот код в pascal.

Код


#include <iostream.h>
#include <string.h>

void main(void)
{   int kolichestvo=0;
char stroka[1000], simvol[1];
cout<<"Введите текст\n";
cin>>stroka;
cout<<"Введите букву\n";
cin>>simvol;

for(int i=0;i<strlen(stroka); i++)
{
    if(*simvol==stroka[i])
        kolichestvo++;
    else
        kolichestvo=kolichestvo;
}
cout<<"Количество букв в тексте:\n";
cout<<kolichestvo;
}

Автор: kent 25.11.2005, 21:32

hyperboloid, ты бы условие задачи написал...

Автор: hyperboloid 26.11.2005, 00:10

Вводится строка. Вводится буква. Посчитать, сколько раз встречается эта буква в строке.

Автор: kent 26.11.2005, 09:55

Код


uses Crt;
var S : String;
    i,count : Integer;
    c : Char;
begin
     Clrscr;
     WriteLn('Введите текст:');
     ReadLn(S);
     WriteLn('Введите букву:');
     ReadLn(c);
     count := 0;
     for i := 1 to Length(S) do
        if (S[i] = c) then
          inc(count);
     WriteLn('Количество букв в тексте:');
     WriteLn(count);
     ReadKey;
end.

Автор: hyperboloid 26.11.2005, 13:24

Спасибо за задачку.