Написал программу в Free , но теперь её нужно переписать в АВС , но тут она выдаёт ошибку. помогите исправить и заставить работать в АВС. Задание такое( в строке записаны слова через один пробел, определить какие из этих слов повторяются чаще всего и вывести эти слова на экран)
const N=100; var words:array[1..N]of string; w:array[1..N]of string; cn,k:integer; s:string; wd:string; i,j:integer; index:integer; count:integer; cnt:integer; max:integer; wc:integer; b:boolean; function ParceText(txt:string):integer; var l,c:integer; begin c:=0; l:=length(txt); for var i:=1 to l+1 do begin if ((txt[i]<>’ ‘)and(i<>l+1)) then wd:=wd+txt[i] else begin inc(c); words[c]:=wd; wd:=»; end; end; ParceText:=c; end; begin writeln(‘Введите текст:’); readln(s); count:=ParceText(s); for i:=1 to count do begin cnt:=0; for j:=1 to count do if words[j]=words[i] then inc(cnt); if cnt>max then begin max:=cnt; index:=i; end; end; writeln; writeln(‘Чаще всего встречаются слова:’); for i:=1 to count do begin wc:=0; for j:=1 to count do if words[i]=words[j] then inc(wc); if wc=max then begin b:=true; for k:=1 to cn do if w[k]=words[i] then b:=false; if b then begin writeln(words[i]); inc(cn); w[cn]:=words[i]; end; end; end; readln; end.
Код к задаче: «Определить, какие из слов строки повторяются чаще всего»
Листинг программы
УРОК 15. Язык программирования Pascal. Часть 1. (7 класс)
var i,j,k,m:integer; s,t:string; a:array[1..128] of string; n:array[1..128] of integer; procedure additem; var k:integer; begin if t<>» then for k:=1 to j do if a[k]=t then begin n[k]:=n[k]+1; if n[m] t:=»; break; end; if t<>» then begin j:=j+1; n[j]:=1; a[j]:=t; t:=» end; end; begin i:=0;j:=0;m:=1; t:=»; write(‘CTPOKA:’); readln(s); for i:=1 to length(s) do if s[i]<>’ ‘ then t:=t+s[i] else additem; additem; for i:=1 to j do begin if n[i]=n[m] then writeln(a[i]); end; end.
Источник: studassistent.ru
Частота встречаемости символа в строке
Определить, как часто встречается определенный символ в строке.
- s – строка;
- c – символ;
- count – количество найденных символов в строке;
- freq – частота встречаемости, определяемая по формуле (n / len) * 100 .
Алгоритм решения задачи:
- Получить строку и символ.
- Определить длину строки.
- Перебрать каждый символ в строке:
- если очередной символ строки совпадает с заданным символом, то увеличить счетчик символов count на единицу.
Программа на языке Паскаль:
var s: string; c: char; count, i: byte; freq: real; begin write(‘String: ‘); readln(s); write(‘Char: ‘); readln(c); count := 0; for i:=1 to length(s) do if s[i] = c then count := count + 1; freq := (count / length(s)) * 100; writeln(‘Frequency: ‘, freq:5:2, ‘%’); end.
String: hello world Char: l Frequency: 27.27%
Источник: pas1.ru
Как написать программу на Pascal за 30 секунд.
Составить программу, определяющую какая буква слова x (первая или последняя) чаще встречается в слове y. Паскаль!
Правильный ответ на вопрос «Составить программу, определяющую какая буква слова x (первая или последняя) чаще встречается в слове y. Паскаль! . » по предмету Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант — оцените ответы на похожие вопросы. Но если вдруг и это не помогло — задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Новые вопросы по информатике
Объём видеопамяти составляет 100 Кбайт. Графический режим работает в режиме 640 х200 пикселей. Какое максимальное кол-во цветов может содержать палитра?
Переведите число 202 из восьмеричной системы счисления в десятичную
Переведите величины из одних единиц измерения информации в другие: 1 4 Гбайта=? Кбайт 2 217 Мбайт=? Гбайт 3 13 Мбит=? бит 4 27 Гбит=? бит 5 228 бит=? Мбайт 6 227 Гбит=? Мбайт 7 231 Кбайт=? Мбит
Вводятся 3 числа, вывести на экран нечетные числа pascal
1. Посчитай, сколько бит информации содержит 19 байт 2. Посчитай, сколько байт информации содержат 2 кб 3. Посчитай, сколько байт информации содержит 144 бит
Главная » Информатика » Составить программу, определяющую какая буква слова x (первая или последняя) чаще встречается в слове y. Паскаль!
Источник: abiturient.pro