Студопедия  
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

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

Читайте также:
  1. В) Дефрагментація диска
  2. Відеофрагмент «Давос».
  3. Выделение, перемещение и растяжение фрагмента рисунка
  4. Г. Темину удалось не только получить фрагменты ДНК, комплементарные заданной цепи РНК, но и доказать что ДНК-копии могут встраиваться в геном клеток и передаваться потомству.
  5. Декабристы были любимой темой советских историков, потому фрагменты пяти глав были ретроспективно восстановлены
  6. Дефрагментация и свободное место на диске
  7. Значительная фрагментарность в понимании респондентами сущности КСО показывает, что на сегодня КСО еще не стала стратегической концепцией развития предприятий МСБ.
  8. Конец ознакомительного фрагмента.
  9. Конец ознакомительного фрагмента.
  10. Конец ознакомительного фрагмента.

Используем для организации цикла оператора 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:=x*x*x; Writeln (x:5:2, y:8:2); x:=x+dx; end; Вычисляем значения функции и выводим их на экран
sum:=0; x:=a; For i:=1 to n do begin Y:=x*x*x; 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:=x*x*x; 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:=x*x*x; 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:=a*a*a; x:=a; For i:=1 to n do begin Y:=x*x*x; 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;

Контрольные вопросы и задания

  1. Назовите основные виды циклов. Назовите отличия циклов друг от друга.
  2. Опишите структуру оператора цикла с предусловием. Принцип выполнения цикла с предусловием.
  3. Дайте описание типу данных, используемых в качестве параметров для цикла с предусловием.
  4. Опишите структуру оператора цикла с постусловием. Принцип выполнения цикла с постусловием.
  5. Дайте описание типу данных, используемых в качестве параметров для цикла с постусловием.
  6. Дайте объяснение выражению «Может ли один цикл быть вложен внутрь другого?».
  7. Назовите правила использования операторов цикла с пост- и предусловием.
  8. Определите сколько раз исполнится фрагмент программы и чему равно выражение K.

K:=0;

WHILE K<=10 DO

begin K:=K+2; Write('K= ',K:3) end;

  1. Определите сколько раз исполнится фрагмент программы и чему равно выражение K.

K:=0;

WHILE K<=10 DO

begin K:=K+3; Write('K= ',K:3) end;

  1. Определите сколько раз исполнится фрагмент программы и чему равно выражение K.

m:=1;

while m<20 do

Begin

m:=m*3;



Дата добавления: 2014-12-18; просмотров: 42 | Поможем написать вашу работу | Нарушение авторских прав


lektsii.net - Лекции.Нет - 2014-2024 год. (0.006 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав