Кабинет Информатики

Вторник, 19.03.2019, 07:04
Меню сайта
Наш опрос
Занимаетесь ли Вы репетиторством?
Всего ответов: 219
Новости...
Конкурсы
Позитивный контент-2017

Победитель Общероссийского рейтинга школьных сайтов
Знак качества Просвещения

Фонд 21 века
Рейтинг образовательных сайтов mega-talant.com
Эволюция - бесплатные конкурсы для педагогов и школьников
Фонд 21 века
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Besucherzahler
счетчик посещений
Среднее и дошкольное образование Центр профессионального роста Содружество

Проголосуй за наш сайт
Каталог webplus.info
Форма входа

Разветвляющиеся алгоритмы

Условный оператор IF

Задача 1. Определить является ли данное целое число R чётным. Дать словесный ответ.

USES Crt;
  VAR  
R: INTEGER;
  BEGIN  
  ClrScr;  
  WriteLn('Введите число'); 
  ReadLn(R);   IF R MOD 2 = 0 Then WriteLn('Число чётное')
                             Else WriteLn('Число не чётное');
END.

Задача 2. Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3]
USES Crt;
  VAR
  X, Y, Z: INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите три целых числа'); 
  ReadLn(X,Y,Z);
  IF (X>=1) AND (X<=3) Then WriteLn('Первое число принадлежит заданному интервалу')
                                         Else WriteLn('Первое число не принадлежит заданному интервалу');
  IF (Y>=1) AND (Y<=3) Then WriteLn('Второе число принадлежит заданному интервалу')
                                         Else WriteLn('Второе число не принадлежит заданному интервалу');
  IF (Z>=1) AND (Z<=3) Then WriteLn('Третье число принадлежит заданному интервалу')
                                         Else WriteLn('Третье число не принадлежит заданному интервалу');
END.

Задача 3. Даны положительные целые числа A, B, C. Выяснить существует ли треугольник с длинами сторон A, B, C.  

USES Crt;
  VAR  
  A, B, C: INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите три числа');
   ReadLn(A,B,C);
  IF (A+B>C) AND (A+C>B) AND (B+C>A) Then WriteLn('Треугольник построить можно')
                                                                           Else WriteLn('Треугольник построить нельзя');
END.

.....................................................................................................................................
Практические задания
.....................................................................................................................................

  1. Заданы два числа X, Y. Меньшее из двух значений заменить на 0. Если же они равны - заменить нулями оба.
  2. Поменять местами значения целых переменных A, B, C таким образом, чтобы оказалось A >= B >= C.
  3. Заданы три числа X, Y, Z. Найти min(XYZ, X+Y+Z).
Поиск
Календарь
«  Март 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031


Социальные сети
Портфолио

Полезные ссылки
  • Учительский портал
  • Педсовет.ORG
  • Дневник.ру
  • ProШколу.ru
  • Pedsovet.su
  • Завуч.инфо
  • Методисты.ру
  • Методсовет
  • УчМет
  • ИнформатикУрок
  • Менеджер образования
  • Сеть творческих учителей
  • Сообщество учителей ИКТ


  • Узнай свой IP адрес
    Перечень олимпиад на 2017-2018 учебный год







    Портал о суевериях, поверьях и приметах народов России