Пояснення до алгоритму. Зверніть увагу, що в рядках, виділених зірочкою {*}, варіант мовою Паскаль дещо відрізняється від відповідного алгоритму мовою НАМ

Зверніть увагу, що в рядках, виділених зірочкою {*}, варіант мовою Паскаль дещо відрізняється від відповідного алгоритму мовою НАМ. У варіанті мовою Паскаль враховано, що в позначених точках уже відоме мінімальне з трьох значень, тому воно одразу виводиться на екран. Причому всі три значення необхідно вивести в рядок, використаний оператор write, який від оператора writeln відрізняється тим, що після виведення курсор на екрані залишається у поточному рядку (оператор writeln обов’язково переводить курсор на наступний рядок). Після виведення відбувається порівняння двох таких чисел з тих, що залишилися, які потім виводяться у відповідному порядку.

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

Приклад 4. Складіть алгоритм, який за номером місяця та року видає назву місяця й кількість днів у місяці.

Алгоритм має вигляд:

АЛГ Приклад_4 (ціл n, літ міс, цілий kd, god)

АРГ n, god

РЕЗ міс, kd

ПОЧ цілий L

Вибір

при n=1: міс:=” Січень“; kd:=31

при n=2: якщо god=int(god/4)*4

то якщо god=int(god/100)*100

то якщо god=int(god/400)*400

то L:=1

інакше L:=0

Все

інакше L:=1

Все

інакше L:=0

Все

міс:=” Лютий “; kd:=28+L

при n=3: міс:=” Березень “; kd:=31

при n=4: міс:=” Квітень “; kd:=30

при n=5: міс:=” Травень “; kd:=31

при n=6: міс:=” Червень “; kd:=30

при n=7: міс:=” Липень “; kd:=31

при n=8: міс:=” Серпень “; kd:=31

при n=9: міс:=” Вересень “; kd:=30

при n=10: міс:=” Жовтень “; kd:=31

при n=11: міс:=” Листопад “; kd:=30

при n=12: міс:=” Грудень “; kd:=31

інакше ДРУКУВАТИ (“ Номер місяця зазначений неправильно! “)

Все

ДРУКУВАТИ (“ Місяць “,міс, “ днів “, kd)

КІН

Поиск по сайту: