Условно Первая встреча сообщества разработчиков PHP в Воронеже. Февраль 2020

17 февраля состоялась встреча участников воронежского телегам-чата https://t.me/php_vrn, на которой Александр Макаров рассказал о готовящемся релизе третьей версии знаменитого php-фреймворка Yii.

Pascal Урок 9 Задача 6 Решение

Урок 9 Задача 6

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

*С использованием логической операции and.
*С вложенными блоками (без and).
*Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

При решении задачи 16 урок 13.1

При решении задачи 16 урок 13.1

Пользователь вводит целое положительное числоN, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:

8 10 3 12 14 3 16 18 3 20 22 3 и т.д.

-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.

pascal Как НЕ НАДО форматировать код. Разбор ошибочных ситуаций с пояснениями

[О том как надо читайте тут]

Рассмотрим ошибочные примеры, поясним почему они неправильны и приведем правильные варианты.

Пример №1

Исходный код (см. оригинал):

begin
  readln(b); 
    if(a>b)then
  writeln(12);
    readln();

Разберем недочеты и исправим по шагам:

Pascal Урок 9 задача 4 Решение

Урок 9 задача 4

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

program U9Z4;
var a,b,c: integer;
begin
  writeln('vedite chislo');
  readln(a);
  writeln('vedite chislo');
  readln(b);
  writeln('vedite chislo');
  readln(c);
  if (a>17)and(b>17)and(c>7)then
    writeln('yes')
  else
    writeln('no');

  readln();
end.                   

Pascal Урок 9 задача 1 Решение

Урок 9 задача 1

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

program U9Z1;
var a,b: integer;
begin
  writeln('vedite chislo');
  readln(a);
  writeln('vedite chislo');
  readln(b);
  if(a>b)then
    writeln(12);
  readln();
end.         

Pascal Урок 9 задача 5 Решение

Урок 9 задача 5

Пользователь вводит два числа, найдите из них максимальное.

program U9Z5;
var a,b: integer;
begin
  writeln('vedite chislo');
  readln(a);
  writeln('vedite chislo');
  readln(b);
  if a>b then
    writeln('Bolshe pervoe chislo ', a)
  else
    writeln('Bolshe vtoroe chislo ', b);

  readln();
end.                 

Pascal Урок 9 задача 3 Решение

Pascal Урок 9 задача 3

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

Pascal Урок 9 задача 2 Решение

Урок 9 задача 1

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

program U9Z2;
var a,b: integer;
begin
  writeln('vedite chislo');
  readln(a);
  writeln('vedite chislo');
  readln(b);
  if(a>b)then
    writeln(12)
  else
    writeln(888);
  readln(); 
end.              

Pascal Урок 11 задача 4

Урок 11 Задача 4:

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Решение:

Pages

Subscribe to fkn+antitotal RSS