Иллюстрированный самоучитель по Turbo Pascal для начинающих

Решения

• Решения (задачи 1-49)

  Задача 1 | х: real; { аргумент функции } у: real; { значение функции } | Задача 2 | funt: real; { вес в фунтах } | kg: real; { вес в килограммах } | Задача 5 | r1: real; { диаметр кольца } r2: real; { диаметр отверстия } s: real; { площадь кольца } | Задача 7 | CenaTetr: real; {цена тетради } | KolTetr: integer;

• Решения (задачи 51-98)

  Задача 51 | Вычисление площади параллелограмма } var | l,w: real; (длина и ширина параллелограмма} | s: real; { площадь параллелограмма} begin | writeln('Вычисление площади параллелограмма'); | writeln('Введите исходные даные:'); | write('Длина (см.) › '); | readln(1); | write('Ширина (см.) › '); | readln(w);

• Решения (задачи 105-130)

  Задача 105 | (Вычисление суммы ряда 1+1/2+1/3+… } | var | n: integer; { кол-во суммируемых членов ряда } | i:integer; { номер элемента ряда } | elem:real; { значение элемента ряда } | summ:real; { сумма элементов ряда } | begin | writeln('Вычисление частичной суммы ряда 1+1/2+1/3+…');

• Решения (задачи 131-150)

  Задача 131 | (Определение максимального числа последовательности положительных чисел } | var | а: integer; { очередное число } m: integer; { максимальное число } begin | write('Определение максимального числа'); | writeln('последовательности положительных чисел.'); | writeln('Вводите после стрелки числа.

• Решения (задачи 165-188)

  Задача 165 | { Бинарный поиск в упорядоченном массиве } | label | bye; | const | НВ=10; | var | а:array[1..10] of integer; { массив целых } | obr:integer; { образец для поиска } | ok: boolean; { TRUE – массив упорядочен } | sred,verh,niz:integer;

• Решения (задачи 198-216)

  Задача 198 | { Рисует кораблик с использованием метода базовой точки } | uses Graph; | const | { шаг сетки } | dx=5; { по X} | dy=5; (по Y} | grDriver:integer; { драйвер } | grMode:integer; { графический режим } | grPath:string; { место расположения драйвера } | ErrCode:integer; { результат инициализации граф.

• Решения (задачи 217-221)

  Задача 217 | { Движущееся сложное изображение } | uses Graph, Crt; | var | grDriver:integer; { драйвер } grMode:integer; { графический режим } | grPath:string; { место расположения драйвера } | ErrCode:integer; { результат инициализации граф. режима } | х,у:integer; { координаты кораблика } | color:word;

• Решения (задачи 224-241)

  Задача 224 | uses Graph,Crt; | { в графическом режиме вводит с клавиатуры дробное число } Function GetReal: real; var | ch: char; { символ нажатой клавиши } | buf: string[80]; { введенная строка } | numb: real; { введенное число } | code: integer; { код ошибки преобразования строки | в число } begin | buf: = '';