Оператор IF. Сравнение чисел

Оператор IF. Сравнение чисел

Начнем с того,что существует две формы оператора if : полная и неполная.Полная содержит в себе действия, происходящие в результате выполнения условия и действия,в результате невыполнения условия. Неполная же предназначена только для действий,выполняющихся в результате успешного выполнения условия.

Рассмотрим форматы записи полной и неполной формы оператора if

if <условие> then <оператор-да> else <оператор-нет> - полная
if <условие> then <оператор-да> - неполная

Теперь рассмотрим, что можно писать вместо , и
<условие> - любое условие,например x>3 или y<z ,или x=10 и т.д.
<оператор-да> -  любое действие,например x:=x+1,y=1-y,z:=x-y и т.м.
<оператор-нет>- аналогично полю <оператор-да>

А теперь как это все будет выглядеть в Паскале
if x>3 then y:=x+2 else y:=x-2;
if y>x then x:=(x*y-2)(x-y) else y:=x*x-5x;

Внимание! Перед else нельзя ставить точку с запятой!

Решим простую задачу на использование if
Дано 10 чисел . Найти сумму всех чисел ,больше пяти, и произведение всех чисел, меньше 1
Для решения такой задачи необходимо использовать массивы. Вот как будет выглядеть полный код задачи

var
  x, y, i: integer;
  s: array [1..10] of integer;

begin
  writeln('Введите 10 чисел через запятую и нажмите Enter');
  x := 0;
  y := 1;
  for i := 1 to 10 do
  begin
    read(s[i]);
    if s[i] > 5 then x := x + s[i];
    if s[i] < 1 then y := y * s[i];
  end;
  writeln('Сумма чисел,больших 5 = ', x);
  writeln('Произведение чисел,меньших 1 = ', y);
  readln;
end.
Понравилась новость? Добавь в закладки!
Хочешь получать свежие новости? Подпишись на обновления с сайта!
Рекомендуем посмотреть:
#1 | написал: Елена | 23 октября 2012 01:54 | ICQ: |

Группа: Гости
Публикаций: 0
Комментариев: 0

Program1.pas(1) : Ожидалось question  

 почему когда запустила вашу программу вышло такое сообщение. У меня ABC Pascal


#2 | написал: Mr.Cheater | 23 октября 2012 12:44 | ICQ: 360239964 | Пользователь offline

Группа: Администраторы
Публикаций: 33
Комментариев: 68

Елена,

Поправлено

Теперь все работает )

 


#3 | написал: sidrelena | 23 октября 2012 17:39 | ICQ: | Пользователь offline

Группа: Читатели
Публикаций: 0
Комментариев: 6

Доброе время суток! А уменя выдает

 

Program1.pas(9) : Ошибка времени выполнения: Input string was not in a correct format.

 

 Может я что-то не так делаю?


#4 | написал: Mr.Cheater | 23 октября 2012 17:56 | ICQ: 360239964 | Пользователь offline

Группа: Администраторы
Публикаций: 33
Комментариев: 68

sidrelena,обновите страницу браузера

в задаче была ошибка , которую я уже поправил.


#5 | написал: sidrelena | 23 октября 2012 18:39 | ICQ: | Пользователь offline

Группа: Читатели
Публикаций: 0
Комментариев: 6

 if s[i] < 1 then x := x * s[i];

простите. а эта строчка правильная?

 writeln('Произведение чисел,меньших 1', y);

а где же y


#6 | написал: Mr.Cheater | 23 октября 2012 18:51 | ICQ: 360239964 | Пользователь offline

Группа: Администраторы
Публикаций: 33
Комментариев: 68

sidrelena,

извините, у меня сегодня что-то с компьютером

некорректно сохраняет

вместо конечного решения сохранилось промежуточное

попробуйте еще раз


Добавление комментария

Ваше Имя:
Ваш E-Mail:
Полужирный Наклонный текст Подчеркнутый текст Зачеркнутый текст | Выравнивание по левому краю По центру Выравнивание по правому краю | Вставка смайликов Выбор цвета | Скрытый текст Вставка цитаты Вставка исходного кода Преобразовать выбранный текст из транслитерации в кириллицу Вставка спойлера

Введите два слова, показанных на изображении: