1 Тема від sagan_diana

  • sagan_diana
  • Користувач
  • Поза форумом
  • Дата реєстрації: 23.02.2016
  • Повідомлень: 1
    • Репутація: 0

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

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

2 Відповідь від Master_Sergius

  • Дата реєстрації: 01.10.2014
  • Повідомлень: 1 068
    • Репутація: 805

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

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

3 Відповідь від Itari

  • Itari
  • Itari
  • Користувач
  • Поза форумом
  • Дата реєстрації: 01.11.2015
  • Повідомлень: 337
    • Репутація: 150

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 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 286
    • Репутація: 13020

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

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

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

koala вебсайт

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

  • ADR
  • ADR
  • Replace Group
  • Поза форумом
  • Дата реєстрації: 28.01.2013
  • Повідомлень: 540
    • Репутація: 254

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

Itari написав:

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

[code]
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;
[/code]

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

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

[code=pascal]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;[/code]

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