Материалы по программированию - Паскаль (Раздаточный материал - опорный конспект)

Задание:

Пользователь вводит в программу число – номер месяца. Вывести название месяца, количество дней, время года, сообщить? если месяц не является первым в году, сообщить если месяц не является последним в году.

Для вывода названия, количества дней и времени года в алгоритме программы воспользоваться оператором варианта.

Листинг:

program Number_of_month;

var

month : byte;

begin

write('Введите номер месяца: ');

readln(month);

if (month 12) then

writeln('Вы ввели неправильный номер месяца!')

else

begin

write('Название месяца: ');

case month of

1: writeln('Январь');

2: writeln('Февраль');

3: writeln('Март');

4: writeln('Апрель');

5: writeln('Май');

6: writeln('Июнь');

7: writeln('Июль');

8: writeln('Август');

9: writeln('Сентябрь');

10: writeln('Октябрь');

11: writeln('Ноябрь');

12: writeln('Декабрь');

end;

write('Количество дней в месяце: ');

case month of

1, 3, 5, 7, 8, 10, 12: writeln('31');

4, 6, 9, 11: writeln('30');

2: writeln('28 или 29');

end;

write('Время года: ');

case month of

1, 2, 12: writeln('Зима');

3, 4, 5: writeln('Весна');

6, 7, 8: writeln('Лето');

9, 10, 11: writeln('Осень');

end;

if not (month = 1) then writeln('Это не первый месяц в году');

if not (month = 12) then writeln('Это не последний месяц в году');

end;

end.

Тестирование программы:

Введите номер месяца: 9

Название месяца: Сентябрь

Количество дней в месяце: 30

Время года: Осень

Это не первый месяц в году

Это не последний месяц в году

Введите номер месяца: 12

Название месяца: Декабрь

Количество дней в месяце: 31

Время года: Зима

Это не первый месяц в году

Введите номер месяца: 2

Название месяца: Февраль

Количество дней в месяце: 28 или 29

Время года: Зима

Это не первый месяц в году

Это не последний месяц в году

Задание:

Для треугольника ABC пользователь вводит углы. Определить вид (или виды) треугольника (прямоугольный, тупоугольный, остроугольный, равносторонний, равнобедренный, разносторонний). Если введённые углы не составляют треугольник, то необходимо вывести соответствующее сообщение.

Вводные данные: угол ABC, угол BAC, угол CAB

Результирующие данные: «прямоугольный», «тупоугольный», «остроугольный», «равносторонний», «равнобедренный», «разносторонний», «Это не углы одного треугольника».

Листинг:

program triangle_type;

var

ABC, BAC, ACB : real;

triangle : boolean;

equilateral_triangle : boolean;

isosceles_triangle : boolean;

right_triangle : boolean;

oxygon : boolean;

obtuse_triangle : boolean;

scalene_triangle : boolean;

begin

write('угол ABC: '); readln(ABC);

write('угол BAC: '); readln(BAC);

write('угол ACB: '); readln(ACB);

triangle := (ABC + BAC + ACB = 180);

equilateral_triangle := (ABC = 60) and (BAC = 60) and (ACB = 60);

isosceles_triangle := (ABC = BAC) or (BAC = ACB) or (ACB = ABC);

right_triangle := (ABC = 90) or (BAC = 90) or (ACB = 90);

oxygon := (ABC

obtuse_triangle := (ABC 90) or (BAC 90) or (ACB 90);

scalene_triangle := (ABC BAC) and (BAC ACB) and (ACB ABC);

if not triangle then

writeln('Это не углы одного треугольника')

else

begin

writeln('характеристики треугольника:');

(* серия тестов 1 *)

{

if right_triangle then writeln('прямоугольный');

if oxygon then writeln('остроугольный');

if obtuse_triangle then writeln('тупоугольный');

if equilateral_triangle then writeln('равностороний');

if isosceles_triangle then writeln('равнобедренный');

if scalene_triangle then writeln('разносторонний');

}

(* серия тестов 2 *)

if right_triangle then

writeln('прямоугольный')

else if oxygon then

writeln('остроугольный')

else if obtuse_triangle then

writeln('тупоугольный');

if equilateral_triangle then

writeln('равностороний')

else if isosceles_triangle then

writeln('равнобедренный')

else if scalene_triangle then

writeln('разносторонний');

end;

end.

Тестирование программы, серия тестов 1:

угол ABC: 0

угол BAC: 0

угол ACB: 0

Это не углы одного треугольника

угол ABC: 20

угол BAC: 60

угол ACB: 100

характеристики треугольника:

тупоугольный

разносторонний

угол ABC: 60

угол BAC: 60

угол ACB: 60

характеристики треугольника:

остроугольный

равностороний

равнобедренный

Тестирование программы, серия тестов 2:

угол ABC: 90

угол BAC: 30

угол ACB: 60

характеристики треугольника:

прямоугольный

разносторонний

угол ABC: 20

угол BAC: 20

угол ACB: 140

характеристики треугольника:

тупоугольный

равнобедренный

угол ABC: 50

угол BAC: 50

угол ACB: 80

характеристики треугольника:

остроугольный

равнобедренный

Листинг 1. «Квадраты натуральных чисел»

Листинг 2. «Квадраты натуральных чисел в обратном порядке»

Задание:

Задание:

Вывести квадраты первых 10 целых чисел.

Вывести в обратном порядке квадраты первых 10 целых чисел.

Листинг:

Листинг:

program quadro;

var

k : integer;

begin

for k := 1 to 10 do

writeln(k, '^2 = ', sqr(k));

end.

program quadro;

var

k : integer;

begin

for k := 10 downto 1 do

writeln(k, '^2 = ', sqr(k));

end.

Тестирование программы:

Тестирование программы:

1^2 = 1

2^2 = 4

3^2 = 9

4^2 = 16

5^2 = 25

6^2 = 36

7^2 = 49

8^2 = 64

9^2 = 81

10^2 = 100

10^2 = 100

9^2 = 81

8^2 = 64

7^2 = 49

6^2 = 36

5^2 = 25

4^2 = 16

3^2 = 9

2^2 = 4

1^2 = 1

Задание:

В рассказе Гарри Килера «Доллар Джона Джонса» в 1921 году Джон Джонс положил 1 доллар в банк под 3% годовых. Условием вклада было то, что накопившаяся к соответствующему времени сумма достанется 40-му наследнику Джона Джонса. По сюжету рассказа последнее начисление вклада произошло в 2946 году. Чему был равен вклад Джона Джонса за каждый год?

Листинг:

program John_Jones_Dollar;

var

year : integer;

sum : real;

const

rent = 0.03;

year_first = 1922;

year_last = 2946;

begin

sum := 1; {Первоначальный депозит Джона Джонса}

for year := year_first to year_last do

begin

sum := sum *(1 + rent); {Увеличение вклада за текущий год}

writeln('Год: ', year, ' Сумма: ', sum:1:2)

end;

end.

Тестирование программы (представлены выборочные результаты):

Год: 1922 Сумма: 1.03

Год: 1923 Сумма: 1.06

Год: 1924 Сумма: 1.09

Год: 1925 Сумма: 1.13

Год: 1926 Сумма: 1.16

Год: 1927 Сумма: 1.19

Год: 1928 Сумма: 1.23

Год: 1929 Сумма: 1.27

Год: 1930 Сумма: 1.30

Год: 1931 Сумма: 1.34

…

Год: 2021 Сумма: 19.22

…

Год: 2121 Сумма: 369.36

…

Год: 2221 Сумма: 7098.51

…

Год: 2299 Сумма: 71198.52

…

Год: 2321 Сумма: 136423.72

…

Год: 2421 Сумма: 2621877.23

…

Год: 2521 Сумма: 50388893.66

…

Год: 2621 Сумма: 968405603.23

…

Год: 2721 Сумма: 18611430896.67

…

Год: 2807 Сумма: 236472742848.08

…

Год: 2821 Сумма: 357686241040.31

…

Год: 2921 Сумма: 6874240231169.63

…

Год: 2937 Сумма: 11031137562869.84

Год: 2938 Сумма: 11362071689755.93

Год: 2939 Сумма: 11702933840448.61

Год: 2940 Сумма: 12054021855662.07

Год: 2941 Сумма: 12415642511331.93

Год: 2942 Сумма: 12788111786671.89

Год: 2943 Сумма: 13171755140272.05

Год: 2944 Сумма: 13566907794480.21

Год: 2945 Сумма: 13973915028314.62

Год: 2946 Сумма: 14393132479164.05

В рассказе: ≈ $19.10

В рассказе: ≈ $346

В рассказе: ≈ $6920

В рассказе: ≈ $68900

В рассказе: ≈ $132000

В рассказе: ≈ $2520000

В рассказе: ≈ $47900000

В рассказе: ≈ $912000000

В рассказе: ≈ $17400000000

В рассказе: ≈ $219000000000

В рассказе: ≈ $332000000000

В рассказе: ≈ $6310000000000

Задание:

Вывести все тройки целых чисел, для которых верно равенство: a² + b² = c².

Числа a, b и c брать в пределах от 1 до 100.

Листинг:

Первоначальный вариант

Оптимизированный вариант

program Pythagorean_triples;

var

a, b, c, S, v : integer;

begin

S := 0; {Пока что найдено 0 троек}

v := 0; {Пока что проверено 0 вариантов}

for c := 1 to 100 do

for b := 1 to 100 do

for a := 1 to 100 do

begin

inc(v);

if sqr(a) + sqr(b) = sqr(c) then

begin

writeln(a, ' ', b, ' ', c);

s := s + 1;

end;

end;

writeln('Нашли ', S, ' пифагоровых троек');

writeln('При этом рассмотрено', v, ' вариантов');

end.

program Pythagorean_triples;

var

a, b, c, S, v : integer;

begin

S := 0; {Пока что найдено 0 троек}

v := 0; {Пока что проверено 0 вариантов}

for c := 3 to 100 do

for b := 2 to c - 1 do

for a := 1 to b - 1 do

begin

inc(v);

if sqr(a) + sqr(b) = sqr(c) then

begin

writeln(a, ' ', b, ' ', c);

s := s + 1;

end;

end;

writeln('Нашли ', S, ' пифагоровых троек');

writeln('При этом рассмотрено', v, ' вариантов');

end.

Тестирование программы (выборочные результаты):

4 3 5

3 4 5

8 6 10

6 8 10

12 5 13

5 12 13

…

84 35 91

35 84 91

76 57 95

57 76 95

72 65 97

65 72 97

96 28 100

80 60 100

60 80 100

28 96 100

Нашли 104 пифагоровых троек

При этом рассмотрено 1000000 вариантов

3 4 5

6 8 10

5 12 13

9 12 15

8 15 17

12 16 20

…

36 77 85

13 84 85

60 63 87

39 80 89

54 72 90

35 84 91

57 76 95

65 72 97

60 80 100

28 96 100

Нашли 52 пифагоровых троек

При этом рассмотрено 161700 вариантов