Начальная температура t1 градусов. Каждую минуту она вырастает на a градусов. За сколько минут она достигнет t2 градусов? Программу нужно написать на PascalABC
Type index='0'..'z'; var Ch:array[0..255] of integer; s:string; i,max,imax:integer; begin { очищаем массив счетчиков } for i:=0 to 255 do Ch[i]:=0; Writeln('Введите текст'); Readln(s); for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]); max:=Ch[0]; imax:=0; for i:=33 to 255 do { не рассматриваем непечатаемые символы и пробел} if max<Ch[i]then begin max:=Ch[i]; imax:=i end; Writeln('Символ "',Chr(imax),'" встретился ',max,' раз(а)') end.
Тестовое решение: Введите текст "Что значит имя? Роза пахнет розой, хоть розой назови её, хоть нет." (В.Шекспир) Символ "о" встретился 9 раз(а)
//Обьявляем дополнительные переменные и главный массив, а также два дополнительных - они будут "половинками". var a, b, c: array [1..100] of longint; i, min, n, j, t: longint;
begin //Читаем количество элементов в нашем массиве. readln(n);
//Читаем массив. for i := 1 to n do read(a[i]);
//Заполняем первую "половинку". for i := 1 to n div 2 do b[i] := a[i];
//Заполняем вторую "половинку". Но раз это уже вторая "половинка" главного массива, то и //цикл теперь должен начинаться со второй части массива, а заканчиваться уже в его конце. for i := n div 2 + 1 to n do c[i - n div 2] := a[i];
//Теперь отсортируем первую "половинку" методом выбора. Идея этого метода //основывается на том, что мы ищем минимальный среди неотсортированных элемент, //а затем просто swap-аем его с тем, который стоит сразу после отсортированных. for i := 1 to (n - 1) div 2 do begin min := i; for j := i + 1 to n div 2 do if b[min] > b[j] then min := j; if min <> i then begin t := b[i]; b[i] := b[min]; b[min] := t; end; end;
//Затем вторую точно также, только стоит обратить внимание на сравнения. //Так как надо отсортировать по убыванию, то теперь сравнение перед "swap"-ом //будет другим. for i := 1 to (n - 1) div 2 do begin min := i; for j := i + 1 to n div 2 do if c[min] < c[j] then min := j; if min <> i then begin t := c[i]; c[i] := c[min]; c[min] := t; end; end;
//А теперь просто по очереди выводим готовые "половинки", не забывая ставить //пробел после вывода каждого элемента. for i := 1 to n div 2 do write(b[i], ' '); for i := 1 to n - n div 2 do write(c[i], ' '); end.
index='0'..'z';
var
Ch:array[0..255] of integer;
s:string;
i,max,imax:integer;
begin
{ очищаем массив счетчиков }
for i:=0 to 255 do Ch[i]:=0;
Writeln('Введите текст');
Readln(s);
for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
max:=Ch[0]; imax:=0;
for i:=33 to 255 do { не рассматриваем непечатаемые символы и пробел}
if max<Ch[i]then begin max:=Ch[i]; imax:=i end;
Writeln('Символ "',Chr(imax),'" встретился ',max,' раз(а)')
end.
Тестовое решение:
Введите текст
"Что значит имя? Роза пахнет розой, хоть розой назови её, хоть нет." (В.Шекспир)
Символ "о" встретился 9 раз(а)