Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Перечисляемый и диапазонный типы
6.1. По названию страны (переменная типа Country) присвоить переменной типа Capital название столицы этой страны. Type Country = (Австрия, Болгария, Греция, Италия, Норвегия, Франция, Германия); Capital = (Вена, София, Афины, Рим, Осло, Париж, Берлин); 6.2. В следующем фрагменте программы по значению переменной Р (русское название языка программирования) присвоить переменной А английское название этого языка. Var Р: (Ада, Бейсик, Модула2, Лисп, Паскаль, ПЛ1, Фортран); А: (ADA, BASIC, MODULA2, LISP, PASCAL, PL1, FORTRAN); 6.3. В следующем фрагменте программы по значению символа-цифры d присвоить переменной n название этой цифры. Type название = (ноль, один, два, три, четыре, пять); Var d: '0'..'5'; n: название; 6.4. В следующем фрагменте программы определите i — интервал, образованный нотами nl и n2 (nl ≠ n2), секунда — это интервал из двух соседних (по кругу) нот (например, ре и ми, си и до), терция — интервал через ноту (например, фа и ля, си и ре) и т. д. Type нота = (до, ре, ми, фа, соль, ля, си); интервал = (секунда, терция, кварта, квинта, секста, септима); Var nl, n2: нота; i: интервал; 6.5. В следующем фрагменте программы замените значение переменной х, означающее некоторую длину в единицах р, значением в метрах. Type единица = (дециметр, километр, метр, миллиметр, сантиметр); длина = real; Var х: длина; р: единица; 6.6. В следующем фрагменте программы выведите название цвета, отвечающее значению переменной с. Type цвет = (черный, белый, синий); Var с: цвет; 6.7. В следующем фрагменте программы введите литеру и присвойте переменной х соответствующее этой литере значение типа letter. Type letter = (a, b, с, d); Var x: letter; 6.8. Для значений целого числа k от 1 до 99 напечатайте фразу «мне k лет», учитывая при этом, что при некоторых значениях k слово «лет» надо заменить словом «год» или «года». 6.9. Для натурального числа k напечатайте фразу «мы нашли k грибов в лесу», согласовав окончание слова «гриб» с числом k. 6.10. Написать программу для подведения итогов чемпионата Италии по футболу среди наиболее вероятных претендентов на победу. Условно будем считать, что чемпионат проходит с сентября по май с новогодними каникулами в январе. Исходными данными являются очки, набранные клубами за каждый месяц первенства. Будем считать, что победитель чемпионата определяется однозначно, т.е. только один клуб набирает максимальное количество очков.
|