Инфа о сайте
Сайты
Форум
KamPol-LUG
Проект
Гостевая
Club music
Баллы
Баннеры
Радио

()                                                   

 

  • Страница 1 из 1
  • 1
Архив - только для чтения
Наш продвинутый форум » Учебный процесс » Уроки информатики в 9-х классах (2 полугодие) » Занятие 4. Составной оператор begin-end (программные скобки)
Занятие 4. Составной оператор begin-end (программные скобки)
prepodДата: Четверг, 24.02.2011, 09:48 | Сообщение # 1
Преподаватель ОИВТ
Группа: Администраторы
Сообщений: 309
Статус: Выкл...
Разберем более подробно применение программных скобок begin-end.
Вспомним пример из прошлого занятия
if X>Y
then begin
Max:=X;
writeln (‘Первое число больше’);
end
else begin
Max:=Y;
writeln (‘Второе число больше’);
end;

Мы знаем, что после служебных слов then else допускается указывать только одну команду. Что же делать, есле нужно выполнить несколько команд? В этом случае команды заключают в скобки - составной оператор begin-end. То, что находится между служебными словами begin-end считаетс одной командой.

Задание на урок

1. Набрать программу, котрая вычисляет площадь прямоугольника или его периметр.
Code
Program PrimerIf;
Var
         a,b,c    :  byte;
           S,Р    :  word;
BEGIN
        writeln (‘Vvedite znachenia storon priamougolnika’);
        readln (a,b);
        writeln (‘1 – ploshad,   2 - perimetr’);
        readln (c);
        if c=1
                then     
                       begin
                    S:=a*b;
                    writeln (‘Ploshad=’ ,S);
                        end        
                else      
                       begin
                    P:=(a+b)*2;
                     writeln (‘Perimetr=’ ,p);
                       end;
END.

2. Переработать программу
Найти радиус круга или длину его окружности
3. Добавить в программу окна (подробности - смотреть в прикрепленном файле)
4. Составить программу, которая в зависимости от заказа пользователя создает окно или в правом нижнем углу экрана, или в левом нижнем углу экрана
Прикрепления: 0894873.odt (29.4 Kb)


Я в джаббере - mukasov@gmail.com
 
Наш продвинутый форум » Учебный процесс » Уроки информатики в 9-х классах (2 полугодие) » Занятие 4. Составной оператор begin-end (программные скобки)
  • Страница 1 из 1
  • 1
Поиск:

  
Copyright KamPol-LUG © 2024 Хостинг от uCoz