Глава 2. Решения

Задача 1 х: real; { аргумент функции } у: real; { значение функции }...

Задача 5 rl: real; { диаметр кольца } r2: real; { диаметр отверстия } s: real; { площадь кольца }...

п:=п+1;...

у:=-2.7*х*х*х+0.23*х*х-1.4;...

kg:=gunt*0.4095; Задача 34 sum:=ct*nt+ck*nk+cl;{ct,ck —цена тетради, карандаша и линейки } { nt, nk —количество тетрадей и карандашей} Задача 38 begin writeln('Унылая пора! Очей очарованье!'); wri...

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

{ Вычисление стоимости поездки на дачу и обратно } var rast: real; { расстояние до дачи } rash: real; { расход бензина на 100 км пути } cena: real; { цена одного литра бензина } summ: real; { стои...

{ Проверка знания истории } var year: integer; { ответ испытуемого } begin ' writeln('В каком году был основан Санкт-Петербург?'); writeln('Введите число и нажмите Enter'); write('-'); readln(year...

{ Сравнение двух целых чисел } var a,b: integer; ( сравниваемые числа } begin write('Введите в одной строке два целых '); writeln('числа и нажмите Enter'); write('-'); Часть II. Решения 87 readln(...

( Вычисление суммы ряда 1+1/2+1/3+ ... } var n: integer; { кол-во суммируемых членов ряда } i:integer; { номер элемента ряда } elem:real; { значение элемента ряда } summ:real; { сумма элементов ря...

{ Таблица функции } const LB=-2; { нижняя граница диапазона изменения аргумента } НВ=2; { верхняя граница диапазона изменения аргумента } DX=0.5; { приращение аргумента } var х,у: real; { аргумент...

{ Вычисляет среднее арифметическое последовательности дробных чисел, вводимой с клавиатуры } const L=5; { длина последовательности } var a: real; { число } n: integer; { кол-во введенных чисел } s...

{ Вычисляет среднее арифметическое и определяет минимальное и максимальное число последовательности дробных чисел, вводимых с клавиатуры } var a: real; { очередное число } n: integer; { количество...

( Генерирует три последовательности случайных чисел и вычисляет среднее арифметическое каждой последовательности } const N=3; { кол-во последовательностей } L=10; { длина последовательности ) var...

( Таблица функции у»|х| } const LB=-4; { нижняя граница диапазона изменения аргумента } НВ=4; ( верхняя граница диапазона изменения аргумента } DX=0.5; { приращение аргумента } var х,у: real; { ар...

{ Вьшодит таблицу умножения на 7 } var m: integer; { число, для которого надо вывести таблицу умножения (множимое) } n: integer; { множитель } р: integer; { произведение } begin m:=7; for n:=l to...

{ Выводит на экран квадрат Пифагора - таблицу умножения. } var i,j: integer; { номер строки и столбца таблицы } р: integer; { произведение i на j } begin write('':4); { левая верхняя клетка таблиц...

{ Вычисление суммы ряда 1 -1/3 + 1/5 - 1/7 + ... } var х: real; { член ряда } n: integer; { количество суммируемых членов } summ: real; { частичная сумма } i: integer; { счетчик циклов } begin wri...

{ Приближенное вычисление интеграла методом прямоугольников } var a,b: real; { границы отрезка } dx: real; ( приращение аргумента (величина интервалreal; { приближенное значение интеграла} n: inte...

{ Приближенное var a,b: real; dx: real; s: real; n: integer; x: real; yl,y2: real; i: integer; вычисление интеграла методом трапеций } { границы отрезка } { приращение аргумента (величина интервал...

{ Преобразование десятичного числа в двоичное } var dec: integer; { десятичное число } v: integer; { вес формируемого разряда } i: integer; { номер формируемого разряда } begin writeln('Преобразов...

( Программа проверяет знание таблицы умножения } uses Crt; var numbl, пштЬ2:integer; { Первое и* второе число } res:integer; ( Результат умножения первого числа на второе } otv:integer; { Ответ ис...

{ Проверка умения складывать и вычитать числа. } uses Crt; var numbl,numb2:integer; { числа } op:integer; { Действие над числами 0 - сложение, 1 - вычитание } sop: char; { знак операции - плюс или...

{ Простые электронные часы } uses Crt; { используем процедуры и функции библиотеки Crt } var min,sec: integer; { минуты, секунды } begin ClrScr; { очистить экран } for min:=l to 3 do begin for sec...

{ Вычисление среднего арифметического последовательности положительных чисел } var а : integer; { число, введенное с клавиатуры } n : integer; { количество чисел } s : integer; { сумма чисел } m :...

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

{ Проверка, является ли введенное с клавиатуры целое число простым } program prost; var n: integer; d: integer; r: integer; begin write('Введите целое число- '); readln(n); d:=2; { сначала будем д...

{ Игра Угадай число } const NPOP=5; { количество попыток, предоставляемое игроку } var comp: integer; { число, задуманное компьютером } igrok: integer; { вариант игрока } n: integer; { кол-во попы...

{ Таймер ) uses Crt; var . mm, sec: integer; { задержка: минут и секунд } begin writeln('Введите величину задержки в минутах и секундах,'); writeln('например 2 30 и нажмите Enter.'); write('-'); r...

{ вычисляемое значение ПИ } { точность вычисления } { номер члена ряда } { значение члена ряда } { Вычисление числа ПИ var p:real; t:real; n:integer; elemrreal; begin p:=0; n:=l; elem:=l; { началь...

{ Вычисление наибольшего общего делителя двух целых чисел } var nl,n2:integer; { числа, НОД которых надо найти } nod:integer; { наибольший обший делитель } г:integer; { остаток от деления nl на п2...

{ Приветствие } var name: string[40]; { имя пользователя } begin writelnC Как Вас зовут?'); writeln('(введите свое имя и нажмите Enter'); write('-'); readln(name); writeln('Здравствуйте, ',name,'!...

{ Посимвольный вывод сообщения ) uses Crt; { для доступа к процедуре Delay } var msg: string[80]; ( сообщение } n: integer; ( номер выводимого символа } begin msg:='Приветствую великого программис...

{ Выводит код введенного символа } var sim: char; { символ } code: integer; ( код символа } begin writeln('Введите символ и нажмите Enter.'); writeln('Для завершения работы программы введите точку...

{ Вывод таблицы кодировки символов } var ch:char; { символ } dec:integer; { десятичный код символа } i,j:integer; 114 in dec:=O; for i:=0 to 15 do ( шестнадцать строк } begin ' dec:=i; { чтобы пол...

var st: string[80]; { строка текста } len: integer; { длина строки } i: integer; { номер обрабатываемого символа ) begin writeln('Введите строку текста и нажмите Enter'); write('-'); readln(st); l...

{ Удаление начальных пробелов строки } var st:string[80]; { строка } begin writeln('Удаление начальных пробелов строки.1); write('Введите строку:'); readln(st); while (post1 ',st) = 1) and (length...

( Проверка, является ли введенная с клавиатуры строка целым числом } var st: string[40]; { строка } n: integer; { номер проверяемого символа } begin writeln('Введите число и нажмите Enter'); write...

{ проверяет, является ли введенная строка шестнаддатеричным числом } var st: string[20]; { строка } i: integer; { номер проверяемого символа } error: boolean; { в строке есть неверный символ } beg...

{ Программа преобразует введенное с клавиатуры двоичное восьмиразрядное число в десятичное } var bin: string[8]; { изображение двоичного числа } : integer; { десятичное число } г: string[1]; { i-й...

var st: string[2]; { шестнадцатеричное число } d: integer; { десятичное число, соответствующее введенному шестнадцатеричному } v: integer; { вес разряда шестнадцатеричного числа } 1: integer; begi...

{ Программа преобразует десятичное число в число в указанной пользователем системе счисления (от 2-х до 10-ти) ) uses Crt; о:integer; n:integer; г:integer; s:string[16] { Основание системы счислен...

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

{ Вычисление суммы элементов массива (по столбцам) const ROW=3; { кол-во строк } COL=5; { кол-во столбцов } var a: array[1..ROW,1..COL] of integer; { массив } s: array[1..COL] of integer; { сумма...

{ вычисление определителя матрицы второго порядка } var a: array[1..2,1..2] of real; det: real; { определитель (детерминант) } i,j: integer; { индексы массива } begin writeln('Введите матрицу втор...

{ Проверяет, является ли матрица магическим квадратом } const МАХ=5; { максимальный размер матрицы } array[1..МАХ,1..MAX] of integer; { матрица } n: integer; { размер проверяемой матрицы } ok:bool...

{ Подводит итоги Олимпийских игр } const N=10; {количество стран-участниц } strana: array[1..N] of string[9]=('Австрия','Германия', 'Канада','Китай','Корея','Норвегия','Россия', 'США','Финляндия'a...

f Подводит итоги Олимпийских игр } const N=10; (количество стран-участниц } strana: array[1..N] of string[9]=('Австрия','Германия', 'Канада','Китай','Корея','Норвегия','Россия', 'США','Финляндия'a...

( Игра Угадай число } const N=3; { уровень сложности - количество цифр в числ igrok: array[1..N]of char; { комбинация игрока } comp: array[1..N]of char; { комбинация компьютера } a:- arrayfl..N] o...

{ Телеграф - передача сообщений при помощи азбуки Морзе. { Замечание: возможно надо увеличить величины задержек. } uses Crt; const morse: array[128..159] of string[4] =( I I _ / I 1 f I I I I _ f...

{ Функция max возвращает максимальное из двух чисел function max(a,b: integer): integer; begin if a b then max:=a else max:=b; end;...

{ Возвращает результат сравнения чисел в виде символа отношения } function Compare(a,b: real): char; begin if a b then Compare:='' else if a b then Compare:='• else Compare:='='; end; xl,x2: real;...

{ Вычисляет сопротивление электрической цепи } function Sopr(rl,r2: real; t: integer): real; ( rl,r2 - величины сопротивлений t - тип соединения: 1 - последовательное; 2 - параллельное. Если тип с...

{ Вычисление степени числа с использованием свойств логарифмов } function InStep(a,b:real):real; begin ( А в сепени В равно С Логарифмируем обе части равенства и получаем: В*In (A) = In (С) Нас ин...

{ Проверяет, является ли символ гласной буквой } Function Glasn(sim:char): boolean; const { гласные буквы } ListOfGlasn:string ='АаЕеИиОоУуЫыЭэЮюЯя'; var p: byte; { позиция проверяемого символа в...

{ Удаляет из строки начальные пробелы } function LTrim(st: string): string; begin while (posC \st) = 1) and (length (st) 0) do delete(st,1,1); LTrim:=st; end; { проверка работы функции LTrim} var...

{ Преобразование строчных букв в прописные } ( Замещает стандартную процедуру UpCase} function UpCase(st:string): string; var i:integer; begin for i:=0 to Length(st) do { символы нумеруются с нуля...

{ Решение квадратного уравнения } function KvadrUr(a,b,c: real; var xl,x2: real): integer; { a,b,c - коэффициенты уравнения } { xl,x2 - корни уравнения } ( значение функции - количество корней или...

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

{ Выводит узор из 100 произвольно размещенных окружностей произвольного радиуса и цвета } Uses Graph; var grDriver:integer; grMode:integer; grPath:string; ErrCode:integer; x,y,r: integer; { коорди...

{ Выводит узор из 200 случайно размещенных линий разного цвета } Uses Graph; var grDriver:integer; grMode:integer; grPath:string; ErrCode:integer; x,y: integer; { координаты конца линии } i: integ...

{ Рисует контур пятиконечной звезды } uses Graph; el bye; var r: integer; { радиус звезды ) хО,уО: integer; { координаты центра звезды } х,у: integer; a: integer; i: integer; { координаты конца лу...

( Рисует пятиконечную звезду } uses Graph; label bye; const k=0.01745; { коэф. пересчета величины угла из градусов в радианы к=2*р/360, где р - число ПИ } г: integer; { радиус звезды } x0,y0: inte...

( Рисует веселую рожицу желтого цвета } uses Graph; var grDriver:integer grMode:integer; grPath:string; ErrCode:integer; { драйвер } { графический режим } { место расположения драйвера } { результ...

{ Выводит узор из концентрических окружностей разного цвета Uses Graph; var grDriver:integer; grMode:integer; grPath:string; ErrCode:integer; x,y,r: integer; { координаты центра и радиус окружност...

{ Вычерчивает узор из квадратов Uses Graph; var grDriver:integer; grMode:integer; grPath:string; ErrCode:integer; x,y: integer; { коорд. левого верхнего угла квадрата } d: integer; { длина с ;торо...

{ рисует на экране шахматную доску } uses Graph; var хО,уО: integer; { координаты левого верхнего угла доски } х,у: integer; { координаты левого верхнего угла клетки } w: integer; { размер клетки...

{ Выводит на экран паровоз } uses Graph; grDriver: Integer; grMode: Integer; ErrCode: Integer; res: integer; ,уО: integer; { координаты базовой точки паровоза } dx,dy: integer; { шаг координатной...

{ Координатные оси и оцифрованная сетка } program grid; uses Graph; var xO,yO:integer; { координаты начала координатных осей } dx,dy:integer; { шаг координатной сетки (в пикселах) ) h,w:integer; {...

Uses Graph; var x,dx: real; xl,x2: real; y: real; mx,my: integer; { аргумент и его приращение } ( диапазон изменения аргумента } { значение функции } { масштаб по X и Y - кол-во точек экрана, соот...

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

{ Обрабатывает результаты контрольной работы и отражает их в виде диаграммы } uses Crt, Graph; ( возвращает изображение дробного числа} function RealToStr(r: real; n,m: integer): string; var st: s...

{ Светофор } uses Graph, Crt; grDriver: Integer; grMode: Integer; ErrCode: Integer; res: integer; i,j: integer; { счетчики циклов } { Рисует круг заданного цвета} { х,у,г - координаты центра и рад...

uses Graph,Crt; { в графическом режиме вводит с клавиатуры дробное число } Function GetReal: real; var ch: char; { символ нажатой клавиши } buf: string[80]; { введенная строка } numb: real; { введ...

{ Создает на диске А: файл и записывает в него 5 целых чисел, введенных пользователем } var f: text; { текстовый файл } n: integer; { число } i: integer; { счетчик чисел } begin writeln('Создание...

Дописывает в файл a:\numbers.txt пять введенных пользователем целых чисел } f: text; { текстовый файл } n: integer; { число } i: integer; { счетчик чисел } begin writeln('Добавление в файл a:\numb...

{ Выводит на экран содержимое файла а:\numbers.txt } var f: text; { текстовый файл } n: integer; { число } begin writeln('Содержимое файла a:\nunibers.txt1); writeln ('----------------------------...

( Вычисляет среднее арифметическое чисел, находящихся в файле a:\numbers.txt } var f: text; { текстовый файл } n: integer; { число, прочитанное из файла } kol: integer; { кол-во прочитанных чисел...

{ Выводит на экран содержимое файла, имя которого указано пользователем } uses Crt; f: text; { текстовый файл } fname: string[80]; ( имя файла } st: string; { строка, прочитанная из файла } 'nst:...

{ Дописывает в файл а:\phone.txt фамилию, имя и номер телефона. Если файла на диске нет, то создает его. } label bye; var f: text; { текстовый файл } fam: string[15]; { фамилия } name: string[15];...

{ Поиск в телефонном справочнике } label bye; var f: text; { текстовый файл } obr: string[15]; { фамилия для поиска } n: integer; { кол-во записей, удовлетворяющих запросу } fam: string[15]; { фам...

{ Универсальная программа тестирования } uses Crt; label bye; fname: string[40]; { имя файла теста } f: text; ( файл теста } VsegoVopr: integer; { количество вопросов теста } PravOtv: integer; { к...

Выводит таблицу пересчета из дюймов в миллиметры на экран, принтер или в файл f:text; { файл вывода } fname:string; { имя файла вывода } dest:integer; { 1 - на экран, 2 - на принтер, 3 - в файл }...

{ Рекурсивная функция Факториал } function factorial(k:integer):integer; begin if к = 1 then factorial:=1 else factorials k*factorial (k-1) ; end; var n: integer; { число, факториал которого надо...

{ Выводит на экран узор } Uses Graph,Crt; { Рисует элемент узора } procedure Elem(x,у,r,p: integer); { x,y,г - координаты и радиус центра основного элемента узора р - порядок узора } begin if p=0...

( Вычерчивает схему сложной электрической цепи. } { При вычерчивании схемы цепи используется рекурсия.} Uses Graph; const { шаг сетки } dx=7; dy=7; river:integer; grMode:integer; grPath:string; Er...

{ Демонстрация понятия рекурсия. Программа строит кривую Гильберта. } uses Graph, Crt; u: integer; { Длина штриха кривой Гильберта } ( Заменяет стандартную процедуру для вычерчивания по точкам гор...

{ Программа строит кривую Серпинского.} uses Graph, Crt; var u: integer; Длина штриха } { LineTo - вычерчивает по точкам линию из те* точки в заданную. Заменяет стандартную процедуру LineTo для то...