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

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

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

Begin 1: Найти расстояние между двумя точками с заданными координатами
(x1, y1) и (x2, y2) на плоскости. Расстояние вычисляется по формуле:

\[ \sqrt {(x2 — x1)^2+(y2 — y1)^2} \]

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

Begin 2: Дан размер файла в байтах. Используя операцию деления нацело,
найти количество полных килобайтов, которые занимает данный файл.

(1 килобайт = 1024 байта)
* Из задачника М. Э. Абрамян (Integer3)

Begin 3: Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). Для нахождения десятков использовать операцию деления нацело (div), для нахождения единиц — операцию взятия остатка от деления (mod).

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

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)



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

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



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 для набора формулы
Предпросмотр
\({}\)
Формула не набрана
Вставить