1

Тема: Програма про масив літер (Паскаль)

Допоможіть з програмкою, будь ласка.
Знайти в масиві літер букву, яка зустрічається найчастіше. Вивести число входжень букви в масив

2

Re: Програма про масив літер (Паскаль)

Треба б окремий розділ на форумі - Розв'язування шкільних задач з поясненням безкоштовно. Бо так-то якось не годиться. Я розумію, програмістський форум, те да се, але ну хоч свої думки щодо алгоритму викладіть, бо так-то соромно якось.

Мій блог про ОС сімейства *nix - http://nixtravelling.blogspot.com/

3

Re: Програма про масив літер (Паскаль)

Знайти в масиві літер букву, яка зустрічається найчастіше. Вивести число входжень букви в масив

var s:string; a:array['a'..'z'] of integer; i:integer; m,c:char;
begin
 s:='sagan_diana';
 for i:=1 to Length(s) inc(a[s[i]]);
 m:='a';
 for c='a' to 'z' do if a[c]>a[m] then m:=c;
 write('букву, яка зустрічається найчастіше - ',m); readln;
end;
Подякували: sagan_diana1

4

Re: Програма про масив літер (Паскаль)

О, СПвПF на replace.
Пане Itari, ви враховуєте, що за півроку вам будуть прокльони на пошту (і які ще контакти залишите) надсилати за те, що відмовитеся курсач на шару писати?

Пане Master_Sergius, такий розділ існує. Бо п.3.5 Правил.

5 Востаннє редагувалося ADR (24.02.2016 01:08:08)

Re: Програма про масив літер (Паскаль)

Itari написав:

Знайти в масиві літер букву, яка зустрічається найчастіше. Вивести число входжень букви в масив

var s:string; a:array['a'..'z'] of integer; i:integer; m,c:char;
begin
 s:='sagan_diana';
 for i:=1 to Length(s) inc(a[s[i]]);
 m:='a';
 for c='a' to 'z' do if a[c]>a[m] then m:=c;
 write('букву, яка зустрічається найчастіше - ',m); readln;
end;

Мене одного нервує недотримання стилістики коду?

Прихований текст

var 
  s: string; 
  a: array['a'..'z'] of Integer; 
  i: Integer; 
  m, c: char;
begin
  s := 'sagan_diana';
  for i := 1 to Length(s) 
    Inc(a[s[i]]);
    
  m := 'a';
  for c := 'a' to 'z' do 
    if a[c] > a[m] then
      m := c;
      
  Write('букву, яка зустрічається найчастіше - ', m); 
  Readln;
end;

Подякували: Torbins1