Является конечной числовой последовательностью (состоит из пяти членов). Для числовых. Программы для нахождения N(ε) при ε = 0,05 и n0 =10000 для последовательности.

1. Программы Для Windows 10

Упражнение 2 (Обработка числовых последовательностей) Задачи на тему.

Продолжим знакомство с операторами цикла, имеющимися в Паскале. Повторение группы операторов (тела цикла) можно организовать и с помощью оператора, где проверка условия осуществляется после выполнения тела цикла. 11.1.Оператор цикла REPEAT (цикл ДО).

Формат оператора: REPEAT оператор; оператор.оператор UNTIL логическое условие; Часть программы, заключенная между служебными словами REPEAT и UNTIL, повторяется до тех пор, пока не станет истинным логическое выражение, стоящее после слова UNTIL. Между словами REPEAT (повторить) и UNTIL(до тех пор, пока) можно записать любое количество операторов без использования операторных скобок.

В отличие от оператора WHILE вычисление логического выражения происходит не до, а после очередного повторения цикла. Из-за этого цикл REPEAT обязательно выполнится хотя бы раз, а цикл WHILE может не выполнится ни разу. Если условие в цикле ПОКА является условием продолжения повторений, то условие в цикле ДО - условием выхода из цикла, его завершения. Поэтому для одной и той же задачи эти условия противоположны. Составить программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+.1/N используя оператор цикла REPEAT. Program Summa; Var S:real; N:integer; Begin S:=0;N:=0; repeat N:=n+1; S:=s+1/n Until n1000; Writeln(s); Readln End. 11.2.Поиск наибольшего числа.

Предположим, нам необходимо ввести с клавиатуры N чисел, найти из них наибольшее и вывести его. Для решения этой задачи предлагается следующий алгоритм: 1. Ввести первое число в переменную Max.

Ввести следующее число в переменную Next. Если NextMax, то Max:=Next. Пункты 2 и 3 повторять, пока не будут введены все числа. Вывести значение переменной Max. Действительно ли будет напечатано наибольшее из N чисел?

После выполнения первого пункта в переменной Max находится наибольшее из уже введенных чисел. Это справедливо, т.к. Введено лишь одно число. Повторение пунктов 2 и 3, в сущности, представляет собой цикл, который выполняется, пока не будут введены все числа. Если перед очередным повторением цикла в Max находится наибольшее из введенных чисел, то после выполнения пунктов 2 и 3 там снова будет наибольшее из введенных чисел.

В последнем пункте значение Max будет выведено. Этот пример показывает, что алгоритм можно доказать, как доказывают математическую теорему. Программируя доказательный алгоритм, можно не опасаться ошибок в алгоритме, конечно, если нет ошибок в доказательстве.

Program maximum; Var N, max, next, k: integer; Begin Write('Введите количество чисел'); Readln(n); Write('Введите число'); Readln(max); k:=1; repeat Write('Введите число'); Readln(next); K:=k+1; If nextmax then max:=next Until k=n; Writeln(max); Readln End. Тренировочные задания. Введите с клавиатуры 6 чисел и определите их среднее арифметическое. Напишите программу, которая вводит целые числа с клавиатуры и складывает их, пока не будет введено число 0.

Напечатайте 20 первых степеней числа 2. Найдите минимальное из N чисел. Дано натуральное число. Выяснить, является ли оно простым, т.е. Делится только на 1 и на само себя. Оставим пока числовые последовательности, их существует большое многообразие и позднее мы к ним вернемся.

А сейчас попробуем решить следующую задачу: Составить программу, которая в зависимости от порядкового номера дня недели (1, 2., 7) выводит на экран его название (понедельник, вторник., воскресенье). Для этого воспользуемся условным оператором. Var x: byte; Begin Write(' введите число от 1 до 7'); Readln(x); If x=1 then writeln('понедельник'); If x=2 then writeln('вторник'); If x=3 then writeln('среда'); If x=4 then writeln('четверг'); If x=5 then writeln('пятница'); If x=6 then writeln('суббота'); If x=7 then writeln('воскресенье'); Readln End. А если бы речь шла о названия месяца, то операторов пришлось бы использовать еще больше, так как условный оператор позволяет осуществлять ветвление программы только по двум направлениям, одно из которых соответствует выполнению проверяемого условия, а другое - невыполнению этого же условия. А если для переменной необходимо выполнить в зависимости от условий ряд действий придется использовать вложенные операторы или несколько операторов подряд. В таком случае лучше подойдет оператор ВАРИАНТА (или ВЫБОРА). Если условный оператор напоминает дорожную развилку, то оператор выбора - это разделение пути на множество дорог, по одной из которых пойдет выполнение программы.

Формат оператора: CASE выражение OF P1:; P2:;. PN:; ELSE END; Выражение порядкового типа вычисляется, и его значение отыскивается в одном из списков констант. После этого выполняется соответствующий оператор. Если значение выражения не совпало ни с одной из меток, то выполняется оператор из строки ELSE. Cокращенная форма оператора не содержит ELSE.

Метки оператора варианта могут быть константами любого типа, но их тип должен совпадать с типом выражения. Тогда код нашей программы будет выглядеть иначе: Var x: byte; Begin Write(' введите число от 1 до 7'); Readln(x); Case x of 1: writeln('понедельник'); 2: writeln('вторник'); 3: writeln('среда'); 4: writeln('четверг'); 5: writeln('пятница'); 6: writeln('суббота'); 7: writeln('воскресенье'); end; Readln End. Если при выборе альтернативы необходимо выполнение нескольких операторов, то нужно заключить их в операторные скобки BEGIN. Использовать составной оператор. При использовании оператора CASE можно использовать диапазон допустимых значений параметра.

Например, чтобы определить, введена ли как символьная переменная цифра, можно написать: CASE I OF '0'.' 9':writeln('цифра'); ELSE writeln ('не цифра') END; Задача. Семь небес рая фанфик слэш.

Для целого числа K от 1 до 99 напечатать фразу 'Мне k лет', учитывая при этом, что при некоторых значениях K слово 'лет' надо заменить на слово 'год' или 'года'. Например, 11 лет, 22 года, 51 год. (Данное решение можно улучшить используя дополнительно условный оператор. Попробуйте.) var k:byte; begin write('Введите число лет'); readln(k); case k of 1,21,31,41,51,61,71,81,91:writeln('Мне ',k,' год'); 2.4,22.24,32.34,42.44,52.54,62.64,72.74,82.84,92.94:writeln('Мне ',k,' года'); else writeln('Мне ',k,' лет'); end; readln; end. Тренировочные задания: 1.

Составить программу, которая в зависимости от порядкового номера месяца (1, 2., 12) выводит на экран его название (январь, февраль., декабрь). Написать программу, которая бы по введенному номеру месяца выдавала соответствующее этому месяцу время года.

Программы Для Windows 10

Составить программу, которая читает натуральное число N в десятичном представлении (N.