Составьте программу на языке программирования которая определяет делится ли заданное число n на 11
Pascal
Язык Си
Python
проверка на делимость python
КуМир
Basic-256
var a,b: integer;
begin
readln(a);
readln(b);
if a mod b = 0 then
writeln(a,' делится на ', b)
else begin
writeln(a,' НЕ делится на ', b);
writeln('Остаток: ', a mod b);
end;
writeln('Частное: ', a div b);
end.
678
4
678 НЕ делится на 4
Остаток: 2
Частное: 169
680
5
680 делится на 5
Частное: 136
main() int a,b;
scanf("%d%d",&a,&b);
if (a%b == 0) printf("%d делится на %d", a, b);
else <
printf("%d НЕ делится на %d\n", a, b);
printf("Остаток: %d", a%b);
>
printf("\nЧастное: %d\n", a/b);
>
1011
11
1011 НЕ делится на 11
Остаток: 10
Частное: 91
455
5
455 делится на 5
Частное: 91
проверка на делимость python
a = int(input())
b = int(input())
if a%b == 0:
print("%d делится на %d" % (a,b))
else:
print("%d не делится на %d" % (a,b))
print("Остаток: %d" % (a%b))
print("Частное: %d" % (a//b))
678
23
678 не делится на 23
Остаток: 11
Частное: 29
678
3
678 делится на 3
Частное: 226
алг делимость
нач
цел a,b
ввод a,b
если mod(a,b) = 0 то
вывод a, " делится на ", b, нс
иначе
вывод a, " НЕ делится на ", b, нс
вывод "Остаток: ", mod(a,b), нс
все
вывод "Частное: ", div(a,b)
кон
144 14
144 НЕ делится на 14
Остаток: 4
Частное: 10
234 3
234 делится на 3
Частное: 78
input a
input b
if a%b = 0 then
print a + " делится на " + b
else
print a + " не делится на " + b
print "Остаток: " + (a%b)
endif
print "Частное " + a\b
567
10
567 не делится на 10
Остаток: 7
Частное 56
В первой строке выведите Yes, если число делится на 11, иначе выведите No.
При проверке в ручном режиме решения, в которых делимость будет проверяться при помощи оператора остатка от деления, засчитаны не будут.
Проверить простое ли число? (число называется простым, если оно делится только само на себя и на 1)
Проверить простое ли число? (число называется простым, если оно делится только само на себя и на 1).
Если число делится на 6, то оно делится на 2 и на 3. Доказать на ИП 1-ого порядка
Чтобы доказать утверждение что если число делится на 6, то оно так делится на 2 и на 3, я введу.
Проверить гипотезу: если сумма цифр числа делится на 3, то и само число делится на 3
Проверить гипотезу: если сумма цифр числа делится на 3, то и само число делится на 3.
Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K
Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K (.
Если разница сум четных и нечетных позиций числа делится, на 11 то и число само делится на 11. Пойдет?
эмм, не проще ли проверять, что остаток равен нулю?
Добавлено через 55 секунд
пардон, не дочитал условие)
Добавлено через 1 минуту
но все равно можно проще:
а именно, делим на 11 и умножаем на 11 (в целых числах)
если получаем исходное число, значит оно делится на 11; если нет - то нет.
Добавлено через 19 минут
Что вы собираетесь делить,если на число ограничений не написали?А если число 100-значное?Во втором посту написан правильный путь,решать нужно строками.
Новичок, ну строго говоря вы правы.
Я просто посмотрел, что MahovIV, число как int вводит.
И, кстати, если вводимое число не ограничено, то вот это условие:
При проверке в ручном режиме решения, в которых делимость будет проверяться при помощи оператора остатка от деления, засчитаны не будут.
А я и не сказал, что в длинной арифметике нельзя взять остаток.
Просто объясните, зачем в задании запрещать это делать??
При проверке в ручном режиме решения, в которых делимость будет проверяться при помощи оператора остатка от деления, засчитаны не будут.
обратите внимание на слово "оператор".
Оператор остатка от деление (%) работает исключительно с целыми числами (int, long int. )
Тут конечно можно возразить "А что если имелся в виду переопределенный оператор в классе "длинное число"". так что еще раз, строго говоря, вы правы
эмм, не проще ли проверять, что остаток равен нулю?
Добавлено через 55 секунд
пардон, не дочитал условие)
Добавлено через 1 минуту
но все равно можно проще:
а именно, делим на 11 и умножаем на 11 (в целых числах)
если получаем исходное число, значит оно делится на 11; если нет - то нет.
Добавлено через 19 минут
П.С. Не виду там опции для GCC.
Логика неверна. К тому же, если посмотреть на результат, можно увидеть причину "Ошибка выполнения" и логически выявить причину, из-за которой часть тестов проходит удачно, другая нет.
В условии задачи этого нет, но дана подсказка дана -
делимость будет проверяться при помощи оператора остатка от деления
, стало быть, это int или long.
Это не подсказка: во-первых в случае такой проверки прога не будет принята, а во-вторых можно сделать и длинный остаток хоть от деления гугла на гугол.
Во-первых он применим к числам всех целых типов, как и само понятие делимости. А во-вторых как раз в том и может быть подвох: на таком то компиляторе при таких до доступных инкладах нет длинного остатка, а быстро сделать свой, да ещё именно оператор, а не функцию, но применимый на чистых сях (компилятор переписать, изменив список типов, которые он считает стандартными), нельзя и именно поэтому не принимается ответ через остаток, как привязанный к стандартным типам, от которых как раз и надо уйти. Без сравнения остатка определить делимость можно только по признакам, все признаки делимости оперируют цифрами, а вытянуть цифру из данного числового типа можно только остатком же. Так что с таким условием число вообще не может быть числового типа, а должно быть представлено строкой.
Мне нужно написать прогу, но нужно выполнить её без использования строк и массивов
задание такое: Проверить, делится ли заданное натуральное число на каждую из своих цифр.
Проверить, делится ли без остатка заданное натуральное число на каждую из своих цифр
Мне нужно написать прогу, но нужно выполнить её без использования строк и массивов задание такое.
Делится ли число на каждую из своих цифр
Дано натуральное число n. Делится ли число на каждую из своих цифр . Написать программу на Pascal с.
Проверить гипотезу: если сумма цифр числа делится на 3, то и само число делится на 3
Проверить гипотезу: если сумма цифр числа делится на 3, то и само число делится на 3.
Число делится на 11, проверить признак для натуральных чисел, не превосходящих заданного m, вывести числа кратные 11
Число делится на 11, если разность между суммой цифр, стоящих на нечетных местах, и суммой цифр.
Определить делится ли натуральное число N на сумму своих цифр?
С оператором цикла While 1. Дано натуральное число N. Определить делится ли оно на суму своих цифр?
Определить, делится ли введённое число на сумму своих цифр
написала программу, но в ней есть ошибки, я начинающий.. и не понимаю где и почему, так же, почему.
Проверить условие, что число а: четное, делится нацело на 3, нечетное, не делится нацело на 3
запишите условие того, что число а есть: парное, делится нацело на 3, нечетное, не делится нацело.
Определить, делиться ли заданное натуральное число на каждую из своих цифр?
Программу для КР нужна , хелпаните) определить , делиться ли заданное натуральное число на каждую.
А1. Какое значение S будет на экране в результате выполнения следующего алгоритма?
А2. Сколько вариантов действий можно осуществить при наличии одного разветвления в программе?
А3. Найдите ошибки в операторах и отметьте правильный вариант ответа.
- if a >
- if a>b then c: = a-b;
- if a > b c: = a + b else c: = a - b;
- if a > b then c:= a - b else c: = a + b.
А4. Когда вы используете выражение, в котором есть слово then, то в выражении обязательно должно быть слово:
А5. При каком исходном значении переменной X результатом выполнения команды Х:=Х mod 3 будет 0?
В заданиях части В1 и С1 показать решения
В1. Составьте программу вычисления значения функции по формуле: y= на языке программирования.
С1. Составьте программу на языке программирования, которая определяет, делиться ли заданное целое число n на 11.
Тест по теме: «Условный оператор»
А1. Какое значение будет иметь переменная b при значении a := -20, в примере:
if а > = 15 then b:= а * 2 else b:= а - 10?
А2. Сколько существует видов разветвленного алгоритма?
А3. Найдите ошибки в операторах и отметьте правильный вариант ответа.
- if a > b else c: = a - b then c: = a + b;
- if a > b then c: =a-b else c: =a + b;
- if a > b then c: = a + b eise c: = a - b ;
- if a > b then goto else c: = a - b .
А4. Какое значение y будет на экране в результате выполнения следующего алгоритма?
А5. Когда вы используете выражение, которое начинается со слова if, то обязательно применяете слово:
В заданиях части В1 и С1 показать решения
В1. Составьте программу вычисления значения функции по формуле : f= на языке программирования.
С1. Составьте программу на языке программирования, которая определяет, делится ли одно целое число на другое целое число, введённые с клавиатуры.
Тест по теме: «Условный оператор»
А1. Какое значение y будет на экране в результате выполнения следующего алгоритма?
А2. Какая из перечисленных операций не является логической?
А3. Найдите ошибки в операторах и отметьте правильный вариант ответа.
- if a > b then c: = a – b else c: = a + b;
- if a>b tnen c: =a +b; d:= a* b else c: a-b ;
- if a > b then c:=a+b goto с: = a - b ;
- if a
А4. Числа в языке Pascal различаются как:
а) натуральные и вещественные;
б) натуральные и целые;
в) целые и вещественные;
г) целые и правильные дроби.
А5. При каких исходных значениях переменной X и У в результате выполнения команды X=X^Y-Y значение переменной X станет равным двум?
В заданиях части В1 и С1 показать решения
В1. Составьте программу вычисления значения функции по формуле: t= на языке программирования.
С1. Составьте программу на языке программирования, которая увеличивает натуральное число n в три раза, если оно делится на 4.
По теме: методические разработки, презентации и конспекты
Тест по теме "Базы данных. Microsoft Access2010" для операторов ЭВМ
Данный тест используется для текущего контроля группы "Оператор ЭВМ" при изучении темы "Базы данныхю Microsoft Access 2010".
Тест в формате exe по программе "Оператор ЭВМ"
Тест в формате exe по программе "Оператор ЭВМ".
Интерактивные тесты по информатике и ИКТ по темам: "Компьютерные сети", "Электронные таблицы Excel", "Операторы программирования на Бейсике".
Архив содержит комплект электронных тестов по информатике и ИКТ, созданные в среде оболочки Айрен, содержание авторское. Тематика тестов: "Компьютерные сети", "Электронные таблицы Excel", "Операторы п.
Тест по теме "Операторы Паскаля" для 9 класса
Тест по теме "Операторы Паскаля".
Тест по теме:"Условный оператор"
Тест для 9 класса по программированию по теме "Условный оператор". Включает вопросы, не только по полному и неполному условному оператору, но и общие вопросы по теме "Паскаль". Тест создан с помощью с.
Тест №1 "Операторы присваивания, вводы, вывода в Паскале", 8 класс
Тест предназначен для учащихся 8 классов, для актуализации знаний по теме "Операторы присваивания, ввода, вывода в Паскале ".
Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.
Рабочие листы и материалы для учителей и воспитателей
Более 2 500 дидактических материалов для школьного и домашнего обучения
Столичный центр образовательных технологий г. Москва
Получите квалификацию учитель математики за 2 месяца
от 3 170 руб. 1900 руб.
Количество часов 300 ч. / 600 ч.
Успеть записаться со скидкой
Форма обучения дистанционная
- Онлайн
формат - Диплом
гособразца - Помощь в трудоустройстве
311 лекций для учителей,
воспитателей и психологов
Получите свидетельство
о просмотре прямо сейчас!
Выберите документ из архива для просмотра:
Выбранный для просмотра документ уроки на языке паскаль.doc
Уроки информатики
«Программирование на языке Паскаль»
Тема: Правила ТБ. Этапы решения задач на ЭВМ. Алгоритм. Свойства алгоритма. Исполнитель алгоритма.
Цель: повторить правила ТБ при работе в компьютерном классе,
Определить этапы решения задач на ЭВМ,
Ввести понятие алгоритма и его свойств.
Правила ТБ. Заполнить журнал по ТБ.
Новый материал
Задача в информатике
Этапы решения задачи
Запись алгоритма на языке программирования
Анализ результатов и корректировка алгоритма, в случае необходимости.
Алгоритм – четкая последовательность действий.
Игра Баше. Имеется 15 предметов. Соперники ходят по очереди, за каждый ход любой из играющих может взять 1, 2 или 3 предмета. Проигрывает тот, кто вынужден взять последний предмет.
Алгоритм выигрыша для первого игрока имеет вид:
взять 2 предмета
второй и последующие ходы делать так, чтобы количество предметов, взятых вместе с соперником за очередной ход, в сумме составляло 4.
Данный алгоритм приводит к выигрышу для 7, 11, 15, 19 предметов.
Задумайте натуральное число
Умножите его на 5
Сумму умножить на 2
Алгоритм отгадывания числа
вычесть из результата 16
отбросить крайнюю правую цифру, получим искомое число.
Решение задач.
Составить алгоритм, как набрать из реки 7л воды, если имеются сосуды емкостью 3л и 8л.
Алгоритм Евклида (НОД)
Если числа равны, то взять любое из них в качестве ответа, иначе продолжить выполнение алгоритма.
Найти большее из чисел.
Заменить большее число разностью большего и меньшего чисел.
Умножать число на 2;
Увеличивать число на 1.
Составить для этого исполнителя алгоритм получения числа 100 из единицы.
Исполнитель умеет из дроби a / b получать любую из дробей ( a - b )/ b , ( a + b )/ b , b / a . Как получить из дроби ½ дробь ¼ ?
4. Итог урока.
Некий человек должен перевезти в лодке через реку волка, козу и капусту. Каждый раз он может перевезти только либо волка, либо козу, либо капусту. На одном берегу нельзя оставить вместе козу и волка, а также козу и капусту. Составить алгоритм переправы на другой берег.
Тема: Алфавит языка Паскаль. Типы данных. Арифметические операции. Арифметические выражения. Структура программы на языке Паскаль. Основные операторы.
Цель: познакомить со средой программирования Паскаль; познакомить с основными типами данных и основными операциями над данными, определить структуру программы.
Назовите этапы решения задач на ЭВМ.
Дайте определение алгоритма. Назовите свойства алгоритма. Привести пример алгоритма.
Прочитать алгоритм к задаче про волка, козу, капусту.
Новый материал.
Латинские прописные и строчные буквы
Константы – числа, символы, строки, которые не изменяют своего значения в процессе выполнения программы.
CONST e =2.71 (число Эйлера)
Переменные – величины, которые меняются в процессе выполнения программы. Объявляя переменную заданного типа, вы отводите в памяти место, где будет хранится ее значение.
Типы данных в Паскале:
Простые типы данных
Диапазон значений
-2 147 483 648..2 147 483 647
Арифметические выражения и операции.
Арифметическое выражение состоит из операндов, скобок, знаков операций.
Целочисленное деление 11 div 5=2
Остаток от деления 11 mod 5=1
Записать математические выражения на языке Паскаль:
Перевести из линейной записи в обычную.
Read ( a 1, a 2,…, a n ) – оператор ввода данных
Readln – переход на новую строку при вводе данных, используют, если необходимо задержать исполнение программы до нажатия Enter .
Write ( a 1, a 2,…, a n ) – оператор вывода данных
Writeln ( a 1, a 2,…, a n )
Writeln – переход на следующую строку.
:= оператор присваивания. Вычисляет значение выражения, стоящего справа и присваивает переменной стоящей слева. Нельзя с помощью одного оператора присваивания присвоить нескольким переменным одно и то же значение. Например: нельзя записать i := j := k :=0; необходимо: i :=0; j :=0; k :=0.
program имя программы;
uses имя модуля1. ;
label имя метки 1. ;
const имя константы = значение константы;
var ;
begin
Решение задач.
Составить программу вычисления периметра и площади прямоугольника.
Var a, b, p, s: real;
Домашнее задание. Выучить конспект.
Записать данные выражения на Паскале: , , , , .
Тема: Составление линейных алгоритмов.
Цель: учить составлять линейные алгоритмы, реализовывать их на компьютере,
учить тестировать программу, находить ошибки, корректировать программу.
Проверка домашнего задания.
Письменный опрос
Назовите этапы решения задач с помощью ЭВМ.
Перечислите стандартные функции на Паскале
Запишите выражение на языке Паскаль
Алгоритм и его свойства.
Перечислите основные операторы на Паскале
Запишите выражение на языке Паскаль
Решение задач.
1. Вычислить сторону ромба, если известны две его диагонали.
Var a, d1, d2: real;
Writeln (‘ Введи диагонали ’);
a:= sqrt(sqr(d1/2)+ sqr(d2/2));
2. Вычислить периметр и площадь ромба, у которого сторона и меньшая диагональ равны а. ()
4. Итог урока.
5. Домашнее задание.
Вычислить длину окружности и площадь круга по заданному радиусу.
Вычислить площадь прямоугольного треугольника по его катетам.
Тема: Составление линейных алгоритмов.
Цель: учить составлять линейные алгоритмы, реализовывать их на компьютере,
учить тестировать программу, находить ошибки, корректировать программу.
Проверка домашнего задания.
Вычислить длину окружности и площадь круга по заданному радиусу.
Writeln (‘ Введи радиус ’);
Вычислить площадь прямоугольного треугольника по его катетам.
Writeln (‘ Введи катеты ’);
Решение задач.
Даны два целых числа. Найти их среднее арифметическое и среднее геометрическое.
Даны длины сторон прямоугольного параллелепипеда. Найти объем и площадь боковой поверхности.
V = abc
S = 2( a + b ) c
Найти сумму кубов корней уравнения x 2 - ax - 2 = 0.
Найти целую часть и остаток от деления а на b . а и b целые числа.
Var a, b, c, d: Integer;
Writeln (‘ Введи числа ’);
Writeln (‘ остаток ’,c);
Writeln (‘ целая часть ’,d);
3. Итог урока.
4. Домашнее задание.
Вычислить периметр прямоугольного треугольника по его катетам.
От полуночи минутная стрелка описала угол в k градусов. Какое время показывают часы.
Var k, ch, min: Integer;
Writeln (‘ Введи угол ’);
min:= k mod 360 div 6;
Writeln (ch, ‘ часов ’, min, ‘ минут ’);
Тема: Решение линейных задач. Контрольная работа № 1 «Решение линейных задач»
Цель: закрепить навык составления линейных алгоритмов,
контроль знаний учащихся
Проверка домашнего задания.
Решение задач.
1. Устная работа
A := 25+ B ;
4- B := A ;
ABS ( A ):= B ;
B := SQR ( A );
B := A ;
Ошибки в задании b ), c ), d ).
Определить значения x, y.
Writeln ( x , y );
Ответ: х=3.6; y =-3.6.
Определить значения x, y.
Writeln (a,b);
Ответ : а =-5.25; b=-1.75.
Определить объем цилиндра и площадь его полной поверхности, если известны радиус основания и высота цилиндра.
Формулы : V=πr 2 h; S=2πr(r+h).
Найти сумму цифр заданного трехзначного числа.
Var n, a1, a2, a3, s: Integer;
Writeln (‘ Введи число ’);
a2:= n div 10 mod 10;
Writeln (‘ сумма ’, s);
4. Дано трехзначное число. Найти число, полученное при прочтении его цифр справа налево. (123 321)
Var n, a1, a2, a3, n1: Integer;
Writeln (‘ Введи число ’);
a2:= n div 10 mod 10;
n1:= a3*100+ a2*10+a1;
Writeln (‘ новое число ’, n1);
3. Контрольная работа №1 «Решение линейных задач»
1. Дайте определение алгоритма. Перечислите свойства алгоритма
Перечислите этапы решения задач на ЭВМ.
2. Указать значения величин S и k после выполнения следующих операторов присваивания:
3. В каком из примеров допущены ошибки и какие именно?
Var A, B: integer;
4. Записать выражение по правилам языка Паскаль
5. Вычислите площадь треугольника по известным длинам его сторон. Воспользуйтесь формулой Герона: где .
5. Определите расстояние, пройденное телом за время t , если известны его начальная скорость и постоянное ускорение. Формула: .
6. Найти высоту равностороннего треугольника, если сторона равна a .
6. Найти боковую сторону равнобедренного треугольника, если основание a , высота к основанию h .
Тема: Операторы условного и безусловного перехода на Паскале.
Цель: Познакомить с операторами условного и безусловного перехода, правилами записи условий.
1. Анализ контрольной работы.
2. Новый материал.
Если в программе после выполнения очередного оператора надо выполнить не следующий по порядку, а другой, помеченный для этого меткой, используется оператор безусловного перехода GOTO . Он осуществляет переход к инструкции, перед которой стоит метка, объявленная в разделе меток Label .
Условный оператор имеет полную и краткую формы.
Полная форма условного оператора выглядит следующим образом:
if условие then оператор1
else оператор2;
В качестве условия указывается операция отношения. Сложные условия составляются из простых с помощью логических операций and , or . Если условие оказывается истинным, то выполняется оператор1 , в противном случае выполняется оператор2 .
Краткая форма условного оператора имеет вид:
if условие then оператор;
Если условие оказывается истинным, то выполняется оператор , в противном случае происходит переход к следующему оператору программы.
Если в качестве оператора выполняются несколько операторов, то они заключаются в операторные скобки begin … end .
3. Решение задач.
Задача 1. Даны два числа. Найти большее из них.
Задача 2. Найти большее из трех чисел.
writeln (' Введи числа ');
if a>b then max:=a else max:=b;
if c>max then max:=c;
Задача 3. Принадлежит ли число n интервалу ( a , b ).
Задача 4. Вычислить значение функции: .
4. Итог урока.
5. Домашнее задание.
1. Могут ли углы α, β, γ быть углами одного треугольника.
2. Даны точки М(1,2) и Р(3, а). Лежит ли отрезок МР в I четверти.
Дополнительно.
Составьте программу, которая уменьшает первое число в пять раз, если оно больше второго по абсолютной величине.
По заданному значению х вычислить значение
Определить принадлежит ли точка ( x , y ) фигуре
4. Дано двузначное число. Определить кратна ли трем сумма его цифр.
Тема: Операторы условного и безусловного перехода на Паскале.
Цель: отрабатывать навык правильного использования условного оператора.
1. Проверка дом. задания.
1. Могут ли углы α, β, γ быть углами одного треугольника.
2. Даны точки М(1,2) и Р(3, а). Лежит ли отрезок МР в I четверти.
2. Решение задач.
Задача 1. Является ли заданное число четным.
Задача 2. Является ли число а полным квадратом.
If sqr ( a ) = Int ( sqr ( a )) then write (‘ yes ’) else write (‘ no ’);
Задача 3. Является ли треугольник с углами а и b равносторонним.
If (a=60) and (b=60) then write (‘yes’) else write (‘no’);
Задача 4. Является ли равнобедренным треугольник со сторонами 2, 3, х.
If (x=2) or (x=3) then write (‘yes’) else write (‘no’);
Задача 5. Выяснить взаимное расположение прямой y = kx + b и точки ( m , n ).
Задача 6. Вывести на экран номер четверти, которой принадлежит точка ( x , y ) ().
If (x>0) and (y>0) then
Else if (x>0) and (y<0) then
Else if (x<0) and (y>0) then
Else Writeln (‘III ’);
Задача 7. Решить квадратное уравнение.
var d, a, b, c, x, x1, x2: real;
if d>0 then begin x1:= (-b-sqrt(d))/(2*a); x2:= (-b+sqrt(d))/(2*a);
else if d=0 then begin x:=-b/(2*a);writeln(x:7:3); end
else writeln ('korney no');
Задача 8. Принадлежит ли точка фигуре.
3.Итог урока.
4. Домашнее задание.
1.Выяснить оканчивается ли заданное число нулем.
2. Выяснить взаимное расположение прямой ОХ и точки ( a , b ).
Тема: Оператор выбора на Паскале.
Цель: Познакомить учащихся с форматом оператора выбора; добиваться понимания учениками особенностей применения оператора, учить учащихся составлять программы на использование оператора выбора.
1. Проверка дом. задания.
1.Выяснить оканчивается ли заданное число нулем.
2. Выяснить взаимное расположение прямой ОХ и точки ( a , b ).
2. Самостоятельная работа.
1. Дано натуральное число. Верно ли, что оно заканчивается нечетной цифрой.
2. Известен рост трех человек. Определить, одинаков ли их рост.
1.Дано натуральное число. Верно ли, что оно заканчивается четной цифрой.
2. Известны длины трех сторон треугольника. Является ли треугольник разносторонним.
3. Новый материал
Оператор выбора выполняет одно действие из нескольких в зависимости от значения некоторого выражения, называемого переключателем (селектором). Он имеет следующий вид:
case переключатель of
список выбора 1: оператор1;
.
список выбора N: операторN;
else оператор0
end ;
Переключатель представляет собой выражение порядкового типа (целого, символьного, перечислимого или интервального), а списки выбора содержат константы совместимого типа. Как и в операторе if , ветка else может отсутствовать.
Оператор case работает следующим образом. Если в одном из списков выбора найдено текущее значение переключателя, то выполняется оператор, соответствующий данному списку. Если же значение переключателя не найдено ни в одном списке, то выполняется оператор по ветке else или, если ветка else отсутствует, оператор case не выполняет никаких действий.
Список выбора состоит либо из одной константы, либо из диапазона значений вида a..b (константа a должна быть меньше константы b ); можно также перечислить несколько констант или диапазонов через запятую:
case DayOfWeek of
1..5: writeln(' Будний день ');
6,7: writeln(' Выходной день ');
end ;
3. Решение задач.
Задача 1. Составить программу, которая в зависимости от порядкого номера дня недели выводит на экран его название.
Case n of или n mod 7
1: Write (‘ понедельник ’);
2: Write (‘ вторник ’);
4: Write (‘ четверг ’);
5: Write (‘ пятница ’);
6: Write (‘ суббота ’);
7(0): Write (‘ воскресенье ’);
Задача 2. Выполнить заданную арифметическую операцию с двумя числами.
write(' введи числа '); readln(a,b);
write ('введи знак операции '); readln ( op );
Задача 3. По количеству набранных при тестировании баллов выставить соответствующую отметку. Пусть введена 100-бальная система и заданы следующие критерии оценивания:
write(' Введите балл '); readln(s);
write(' Отметка ', b);
Задача 4. В старояпонском календаре принят 60-летний цикл, состоящий из пяти 12-летних подциклов. Подциклы обозначались названиями цветов: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крыса, корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, курица, собака и свинья. Например: 1984 год – год начала очередного цикла – назывался Годом Зеленой Крысы.
Составить программу, которая по заданному номеру года нашей эры n напечатает его название по старояпонскому календарю. Рассмотреть два случая:
Читайте также: