Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
If count[ch]<>0 thenwriteln(ch,': ',count[ch]); readln; end.
Пример 2. Построить календарь на следующий год, то есть при вводе номера месяца и числа выдавать день недели. program Calendar; type tWeekDay = (Mon,Tue,Wed,Thu,Fri,Sat,Sun,NoDay); {NoDay - нет дня (например, 30.02)} tCalendar = array [1..12,1..31] of tWeekDay; var CL: tCalendar; m,d: byte; {месяц и число} wd: tWeekDay; {день недели} Begin {Строим массив:} {1. Заполним весь календарь значениями "нет дня":} for m:=1 to 12 do for d:=1 to 31 do CL[m,d]:=NoDay; {2. Строим массив-календарь:} m:=1; d:=1; wd:=Mon; Repeat CL[m,d]:=wd; Case m of 4,6,9,11: if d=30 then begin m:=m+1; d:=1; end else d:=d+1; 1,3,5,7,8,10,12: if d=31 then begin m:=m+1; d:=1; end else d:=d+1; 2: if d=28 then begin m:=m+1; d:=1; end else d:=d+1; end; wd:=tWeekDay((ord(wd)+1) mod 7); until m=13; {Выводим на экран:} Repeat write('Номер месяца > '); readln(m); write('Число > '); readln(d); Case CL[m,d] of Mon: writeln('Понедельник'); Tue: writeln('Вторник'); Wed: writeln('Среда'); Thu: writeln('Четверг'); Fri: writeln('Пятница'); Sat: writeln('Суббота'); Sun: writeln('Воскресенье'); NoDay: writeln('Такого дня нет в календаре'); end; until false; end. Пример 3. Простейший вариант сортировки массива (сортировка выбором). Пусть есть массив из n элементов; сначала найдём в нём самый маленький среди элементов с номерами 2,3,...n и поменяем местами с первым элементом, затем среди элементов с номерами 3,4,...n найдём наименьший и обменяем со вторым, и т. д. В результате наш массив окажется отсортированным по возрастанию. program SelectSort; const n = 10; var a: array [1..n] of integer; i,j,jmin,buf: integer; {jmin - номер наименьшего элемента, buf используется при обмене значений двух элементов} Begin for i:=1 to 10 do begin write('Введите элемент номер ',i,' -> '); readln(a[i]); end; for i:=1 to n-1 do begin jmin:=i; for j:=i+1 to n do if a[j]<jmin then jmin:=j; buf:=a[i]; a[i]:=a[jmin]; a[jmin]:=buf; end; write('Результат: '); for i:=1 to 10 do write(a[i],' '); readln; end.
|