Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
КІСІТ ім. Вадима Гетьмана
ЗВІТ
про виконання лабораторної роботи № 6
з предмету: «Основи інформатики»
на тему: Опис і реалізація найпростіших циклічних програм.
РОБОТУ ВИКОНАВ
Студент групи № 1__
______________________
РОБОТУ ПРИЙНЯВ
Викладач
|
Мета: навчитися складати і реалізовувати циклічні програми. Хід роботи.
Задача 1. Скласти програму знаходження факторіала числа п. п!=1*2*3*…*п Напишіть код програми: program n1; var s,k,n,m:real; begin m:=1; s:=1; writeln('enter n'); readln(n); while k<n do begin m:=k; k:=m+1; s:=s*k; end; writeln('n! is ',s:0:1); end.
Задача 2. Знайти суму цілих чисел що належать проміжку від 20 до 100 включно. Напишіть код програми: program lab2; var a,b,c:integer; begin c:=20; a:=20; while a<100 do |
|||||||||
|
Лабораторна робота № 6 |
|||||||||
|
зм |
Лист |
№ докум. |
Підпис |
Дата |
|||||
|
Розробив |
«Опис і реалізація найпростіших циклічних програм» |
Літ. |
Лист |
Листів |
|||||
|
Перевірив |
2 |
4 |
|||||||
|
1__ група |
|||||||||
|
Н. |
|||||||||
|
Утв. |
|||||||||
|
begin b:=a; a:=b+1; c:=c+a; end; writeln('sum is',c); end._________________________________________________
Задача 3. Знайти суму членів ряду: S=1+a+a2+a3+…+an, при n=5, a=0,7 Напишіть код програми: program lab3; var a:real; begin a:=(1-exp(ln(0.7)*5))*0.3; writeln('sum is',a:12:8); end.
Я завершив роботу з середовищем програмування. |
|||||||||
|
Лабораторна робота № 6 |
Арк |
||||||||
|
3 |
|||||||||
|
Зм |
Арк. |
№ докум. |
Підпис |
Дата |
|||||
|
Контрольні запитання.
While <умова>do <вираз>.Поки умова є TRUE вираз повторюеться.
Repeat <вираз>until<умова>.Виконує вираз поки умова є FALSE.
Вони є майже однаковими , але у передумові для повторення вираз повинен бути TRUE , а у післяумові FALSE. BIACH!!!!! |
|||||||||
|
Лабораторна робота № 6 |
Арк |
||||||||
|
4 |
|||||||||
|
Зм |
Арк. |
№ докум. |
Підпис |
Дата |