Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Теоретичні відомості. Тема: Розв’язування задач, що потребують комбінування циклічних операторів з операторами розгалуження
|
|
ЛАБОРАТОРНА робота № 12
Тема: Розв’язування задач, що потребують комбінування циклічних операторів з операторами розгалуження
Мета: Повторити розгалужені та циклічні алгоритми, навчитися застосовувати їх в
діалогових програмах. Навчитися складати блок-схеми до комбінованих алгоритмів
Обладнання та програмне забезпечення: комп’ютер IBM РС, ТурбоПаскаль.
Теоретичні відомості
program ugadayka;
uses crt;
var ch, vid, n: integer;
begin
randomize;
ch: =random(100);
 vid: =-1;
clrscr;
writeln(' Відгадай число від 0 до 100! ');
while ch< > vid do
begin
write('назви число ');
readln(vid);
n: =n+1;
if vid> ch
then writeln('багато ')
else if vid< ch then writeln(' мало ');
end;
writeln('молодець! Вгадав за ', n, ' спроб ');
readln;
end.
| program bashe;
uses crt;
var P, K, X: integer;
begin
clrscr;
P: =15;
 writeln('ЕОМ робить перший хiд -');
writeln(' беру 2 предмета. Залишилось 13 ');
P: =P-2;
while P> 4 do
begin
write('Ваш хiд: скiльки берете? ');
readln(K); P: =P-K;
writeln('залишилось ', P, ' предметiв');
X: =4-K; P: =P-X;
writeln('Хiд ЕОМ - беру ', X, ' залиш.', P);
end;
writeln('У Вас останнiй хiд: скiльки берете? ');
readln(K);
writeln('Ура!!! ЕОМ виграла!!! ');
readln
end.
|