Напишите программу, читающую массив из 10 чисел и печатающий его в обратном порядке.
Дан массив из 100 чисел. Заполнить его случаными значениями и распечатать его по 10 чисел в строке.
Дан массив из 50 чисел. Заполните его случайными числами. Определить, сколько в нем элементов, отличных от последнего элемента. Вывести их количество.
Дан массив из 50 чисел. Заполните его случайными числами. Вывести на экран сначала все положительные его элементы, а затем все отрицательные.
Дан массив из 10 чисел. Введите его с клавиатуры, после чего измените у всех чисел знак на противоположный. Вывести получившийся массив на экран.

Прошлый урок 05.10.11:

Программирование циклических алгоритмов З-П 4.4.3

Практическая работа. Программирование циклических алгоритмов З-П 4.4.2

Циклы ПОКА или цикл с предусловием WHILE …..DO

Основные понятия

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

Цикл с предусловием используется, когда неизвестно количество повторений

Пример №1

{Вычислить сумму натурального ряда чисел от 1 до N}

Program Natur;

Var S, N,c:integer;

Begin

Write('N=');//

Readln(N); //

S:=0; //первоначально сумму обнуляем

c:=0;//дополнительная переменная

{Цикл с предусловием}

While c<N Do

Begin

c:=c+1;

S:=S+c;

End;

Writeln('Ответ: сумма равна ', S); //вывод чему равна сумма ряда чисел 1 до N.

End.

Пример №2

{While2 . Даны положительные числа A и B (A > B). На отрезке длины A раз-
мещено максимально возможное количество отрезков длины B (без нало-
жений). Не используя операции умножения и деления, найти количество
отрезков B, размещенных на отрезке A.}

Program while1;
Uses Crt;
Var A,B,L,K: integer;
BEGIN
Write('A=');
ReadLn(A);
Write('B=');
ReadLn(B);
IF (A>B) and (B>0)and (A>0) THEN
Begin
L:=0; //вспомогательная переменная
K:=0; //счетчик количества
While (L+B)<A do
Begin
L:=L+B;
K:=K+1;
End;
WriteLn('Ответ: количество отрезков B помещающихся в отрезок А равно ', K)
End
Еlse
Writeln('Некорректный ввод, повторите ввод');

END.

Решение задач на уроке

1. Дано целое число N (> 0). Если оно является степенью числа 3, то
вывести TRUE, если не является — вывести FALSE. То есть, например, число 9 является числом степени 3, так как , число 27 - . Т. о. вводим число и мы должны определить, является ли это число тройкой в какой либо степени, то есть мы должны делить на три введенное число до тех пор, пока оно не сведется к тройке.: Program n1;; Uses CRT;; Var N : integer; //переменная N целочисленная; Priznak : boolean;// Priznak логического типа, т. е. может принимать значение Истина (True)или; //Ложь(False); Begin; Write('N=');; ReadLn(N);; Priznak:=TRUE; // предполагаем что число является числом степени 3; While N>1 do; If (n mod 3) >0 then { если остаток от деления больше нуля, т. е. Число N не делится на три нацело, то он уже не является числом в степени три}; Begin; Priznak:=False; {Priznak присваиваем Ложь}; break; {Прерываем программу}; End; else {иначе}; N:=N div 3; { находим целую часть от деления на 3, т. е. Например у нас задано число 27, 27 div 3=9, возвращаемся на начало цикла, далее 9 div 3 = 3, далее 3 div 3= 1, если мы дошли сюда,то признак остался TRUE и число является числом степени 3, иначе нет.}; If Priznak then WriteLn('Число является степенью 3') else; WriteLn('Число не является степенью тройки');; End.

2. Дано натуральное n. Вычислить y=1*3*5*....*(2n-1).

Program n2;

Uses CRT;

Var N , I, Y : integer;

Begin

Write('N=');

ReadLn(N);

Y:=1; // задаем начальное значение

i:=1;

While i<n do

Begin

i:=i+1;

Y:=Y*(2*i-1);

End;

WriteLn(Y);

End.

Домашняя работа на 12.10.11

Принести листинг программы + тесты для каждой из следующих задач

1. Дано натуральное n. Вычислить y=2*4*6*...*2n.

2. Составить программу, которая запрашивает пароль (например, четырехзначное число) до тех пор, пока он не будет правильно введен. Если после третьего раза введен неправильной пароль закончить выполнение программы с ответом «Попытки исчерпаны».

Решение

3. Табулирование функций

Составить программу для вычисления значений функции F(x) на отрезке [а, b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции.

F(x)=x-sinx

Желаю успешной работы, если у вас возникают вопросы прошу писать на электронный ящик:

Решение

sohova.informatika11@yandex.ru


Для Учеников

Для Родителей

Для Учителей


Конкурсы и олимпиады

Подготовка к ЭГЭ

Программирование на Pascal