Простые программы на Fortran

Простые программы на Fortran

Задачи семинара

Задачи на ветвление

Вариант 1.  Составьте программу вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа. Например, для числа 128 сумма цифр 11, для числа 34 сумма цифр 12.

Вариант 2.  Составьте программу, проверяющую, что введенное число является четным или нечетным.

Задачи на циклы

Вариант 1.  Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (не включая сами эти числа), в порядке их убывания, а также количество N этих чисел. 

Вариант 2.  Написать программу, подсчитывающую количество четных и нечетных цифр в числе.

Вариант 3.  Вводится число. Преобразовать его в другое число, цифры которого будут следовать в обратном порядке.

Вариант 4.  Рассчитать кубы чисел от A до B.

Вариант 5.  Дано число. Найти сумму и произведение его цифр.

Вариант 6.  Определить из каких цифр состоит число

Вариант 7.  Вывести все квадраты натуральных чисел, не превосходящие данного числа N. Пример: N=50 | 1 4 9 16...

Вариант 8.  Даны целые числа K и N  (N > 0). Вывести N раз число K.

Вариант 9.  Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а также количество N этих чисел. 

Вариант 10.  Найти число цифр в числе

Вариант 11.  Найти наименьший общий делитель

Вариант 12.  Дано число D (> 0). Последовательность чисел AN определяется следующим образом: A1 = 2, AN = 2 + 1/AN–1, N = 2, 3, ... Найти первый из номеров K, для которых выполняется условие |AK – AK–1| < D, и вывести этот номер, а также числа AK–1 и AK. 

Вариант 13.  Дано число D (> 0). Последовательность чисел AN определяется следующим образом: A1 = 1, A2 = 2, AN = (AN–2+ AN–1)/2, N = 3, 4, ... Найти первый из номеров K, для которых выполняется условие |AK AK–1| < D, и вывести этот номер, а также числа AK–1 и AK.

Домашнее задание

Задачи на ветвление

Задача №1. Вариант соответствует номеру в списке группы.

Вариант 1.  Вы ввели трехзначное число. Затем ввели любую цифру. Составьте программу, определяющую, есть ли в этом числе данная цифра.

Вариант 2.  Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром в начале координат.

Вариант 3.  Составьте программу, определяющую, пройдет ли график функции y=5x2-7x+2 через заданную точку с координатами (а, b).

Вариант 4.  К финалу конкурса лучшего по профессии «Специалист электронного офиса» были допущены трое: Иванов, Петров, Сидоров. Соревнования проходили в три тура. Иванов в первом туре набрал M1 баллов, во втором – N1, в третьем – P1. Петров – соответственно M2, N2, P2. Сидоров – M3, N3, P3. Составьте программу, определяющую, сколько баллов набрал победитель.

Вариант 5.  Составьте программу, которая по трем введенным вами числам определит, могут ли эти числа быть длинами сторон треугольника, и если да, то какой получится треугольник с данными длинами сторон (прямоугольный, остроугольный, тупоугольный).

Вариант 6.  Квадраты при игре в крестики-нолики занумерованы, как показано на рисунке. Заданы номера трех квадратов: N1, N2, N3, причем N1<N2<N3. Проверить, лежат ли квадраты:

1	2	3
4	5	6
7	8	9

на одной диагонали

на одной вертикали

на одной горизонтали.

Вариант 7.  Составьте программу, реализующую эпизод применения компьютера в книжном магазине. Компьютер запрашивает стоимость книг и сумму денег, внесенную покупателем. Если сдачи не требуется, печатает на экране «Спасибо». Если денег внесено больше, то печатает «Возьмите сдачу» и указывает сумму сдачи. Если денег недостаточно, то печатает об этом сообщение и указывает размер недостающей суммы.

Вариант 8.  В ЭВМ поступают результаты соревнований по плаванию для 3-х спортсменов. Составьте программу, которая выбирает лучший результат и выводит его на экран с сообщением, что это результат победителя заплыва.

Вариант 9.  Составьте программу, которая по введенному вами K – числу грибов печатает фразу «Мы нашли в лесу K грибов», причем согласовывает окончание слова «гриб» с числом K. Количество грибов может быть любым целым числом: 1, 3, 34, 127 и т. д. Окончание фразы определяется значением последней цифры.

Вариант 10.  Составьте программу, которая для числа K (от 1 до 99), введенного вами, напечатает фразу «Мне K лет», где K – введенное число, при этом в нужных случаях слово «лет» заменяя на «год» или «года». Например, при K=70 «Мне 70 лет», при K=15 «Мне 15 лет», при K=23 «Мне 23 года», при K=31 «Мне 31 год».

Вариант 11.  Даны радиус круга и четыре сторона квадрата. Чья площадь больше?

Вариант 12.  Дано трехзначное число. Является ли оно симметричным (наприм. 232)?

Вариант 13.  Заданы два натуральных числа. Является ли их среднеарифметическое целым числом

Вариант 14.  Треугольники заданы сторонами a, b,c и a, b,c. Выяснить, являются ли они подобными

Вариант 15.  Даны три числа. Найти сумму двух наибольших из них

Вариант 16.  На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C) расположена ближе к A, и вывести эту точку и ее расстояние от точки A

Вариант 17.  Даны круг и квадрат. Составьте программу, определяющую по введенным вами значениям длин стороны квадрата и радиуса круга, одно из утверждений «Круг вписан в квадрат» или «Квадрат вписан в круг».

Вариант 18.  Напишите программу, анализирующую данные пожарного датчика в помещении, которая выводит сообщение «Пожароопасная ситуация», если температура в комнате превысила 600. Значение температуры вводится с клавиатуры.

Вариант 19.  Напишите программу, которая анализирует человека по возрасту и относит к одной из четырех групп: дошкольник, ученик, работник, пенсионер. Возраст человека вводится с клавиатуры.

Вариант 20.  Составьте программу, проверяющую, что введенное число делится без остатка на 3.

Задачи на циклы

Задача №2. Вариант соответствует номеру в списке группы.

Вариант 1.  Даны натуральные числа от 35 до 87. Вывести те из них, которые при делении на 7 дают остаток 1, 2 или 5.

Вариант 2.  Найдите количество четных цифр данного натурального числа.

Вариант 3.  Найдите наибольшую цифру данного натурального числа.

Вариант 4.  Найдите все четырехзначные числа, сумма цифр каждого из которых равна 15.

Вариант 5.  Найдите количество нечетных цифр данного натурального числа.

Вариант 6.  Выведите на экран все положительные делители натурального числа, введённого пользователем с клавиатуры.

Вариант 7.  Проверьте, является ли введённое пользователем с клавиатуры натуральное число — простым. Постарайтесь не выполнять лишних действий (например, после того, как вы нашли хотя бы один нетривиальный делитель уже ясно, что число составное и проверку продолжать не нужно). 

Вариант 8.  В городе N проезд в трамвае осуществляется по бумажным отрывным билетам. Каждую неделю трамвайное депо заказывает в местной типографии рулон билетов с номерами от 000001 до 999999. «Счастливым» считается билетик у которого сумма первых трёх цифр номера равна сумме последних трёх цифр, как, например, в билетах с номерами 003102 или 567576. Трамвайное депо решило подарить сувенир обладателю каждого счастливого билета и теперь раздумывает, как много сувениров потребуется. С помощью программы подсчитайте сколько счастливых билетов в одном рулоне?

Вариант 9.  В городе N есть большой склад на котором существует 50000 различных полок. Для удобства работников руководство склада решило заказать для каждой полки табличку с номером от 00001 до 50000 в местной типографии, но когда таблички напечатали, оказалось что печатный станок из-за неисправности не печатал цифру 2, поэтому все таблички, в номерах которых содержалась одна или более двойка (например, 00002 или 20202) — надо перепечатывать. Напишите программу, которая подсчитает сколько всего таких ошибочных табличек оказалось в бракованной партии.

Вариант 10.  Электронные часы показывают время в формате от 00:00 до 23:59. Подсчитать сколько раз за сутки случается так, что слева от двоеточия показывается симметричная комбинация для той, что справа от двоеточия (например, 02:20, 11:11 или 15:51).

Вариант 11.  В американской армии считается несчастливым число 13, а в японской — 4. Перед международными учениями штаб российской армии решил исключить номера боевой техники, содержащие числа 4 или 13 (например, 40123, 13313, 12345 или 13040), чтобы не смущать иностранных коллег. Если в распоряжении армии имеется 100 тыс. единиц боевой техники и каждая боевая машина имеет номер от 00001 до 99999, то сколько всего номеров придётся исключить?

Вариант 12.  Выведите все члены последовательности 2an-1–1, где a1=2, которые меньше 10000.

Вариант 13.  Выведите все двузначные члены последовательности 2an-1+200, где a1= –166.

Вариант 14.  Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N. 

Вариант 15.  Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + AN.

Вариант 16.  Дано вещественное число A и целое число N (> 0). Вывести 1 – A + A2 – A3 + ... + (–1)NAN. 

Вариант 17.  Дано целое число N (> 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K > N, и само значение 3K. 

Вариант 18.  Дано целое число N (> 1). Вывести наибольшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K. 

Вариант 19.  Дано целое число N (> 0). Вывести произведение 1·2·...·N. Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и выводить его как вещественное число. 

Вариант 20.  Дано целое число N (> 0). Если N — нечетное, то вывести произведение 1·3·...·N; если N — четное, то вывести произведение 2·4·...·N. Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и выводить его как вещественное число. 

Составить таблицу значений функции на отрезке [-10, 10]. Построить график.

Задача №3. Вариант соответствует номеру в списке группы для первого десятка. Начиная с 11 номера варианты повторяются (т. е. 11 – вариант 1, 12 – вариант 2 и т. д.)

Вариант 1.  с шагом 0,2

Вариант 2.  с шагом 0,1

Вариант 3.  с шагом 0,1

Вариант 4.  с шагом 0,1

Вариант 5.  с шагом 0,2

Вариант 6.  с шагом 0,5

Вариант 7.  с шагом 0,1

Вариант 8.  с шагом 0,1

Вариант 9.  с шагом 0,1

Вариант 10.  с шагом 0,2

Задача №4. Используя генератор случайных чисел random, получите целое число, умножив случайную величину на 10000. Определите, что это за число, с помощью ваших знаний программирования.