Использование процедур

@Nero_39 · Регистрация: 11.11.2015

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

Даны два одномерных символьных массива состоящие из заглавных букв русского алфавита. Подсчитать сколько в них раз встречается буква "ф"

@vint-81 · 01.12.2015, 16:10

Pascal

const n=30;
type mas=array[1..n] of char;
var a,b:mas;
procedure vv_mas(var x:mas;s:string;f:boolean);
var i:integer;
 begin
  writeln(s);
  for i:=1 to n do
   begin
    if f then x[i]:=chr(128+random(32));
    write(x[i],' ')
   end; writeln
 end;
function kf(x:mas;s:string):integer;
var i,k:integer;
begin
 write('в массиве ',s,' символ ''Ф'' встречается: ');
 k:=0;
 for i:=1 to n do inc(k,ord(x[i]='Ф')) ;
 kf:=k
end;
begin
 vv_mas(a,'A:',true);
 vv_mas(b,'B:',true);
 writeln(kf(a,'A'));
 writeln(kf(b,'B'))
end.

@Nero_39 0 / 0 / 0 Регистрация: 11.11.2015 Сообщений: 9
		1
	Использование процедур 01.12.2015, 15:36. Показов 882. Ответов 1 Метки нет (Все метки) Даны два одномерных символьных массива состоящие из заглавных букв русского алфавита. Подсчитать сколько в них раз встречается буква "ф" 0

	01.12.2015, 16:10

Использование процедур

Решение