Pascal: Проверь себя (решенные задачи, условный оператор if)

Решенные задачи в Паскаль: условный оператор

Рассмотрите и решите примеры программ в паскаль, в которых использован условный оператор

If 1: Даны три числа. Найти сумму двух наибольших из них.

Проверить:

1
2
3
4
5
6
7
8
var
  a, b, c:integer;
  begin
  readln(a,b,c);
    if (a>b) and (b>c) then writeln( a+b);
    if (a>b) and (b<c) then writeln(a+c);
    if (a<b) and (c>a) then writeln(c+b);
  end.

If 2: Написать программу, которая вводит три целых числа в переменные a, b и c, а потом сортирует их так, чтобы в переменной a оказалось наименьшее число, в переменной b – среднее число, а в переменной c – наибольшее число. (Использовать только условный оператор)

Проверить:

1
2
3
4
5
6
7
8
var a, b, c, x: integer;
begin
  read(a, b, c);
  if a > b then begin x:=a; a:=b; b:=x; end; 
  if b > c then begin x:=b; b:=c; c:=x; end; 
  if a > b then begin x:=a; a:=b; b:=x; end; 
  write(a,b,c);
end.

If 3: Написать программу, которая вводит три целых числа в переменные a, b и c и находит из них минимальное.

 
Проверить:

1
2
3
4
5
6
7
var a,b,c:integer;
begin writeln('input a,b,c');
      readln(a,b,c);
      if b<a then a:=b;
      if c<a then a:=c;
      writeln('min=',a);
end.

If 4: Даны три числа. Найти сумму двух наибольших из них.

* Из задачника М. Э. Абрамян (If15)

Проверить:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  A, B, C: Real;
begin
  Write('Введите первое число: ');
  Readln (A);
 
  Write('Введите второе число: ');
  Readln (B);
 
  Write('Введите третье число: ');
  Readln (C);
 
  if (A<=B) and (A<=C) then Writeln(B+C)
  else if (B<=A) and (B<=C) then Writeln(A+C)
  else if (C<=A) and (C<=B) then Writeln(A+B);
 
end.

If 5: Даны координаты точки, не лежащей на координатных осях OX и OY. Определить номер координатной четверти, в которой находится данная точка.

* Из задачника М. Э. Абрамян (If22)

Проверить:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  X,Y: Real;
begin
  Writeln('Введите координаты точки: ');
  Write('Введите координату X: ');
  Readln (X);
  Write('Введите координату Y: ');
  Readln (Y);
 
  if (X>0) and (Y>0) then Writeln('Точка лежит в I координатной четверти');
  if (X<0) and (Y>0) then Writeln('Точка лежит во II координатной четверти');
  if (X<0) and (Y<0) then Writeln('Точка лежит в III координатной четверти');
  if (X>0) and (Y<0) then Writeln('Точка лежит в IV координатной четверти');
end.

If 6: Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения:
примеры программ на паскале: условный оператор

* Из задачника М. Э. Абрамян (If26)

Проверить:

1
2
3
4
5
6
7
8
9
var
  X: Real;
begin
  Write('Введите X: ');
  Readln (X);
  if X<=0  then Writeln('F(x)=',(-1)*x);
  if (0<x) and (x<2) then Writeln('F(x)=',Sqr(x));
  if x>=2 then Writeln('F(x)=',4);
end.

Case 1:
Даны два целых числа: D (день) и M (месяц), определяющие правильную дату невисокосного года. Вывести значения D и M для даты, предшествующей указанной

* Из задачника М. Э. Абрамян (case8)

Проверить:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  D,M:Integer;
begin
  Write('Введите день: ');
  Readln(D);
  Write('Введите номер месяца: ');
  Readln(M);
 
  D:=D-1;
  if D=0 then
  begin
   M:=M-1;
   if M=0 then M:=12;
 
   Case M of
    1,3,5,7,8,10,12 : D:=31;
    4,6,9,11 : D:=30;
    2 : D:=28;
   end;
  end;
  Writeln ('Предыдущая дата: ',D,'.',M);
end.
Поделитесь уроком с коллегами и друзьями:

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*
*

Вставить формулу как
Блок
Строка
Дополнительные настройки
Цвет формулы
Цвет текста
#333333
Используйте LaTeX для набора формулы
Предпросмотр
\({}\)
Формула не набрана
Вставить