Главная страница
Навигация по странице:

  • 1. ЦИКЛ С ПРЕДУСЛОВИЕМ или цикл "ПОКА".

  • WHILE > DO <тело цикла

  • Program Simwol; Uses crt; var i,h,n: integer ;Begin

  • Program Ch; Uses crt; var i,h,n: integer; Begin clrscr; i:=-100; h:=1; n:=100; while i

  • Program Summa; Uses crt; var i,n,h,s: integer; Begin clrscr; i:=1; n:=20; h:=1; s:=0; { s:=0 -обнуление суммы }

  • Решение квадратного уравнения. Оператор варианта. Вычисление площадей фигур. 10. Примерные задания к контрольной работе


    Скачать 443 Kb.
    НазваниеРешение квадратного уравнения. Оператор варианта. Вычисление площадей фигур. 10. Примерные задания к контрольной работе
    АнкорPaskal-1.doc
    Дата07.03.2018
    Размер443 Kb.
    Формат файлаdoc
    Имя файлаPaskal-1.doc
    ТипРешение
    #16375
    страница6 из 14
    1   2   3   4   5   6   7   8   9   ...   14

    ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 10

    ПОДГОТОВКА К КОНТРОЛЬНОЙ РАБОТЕ



    1. Составить программу вычисления силы взаимодействия двух точечных
    электрических зарядов:, где:

    F - сила взаимодействия зарядов по закону Кулона ( Ньютон ),

    q1,q2 -неподвижные точечные электрические заряды ( Кулон ),

    k=9∙е9 -коэффициент ( ),

    е - относительная диэлектрическая проницаемость среды (табличное значение),

    r - расстояние между точечными электрическими зарядами ( метр ).
    2. Вычислить значение функции:
    , при x3 и -2<=x<8

    Y=

    , при x-5 и x=-10 и x=0 и x=10


    3. Повторить к контрольной работе:
    а) Принципы фон Неймана;
    б) экспоненциальная форма представления числа;
    в) графическое представление разветвляющихся алгоритмов;
    г) перевод алгебраических выражений для ввода в программу;
    д) решение математических и физических задач;
    е) разветвляющиеся вычислительные процессы.

    ПРАКТИЧЕСКОЕ ЗАНЯТИЕ №11

    ЦИКЛИЧЕСКИЕ ПРОЦЕССЫ


    Циклические конструкции используются в тех случаях, когда необходимо повторять какие-либо действия. Различают два вида циклов: с заданным количеством шагов и циклы, в которых количество шагов заранее неизвестно, а цикл завершается при выполнении условия.

    1. ЦИКЛ С ПРЕДУСЛОВИЕМ или цикл "ПОКА".
    Сначала проверяется условие и тело цикла выполняется ПОКА УСЛОВИЕ ИСТИННО,

    если условие становится ЛОЖНЫМ, то происходит выход из цикла.

    Реализуется этот цикл инструкцией:

    WHILE <условие> DO <тело цикла>

    while - (вайл) - пока, do - (ду) – делать (выполнять).

    В тело цикла входит только один оператор! Если нужно объединить в тело цикла несколько операторов, то применяются операторные скобки begin-end.

    Условие может быть простым или сложным, если применить слова: NOT, AND, OR.
    ПРИМЕРЫ ПРОСТЕЙШИХ ЦИКЛИЧЕСКИХ ПРОЦЕССОВ.
    Пример 1. Вывести 20 одинаковых символов на экран.
    Program Simwol; Uses crt;

    var i,h,n: integer;

    Begin {Действительно ли на экране 20 символов?}

    clrscr; {пронумеруем символы:}

    i:=1; h:=1; n:=20;

    while i<=n do while i<=n do

    begin begin

    write('* '); writeln(i,'- * ');

    i:=i+h; i:=i+h;

    end; end;

    readkey;

    End.
    Пример 2. Вывести на экран Пример 3. Вывести на экран

    числа от 1 до 20. числа от 20 до 1.
    Program Ch; Uses crt; Program Ch; Uses crt;

    var i,h,n: integer; var i,h,n: integer;

    Begin Begin

    Clrscr; clrscr;

    i:=1; h:=1; n:=20; i:=20; h:=-1; n:=1;

    while i<=n do while i>=n do

    begin begin

    write(i,' '); write(i,' ');

    i:=i+h; i:=i+h;

    end; end;

    readkey; readkey;

    End. End.


    ПРИЛОЖЕНИЕ К ПРАКТИЧЕСКОМУ ЗАНЯТИЮ № 11



    Пример 4. Вывести на экран числа, оканчивающиеся на 7 на интервале от -100 до 100.

    Program Ch; Uses crt;

    var i,h,n: integer;

    Begin

    clrscr;

    i:=-100; h:=1; n:=100;

    while i<=n do

    begin

    if i mod 10=7 then write(i,' ');

    i:=i+h;

    end;

    readkey;

    End.
    нечетные: if odd(i) then write(i,' ');

    четные: if not(odd(i)) then write(i,' ');

    делящиеся на 7: if i mod 7=0 then write(i,' ')

    нечетные и делящиеся на 7: if (odd(i)) and (i mod 7=0) then write(i,' ');
    Пример5. Найти сумму ряда: 1, 2, ..20.

    Тип переменной S может быть integer, если сумма чисел не более 32767.

    Program Summa; Uses crt;

    var i,n,h,s: integer;

    Begin

    clrscr;

    i:=1; n:=20; h:=1; s:=0; { s:=0 -обнуление суммы }

    while i<=n do

    begin

    s:=s+i; { процесс суммирования }

    i:=i+h;

    end;

    write('Сумма чисел натурального ряда от 1 до 20 равна ',s);

    readkey;

    End.

    Пример 6. Найти сумму ряда: 0.1, 0.3, 0.5, .. , 32.5

    Program Summa; Uses crt; { s - сумма }

    var x,h,n,s: real; { h - шаг }

    Begin { x – начальное значение параметра цикла}

    ClrScr; { n - конечное значение параметра цикла.}

    s:=0; x:=0.1; h:=0.2; n:=32.5;

    while (x<=n) do

    begin

    s:=s+x; { -суммирование очередного элемента }

    x:=x+h; { -изменение параметра цикла на шаг }

    end;

    writeln('Сумма ряда: 0.1, 0.3,.., 32.5 S=',s); readkey;

    End.

    1   2   3   4   5   6   7   8   9   ...   14


    написать администратору сайта