Важная информация
Показано с 1 по 4 из 4

Тема: Цикл

  1. #1 Цикл 
    Новичок
    Регистрация
    07.11.2016
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Заданы размеры прямоугольного отверстия А,В и размеры кирпича X,Y,Z. Определить,пройдет ли кирпич в отверстие .Замечание: задачу решать в предложении,что А>B, X>Y>Z.
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    причем тут цикл? решение задачи: если А>Y и B>Z то кирпич пройдёт в отверстие.
    Pascal Code:
    1. var  A, B, X, Y,Z : integer; //размеры в милиметрах
    2.   label l1;
    3. begin
    4.   l1:
    5.   write('Введите размер отверстия А:');
    6.   readln(A);
    7.   repeat
    8.   write('Введите размер отверстия B (B<A):');
    9.   readln(B);
    10.   until  B<A;
    11.   write('Введите размер кирпича X:');
    12.   readln(X);
    13.   repeat
    14.   write('Введите размер кирпича Y (Y<X):');
    15.   readln(Y);
    16.   until  Y<X;
    17.   repeat
    18.   write('Введите размер кирпича Z (Z<Y):');
    19.   readln(Z);
    20.   until  Z<Y;
    21.   if (Y<A) and (Z<B) Then writeln('Кирпич проходит в отверстие')
    22.   else
    23.     begin
    24.       writeln('Кирпич НЕ проходит в отверстие');
    25.       goto l1;
    26.     end;
    27.   readln;
    28. end.
    Последний раз редактировалось nik_1; 07.11.2016 в 20:16.
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    >Quiet Snow< (09.11.2016)

  4. #3  
    Новичок
    Регистрация
    07.11.2016
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от nik_1 Посмотреть сообщение
    причем тут цикл? решение задачи: если А>Y и B>Z то кирпич пройдёт в отверстие.
    должен получится циклический алгоритм
    Ответить с цитированием  
     

  5. #4  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    цикл организованный с помощью метки подойдет?
    решение задачи: если А>Y и B>Z то кирпич пройдёт в отверстие.

    Pascal Code:
    1. var  A, B, X, Y,Z : integer; //размеры в милиметрах
    2.   label l1;
    3. begin
    4.   l1:
    5.   write('Введите размер отверстия А:');
    6.   readln(A);
    7.   repeat
    8.   write('Введите размер отверстия B (B<A):');
    9.   readln(B);
    10.   until  B<A;
    11.   write('Введите размер кирпича X:');
    12.   readln(X);
    13.   repeat
    14.   write('Введите размер кирпича Y (Y<X):');
    15.   readln(Y);
    16.   until  Y<X;
    17.   repeat
    18.   write('Введите размер кирпича Z (Z<Y):');
    19.   readln(Z);
    20.   until  Z<Y;
    21.   if (Y<A) and (Z<B) Then writeln('Кирпич проходит в отверстие')
    22.   else
    23.     begin
    24.       writeln('Кирпич НЕ проходит в отверстие');
    25.       goto l1;
    26.     end;
    27.   readln;
    28. end.
    Последний раз редактировалось nik_1; 07.11.2016 в 20:18.
    Ответить с цитированием  
     

  6. 2 пользователя(ей) сказали cпасибо:

    >Quiet Snow< (09.11.2016), Free Admin (09.11.2016)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Цикл с предусловием Pascal
    от Артём Седляр в разделе Turbo Pascal
    Ответов: 1
    Последнее сообщение: 02.05.2016, 19:54
  2. Ответов: 1
    Последнее сообщение: 15.04.2015, 08:07
  3. цикл в цикле
    от 123456789igor в разделе Delphi
    Ответов: 8
    Последнее сообщение: 23.09.2012, 06:08
  4. excel в delphi цикл по строкам
    от 123456789igor в разделе Delphi
    Ответов: 4
    Последнее сообщение: 11.09.2012, 22:40
  5. Ответов: 4
    Последнее сообщение: 29.02.2012, 00:59
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •