Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.12.2008, 19:56   #1
Ivan357
Пользователь
 
Регистрация: 08.12.2008
Сообщений: 15
По умолчанию Никак не могу составить программу в паскале

Определить,сколько в заданном тексте заданных букв.
Ivan357 вне форума Ответить с цитированием
Старый 08.12.2008, 20:02   #2
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Если строка вводится с клавиатуры, то
Код:
var s,ch:string;
    i,n:integer;

begin
writeln('Input string');
readln(s);
writeln('Input letter');
readln(ch);
n:=0;
for i:=1 to length(s) do
 if pos(s[i],ch)<>0 then inc(n);
writeln(n);
end.
P.S. Извините если я ошибаюсь, но Вы, наверное, и не пробывали
Нормальное состояние техники - нерабочее, все остальное частный случай.

Последний раз редактировалось alex_fcsm; 08.12.2008 в 20:09.
alex_fcsm вне форума Ответить с цитированием
Старый 08.12.2008, 20:02   #3
Sm1Le
Форумчанин
 
Аватар для Sm1Le
 
Регистрация: 31.10.2008
Сообщений: 500
По умолчанию

Код:
s:string;
a:string;
i,x,j:integer;
x:=0;
for i:=1 to length(s) do 
 begin
   for j:=1 to length(a) do 
begin 
   if s[i]=a[j] then 
    x:=x+1;
end;
 end;

Цитата:
Сообщение от Ivan357 Посмотреть сообщение
Определить,сколько в заданном тексте заданных букв.
Skype : UASm1Le.

Последний раз редактировалось Sm1Le; 08.12.2008 в 20:05.
Sm1Le вне форума Ответить с цитированием
Старый 08.12.2008, 20:05   #4
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Если текст из файла
Код:
var f:text;
    s:char;
    ch:string;
    i,n:integer;

begin
assign(f,'c:\1.txt');
reset(f);
writeln('Input letters');
readln(ch);
n:=0;
while not eof(f) do
 begin
  read(f,s); 
  if pos(s,ch)<>0 then inc(n);
 end;
close(f);
writeln(n);
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запрос никак сделать не могу... Arkuz БД в Delphi 1 08.12.2008 17:59
Никак не могу решить две математические задачи на Паскале skl1f Помощь студентам 4 30.11.2008 22:23
Никак не могу написать код для..... PayBack Общие вопросы C/C++ 2 07.07.2008 13:55
Никак не могу составить формулу... просьба помочь... c_zurab Microsoft Office Excel 7 14.03.2008 23:34