Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






ЛАБОРАТОРНА робота № 11






Тема: Складання та реалізація простих циклічних програм. Обчислення сум, добутків, середніх значень наборів чисел

Мета: Вивчити роботу та особливості циклів WHILE-DO, FOR –TO-DO.

Обладнання та програмне забезпечення: комп’ютер IBM РС, ТурбоПаскаль.

Теоретичні відомості

Приклади програм:

приклад 1 ЕОМ запитує пароль, поки не введено правильну

відповідь і тільки тоді починає роботу.

Program parol_1; Var par, vid: string; Begin Par: = ’ЕОМ’; vid: = ‘’; WHILE par < > vid do {умова викон.ц-лу} Begin Write (‘ пароль? ‘); Readln (vid) End; Writeln (‘вірно. Починаю роботу ‘); Readln End.

 

приклад 2 Обчислити суму чисел від 1 до 20. Вивести

на екран числа та їх загальну суму.

Нехай А - змінна, яка буде набувати значень нат. чисел –

1, 2, 3, … 20; S – змінна, в якій буде накопичуватись сума,

тобто до суми будемо додавати змінну А – S: =S+ A цю ко

манду треба виконати 10 разів – для А=1, А=2,... А=20)

Розгляньте 2 способи рішення задачі:

Program suma_1; Var S, A: integer; Begin S: = 0; A: = 1; WHILE A< = 20 DO Begin Write (A); S: = S + A; A: = A + 1 End; Writeln(‘ S від 1 до 20 = ‘, S); Readln END. Program suma_3; Var S, A: integer; Begin S: = 0; FOR A: = 1 TO 20 DO Begin Write (A); S: = S + A End; Writeln(‘S від 1 до 20 = ‘, S); Readln END.

 


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.007 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал