Практикум по теме «Организация циклов»

Пункт плана Проверка домашнего задания Цикл ? Операторы бывают … Цикл с

Как называется цикл этой структуры WHILE DO begin end;

К какому типу циклов относится этот формат записи : for i:=k to n do

Практические задания

Пример 1. Сто раз написать свое имя на экране в строчку Программа: Program Z_1; Var i: integer; Begin For i: = 1 to 100 do Write (Имя ); Readln End.

Вывести на экран таблицу перевода из градусов по шкале Цельсия в градусы по Фаренгейту, для значений от 15 до 30, шаг 1 градус. Формула перевода из Цельсия в Фаренгейты F=(c*1.8)+32

Program Z_2; Var c: integer; F: real; Begin For c: = 15 to 30 do begin f:= (c*1.8) +32; writeln (c,,f); end; Readln End.

1. Составьте программу вычисления суммы натуральных чисел от 20 до 99 с использованием оператора while

Пункт плана program z22; var n, s: integer; begin s:=0; n:=10; while n<=15 do begin s:=s+n; n:=n+1; end; writeln('Сумма = ', s); end.