рефераты конспекты курсовые дипломные лекции шпоры

Раздел Информатика
/
Фрагмент блок-схемы

Реферат Курсовая Конспект

Выберите учебное заведение

Фрагмент блок-схемы

Фрагмент блок-схемы - раздел Информатика, Правила использования операторов цикла Используем Для Организации Цикла ОператораFor. ...

Используем для организации цикла оператораFor.

Программа	Комментарии
Program Primer5_7_1; Var a, b, dx, sum, pr, x, y, max: real; n, kol, i: integer;	Объявляем переменные
Begin Writeln(‘Введите a и b’); Readln(a,b); Writeln(‘Введите количество расчетных точек N>1’); Readln(n);	Вводим исходные данные
dx:=abs(b-a)/(n-1);	Вычисляем шаг изменения x
x:=a; For i:=1 to n do begin Y:=xxx; Writeln (x:5:2, y:8:2); x:=x+dx; end;	Вычисляем значения функции и выводим их на экран
sum:=0; x:=a; For i:=1 to n do begin Y:=xxx; If (y>-10) and (y<10) then sum:=sum+y; x:=x+dx; end; Writeln(‘Сумма=’,sum:8:3);	Вычисляем сумму значений функции, удовлетворяющих условию –10<y<10Комментарий:добавляем к сумме только те значения переменной y, которые удовлетворяют условию (y>-10) and (y<10)
pr:=1; x:=a; For i:=1 to n do begin Y:=xxx; If (trunc(y) mod 3 =0 ) then pr:=pr*y; x:=x+dx; end; Writeln(‘Произведение=’,pr:8:3);	Вычисляем произведение тех значений функции, целая часть которых делится на 3 без остатка Комментарий:для проверки делимости на 3 без остатка вычисляется целая часть y с помощью функции trunc(y),затем проверяется условие(trunc(y) mod 3 =0)- равен или нет нулю остаток от целочисленного деления (операция mod вычисляет остаток от целочисленного деления)
kol:=0; x:=a; For i:=1 to n do begin Y:=xxx; If (y>0) and (i mod 2=1) then kol:=kol+1; x:=x+dx; end; Writeln(‘Количество =’,kol);	Вычисляем количество положительных значений функции в точках с нечетными номерами Комментарий:для проверки нечетности номеров точек (переменная i) используется условие i mod 2=1 Если значение переменной i нечетное, то остаток от целочисленного деления равен 1.
max:=aaa; x:=a; For i:=1 to n do begin Y:=xxx; If max<y then max:=y; x:=x+dx; end; Writeln(‘Наибольшее значение=’, max:8:3); End.	Вычисляем наибольшее значение функции в расчетных точках Комментарий: за начальное значение переменной max принимается значение функции в точке x=a. В цикле вычисляются новые значения, каждое из которых сравнивается со значением max. Если новое значение функции оказывается больше чем значение max, то оно принимается за новое значение max.

Пример.Разложение целого числа Х на простые множители. Будем делить Х на p, начиная с p = 2. Если делится нацело, то p — множитель, если не делится, то увеличиваем p на 1, пока Х <> 1.

read(x);p := 2;repeat if x mod p = 0 then begin write(p, ' '); x := x div p; end else p := 1+p;until x = 1;

Развернуть

Открыть в широком формате

– Конец работы –

Эта тема принадлежит разделу:

Правила использования операторов цикла

Оператор цикла с предусловием While... Оператор цикла с постусловием Repeat... Правила использования операторов цикла...

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Фрагмент блок-схемы

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

Комбинированный урок №7
Тема:Итерационные алгоритмы и программы. Цель: формирование знаний о форматах операторов While, Repeat, навыков применения операто

UNTIL условие;
где оператор1, оператор2, ... , операторN - операторы тела цикла; условие - логическое выражение, диктующее завершение повторов. Опера