Вопрос по информатике:
Программа должна быть написана в среде Pascal.
Ввести 20 строчек английским языком большими буквами. Определить какие буквы присутствовали в данных предложениях, какая буква встречалась больше раз и напечатать их. В массиве делаем, пожалуйста.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.02.2016 20:35
- Информатика
- remove_red_eye 8870
- thumb_up 49
Ответы и объяснения 1
Program Task;
Const A = 65; Z = 90; N = 20;
Var b: Array[A..Z] of Integer;
i, j, max: Byte;
s: Array[1..N] of String;
Begin
WriteLn('Введите ', N, ' строчек большими буквами на английском языке');
For i := 1 To N Do
ReadLn(s[i]);
For i := 1 To N Do
For j := 1 To Length(s[N]) Do
If (Ord(s[i][j]) >= A) And (Ord(s[i][j]) <= Z) Then
b[Ord(s[i][j])] := b[Ord(s[i][j])] + 1;
max := A;
WriteLn('В данных предложениях присутствовали такие буквы:');
For i := A To Z Do
Begin
If b[i] > 0 Then
Begin
Write(Chr(i), ' ');
If b[i] > b[max] Then
max := i;
End;
End;
WriteLn;
WriteLn('Наиболее встречалась буква ', chr(max));
ReadLn;
End.
- 24.02.2016 05:43
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.