Задания

192. Запишите на языке Паскаль фрагмент программы, соответствующий блок-схеме. Определите значения переменных к и t после ее выполнения. 

Алгоритмический язык

Паскаль

193. Определите значение переменных s и i после выполнения следующих операторов: 

а)      S :=0;      i  :=3;     repeat        s:=s+5 div i;       i := i - 1;     until i < 1;
б)       s := 0;      i := 1;      repeat         s:=s+1/ i;         i := i — 1;      until i <= 1;

194. От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль. Определите, что будет напечатано в результате работы программы, если были введены следующие числа: 1, 5, -10, 3, -8, 6, 4, 0. 

Алгоритмический язык  алг цел s, хнач     s := 0;    нц         ВВОД X         s := s + х     кц при х = 0;    вывод s кон

Паскаль

195. Запивайте на языке Паскаль фрагмент программы, соответствующий блок-схеме. Подсчитывается количество введённых чисел, больших 1 при следующих значениях переменной х: 1, 5, -10, 3, -8, 6, 1, 2, -7, 4, 0. 

Паскаль

196. Дана программа на языке Паскаль: 

program a4; 

var x, k1, k2: integer; 

begin 

        k1 := 0; 

        k2 := 0; 

        repeat 

                writeln ('Введите целое число'); 

                readln (x); 

                if x<0 then k1 := k1 + 1; 

                if x<0 then k2 := k2 + 1; 

        until x=0; 

        writeln ('k1=', k1, '  ', 'k2=', k2) 

end. 

Составьте блок-схему, соответствующую программе. Что является результатом работы программы? 

    5. Дана последовательность операторов:

            а: =1;
            b: =1;
            repeat
                    а:=а+1;
                    b:=b*2;
            until b>8;
            s: =a+b

Сколько раз будет повторён цикл и какими будут значения переменных а, b, s после исполнения этой последовательности операторов?

    6. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён

ноль) и подсчёт суммы и среднего арифметического введённых положительных чисел. Используйте оператор repeat.

    7. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел. Используйте оператор repeat.

    8. Напишите программу вычисления наибольшего общего делителя двух целых чисел:

            а) используйте оператор repeat;

            б) используйте оператор while.