![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Readln(N);. { ввод исходных данных }
{ ввод исходных данных } for i: =1 to N do begin Info[i].name: = ''; for k: =1 to 2 do Repeat Read(c); Info[i].name: = Info[i].name + c; until c = ' '; Info[i].sum: = 0; for k: =1 to 3 do begin Read(mark); Info[i].sum: = Info[i].sum + mark; End; Readln; End; { поиск трех минимальных } min1: = 20; min2: = 20; min3: = 20; for i: =1 to N do begin if Info[i].sum < min1 then begin min3: = min2; min2: = min1; min1: = Info[i].sum; End else if Info[i].sum < min2 then begin min3: = min2; min2: = Info[i].sum; End else if Info[i].sum < min3 then min3: = Info[i].sum; End; { вывод результата } for i: =1 to N do if Info[i].sum < = min3 then writeln(Info[i].name); End. 19) эту задачу можно решить и без записей, используя два массива: массив символьных строк name и массив целых чисел sum, они объявляются так: var name: array[1..MAX] of string; sum: array[1..MAX] of integer; после этого в приведенной программе нужно заменить везде Info[i].name на name и Info[i].sum на sum.
Задачи для тренировки [2]: 1) На вход программы подается 366 строк, которые содержат информацию о среднесуточной температуре всех дней 2008 года. Формат каждой из строк следующий: сначала записана дата в виде dd.mm (на запись номера дня и номера месяца в числовом формате отводится строго два символа, день от месяца отделен точкой), затем через пробел записано значение температуры — число со знаком плюс или минус, с точностью до 1 цифры после десятичной точки. Данная информация отсортирована по значению температуры, то есть хронологический порядок нарушен. Требуется написать программу на языке Паскаль или Бейсик, которая будет выводить на экран информацию о месяце (месяцах), среднемесячная температура у которого (которых) наименее отклоняется от среднегодовой. В первой строке вывести среднегодовую температуру. Найденные значения для каждого из месяцев следует выводить в отдельной строке в виде: номер месяца, значение среднемесячной температуры, отклонение от среднегодовой температуры.
2) На вход программы подается текст на английском языке, заканчивающийся точкой (другие символы “.” в тексте отсутствуют). Требуется написать программу, которая будет определять и выводить на экран английскую букву, встречающуюся в этом тексте чаще всего, и количество там таких букв. Строчные и прописные буквы при этом считаются не различимыми. Если искомых букв несколько, то программа должна выводить на экран первую из них по алфавиту. Например, пусть файл содержит следующую запись:
3) На вход программы подаются произвольные алфавитно-цифровые символы. Ввод этих символов заканчивается точкой. Требуется написать программу, которая будет печатать последовательность строчных английских букв ('a' 'b'... 'z') из входной последовательности и частот их повторения. Печать должна происходить в алфавитном порядке. Например, пусть на вход подаются следующие символы:
|