Ім'я файлу: Задачи на WHILE.docx
Розширення: docx
Розмір: 318кб.
Дата: 14.05.2020

Задача 1.

Считать сумму введенных с клавиатуры чисел  до тех пор, пока не будет введен ноль.

Решение.

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

var a,s:integer;

begin

s:=0;

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

readln(a);

while(a<>0) do begin

s:=s+a; //подсчет суммы S

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

readln(a);

end;

writeln(s);

end.





Задача 2.

 Даны два отрезка А и B (A>B). Не используя операции умножения и деления, определить, сколько отрезков В уместится в отрезке А.

Решение.

Рассмотрим изображение:



Информатика в школе. Цикл WHILE

Т.е. из рисунка видно, что нам нужно складывать длины отрезка A до тех пор, пока сумма не станет больше длины отрезка В. В этом нам поможет цикл с предусловием — цикл while.

var a,b,s,k:integer;

begin

writeln('Введите длину отрезка А');

readln(a);

writeln('Введите длину отрезка B');

readln(b);

k:=0;

S:=a;

while s

k:=k+1; //переменная k считает количество выполнения тела цикла

s:=s+a; //суммирует длину отрезка А

end;

writeln('В отрезке В содержится ',k,' отрезков А');

end.

Задача:

Пользователь вводит целые числа. Пока он не введёт число большее 1717, в ответ на каждое введённое число выводите сумму этого числа и числа 88, если же введённое число больше 1717, то цикл необходимо завершить.

program Project1;

var a: integer;

begin

  a := 1; // любое значение, чтобы цикл мог начаться

 

  while (a <= 17) do // заголов цикла с провекой логического выражения

  begin

    writeln('vvedite celoe chislo:'); // приглащаем пользователя ввести число

    readln(a);   //считываем его из потока ввода

    writeln(a + 8); // выводим пользователю очередной ответ

  end;

 

  writeln('Poka!'); // показываем, что мы вышли из цикла

  readln(); // удерживаем консоль

 

end.

Задача 1. Вывести все числа от 1 до числа, введенного с клавиатуры.
program example_while;

  var i, N: integer; { объявляем переменные }  

begin

i := 1; { Присваиваем i значение 1 }

readln(N); { Считываем последнее число }

while i <= N do {Как только i станет больше N, цикл прекратится (можно было бы написать просто <, но пришлось бы добавлять 1 к N) }

begin {Открываем операторные скобки}

write(i, ' '); {Выводим i}

Inc(i); {увеличиваем i на один.}

end; { закрываем скобки }

end.

скачати

© Усі права захищені
написати до нас