8 клас Цикл з передумовою і післяумовою

Введіть прізвище, ім'я і клас: Теоретична частина: 1. Що буде результатом виконання даного циклу (чому дорівнює n)?i:=1;n:=0;while i<=3 do begin n:=n+1; i:=i+1; end; n=3 2. Скільки разів буде виконуватись кожен з циклів. Встановіть відповідність: Х:=7; Whіle Х 10; 2 рази a:=20; while a 3. Який оператор підходить даній блок-схемі?5 Repeat A := A+1 Untіl A < 5; Whіle A<5 do A := A+1; If A < 5 Then A := A+1; Repeat A := A+1 Untіl A >= 5; Практична частина: Перед виконанням задач уважно перегляньте презентацію до уроку, задачі №1 і №3 розібрані в презентації, задача №2 аналогічна до Вправи 7, тільки інші числа. Задача №1Створіть проект для розв’язання задачі: Клієнт поклав у банк певну суму грошей. Щорічно банк додає до суми наперед визначений відсоток від суми, що зберігається на рахунку після попереднього року. Через скільки років сума на рахунку перевищить 5000 грн? Форма до задачі: Доповніть код програми: (після написані пояснення) procedure TForm1.Button1Click(Sender: TObject); A:real; n,p:integer; змінних, дійсної А, цілих n i pbegin програмиA:=StrToFloat(Edit1.Text); початкове значення А з текстового поля Edit1 переведеного з текста в числоp:=StrToInt(Edit2.Text); початкове значення p з текстового поля Edit2 переведеного з текста в числоn:=0; початкове значення nwhile A<=5000 do циклу поки А менше або дорівнює 5000 виконуватиbeginA:= A+A*(p А обчислються за формулою A+A∙(p := n+1; рік на 1 (n)end;ShowMessage(IntToStr(n)); результат (n)end; програми Задача №2Розробити проект для виконання алгоритму блок-схеми: Доповніть код програми: (після написані пояснення)Виконання обчислень починається при натисканні на кнопку Button2Програма аналогічна до Вправи 7 з презентації! procedure TForm1.Button2Click(Sender: TObject); a:Integer; змінної аbegin програмиa:=3; початкового значення змінній аrepeat циклу, повторюватиa:=sqr(a)-3; циклуuntil a>120; виконується умоваShowMessage(IntToStr(a)); результат а в повідомленніEnd; програми Задача №3Знайти найменшу кількість перших натуральних чисел, потрібну для того, щоб одержати суму, більшу за 1000. Доповніть код програми: (після написані пояснення)Виконання обчислень починається при натисканні на кнопку Button3 procedure TForm1.Button3Click(Sender: TObject); n,S: Integer; змінних n i Sbegin програмиn:= 0; початкового значення змінній nS:= 0; початкового значення змінній Srepeat циклу, повторюватиn:=n+1; наступне число n (збільшити n на одиницю)S:= S+n; це число до суми SUntil S>1000; сума не перевищить 1000ShowMessage(IntToStr(n)); результат n в повідомленніEnd; програми Після заповнення ОБОВ’ЯЗКОВО натисніть кнопку з літачком Hand in work, потім ОБОВ’ЯЗКОВО натисніть ще раз Confirm hand in work.