Подсчитать в строке количество иностранных слов

@ARCHIE95 · Регистрация: 21.04.2015

Author24 — интернет-сервис помощи студентам

помогите пожалуйста!!!!Огромное спасибо заранее! надо написать программу:Подсчитать в строке количество иностранных слов.

@Joy · 22.04.2015, 05:50

Pascal

type arr=array[0..200] of string;
var
  s:string;
  i,j,c:integer;
  a:arr;
procedure split(delimeter:string;s:string;var sr:arr;var count:integer);
var
  i:integer;
  t:string;
procedure additem;
var
  l:integer;
  ok:boolean;
begin
  ok:=true;
  for l:=1 to length(t) do if not(t[l] in ['a'..'z','A'..'Z']) then
   begin
     ok:=false;
     break;
   end;
 if ok then
 begin
  inc(count);
  sr[count-1]:=t;
  end;
  t:='';
end;
begin
  count:=0;t:='';
  for i:=1 to length(s) do
    if pos(s[i],delimeter)=0 then t:=t+s[i] else additem;
    additem;
end;
 
begin
    write('введите строку:');readln(s);
    split(' ,.:!?-;"',s,a,i);
    if i=0 then writeln('Слова не найдены') else
    writeln('Количество иностранных слов:',i);
end.

@ARCHIE95 · 05.05.2015, 17:39 **[ТС]**

спасибо большое,а можно ли упростить программу?без использования процедуры..вот конкретное задание:Написать программу обработки строки.Ввод строк организовать в программе. Строка должна состоять из нескольких слов и символов, разделителем служит пробел. Вывести на экран обработанную строку

@Joy · 06.05.2015, 05:38

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

Написать программу обработки строки.Ввод строк организовать в программе. Строка должна состоять из нескольких слов и символов, разделителем служит пробел. Вывести на экран обработанную строку

это совсем другое задание и как строку обработать?

@ARCHIE95 · 06.05.2015, 16:56 **[ТС]**

это то же самое задание

@ARCHIE95 0 / 0 / 0 Регистрация: 21.04.2015 Сообщений: 15
		1
	Подсчитать в строке количество иностранных слов 21.04.2015, 21:21. Показов 1475. Ответов 4 Метки нет (Все метки) помогите пожалуйста!!!!Огромное спасибо заранее! надо написать программу:Подсчитать в строке количество иностранных слов. 0

@ARCHIE95 0 / 0 / 0 Регистрация: 21.04.2015 Сообщений: 15
	05.05.2015, 17:39 [ТС]	3
	спасибо большое,а можно ли упростить программу?без использования процедуры..вот конкретное задание:Написать программу обработки строки.Ввод строк организовать в программе. Строка должна состоять из нескольких слов и символов, разделителем служит пробел. Вывести на экран обработанную строку 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	06.05.2015, 05:38	4
	Сообщение от ARCHIE95 Написать программу обработки строки.Ввод строк организовать в программе. Строка должна состоять из нескольких слов и символов, разделителем служит пробел. Вывести на экран обработанную строку это совсем другое задание и как строку обработать? 0

@ARCHIE95 0 / 0 / 0 Регистрация: 21.04.2015 Сообщений: 15
	06.05.2015, 16:56 [ТС]	5
	это то же самое задание 0

Подсчитать в строке количество иностранных слов

Решение