Turbo Pascal – сборник задач c решениями: Сопровождение курса лекций / Авт.- сост. Е. Г. Квашнин; Институт повышения квалификации и переподготовки работников образования Курганской области. – Курган, 2004. – 37 стр.
Автор составитель: Е. Г. Квашнин
доцент кафедры ЕМО
ИПК и ПРО Курганской области
Данное учебное пособие содержит краткие справочные данные и задачи с решениями по курсу «Основы языка программирования». Изложение ведется с использованием языка программирования Турбо Паскаль. Рассматриваются некоторые классические алгоритмы. Приводятся примеры типовых задач с решениями.
Пособие предназначено для учителей информатики и слушателей данного курса.
Оглавление
1. Предопределенные типы языка Паскаль.
Стр.
2. Операторы ввода и вывода и присваивания информации.
Ввод значения одной переменной. Выполнение программы приостанавливается до введения значения. После выполнения оператора read курсор остаётся в этой же строке
readln(а);
Ввод значения одной переменной. Выполнение программы приостанавливается до введения значения. После выполнения оператора readln курсор переходит в следующую строку
readln(а, b);
Ввод значения двух переменных.
Оператор присваивания
Переменная := выражение
а:= 2+7;
в результате получим значение а =9
с:= а – 4;
сстановится равным 5
с:= с+3;
значение с увеличивается на 3 и становится равным 8
с+1:= 2-а
неверно, так как слева от знака присваивания стоит не переменная, а выражение!
Программа, выводящая на экран слово «МИР». Буквы этого слова состоят из символов «*», высота каждой буквы – 6 символов.
Program mir;
Uses Crt;
Begin
Clrscr;
writeln(‘* * * * *******’);
writeln(‘* * * * * ** * *’);
writeln(‘* ** * * * * * *’);
writeln(‘* * * * * * *******’);
writeln(‘* * * * * * ’);
writeln(‘* * * * * ’);
readln;
End.
Программа, вычисляющая произведение трёх чисел.
Program umnogenie;
Uses Crt;
var a, b, c: real;
Begin
Clrscr;
writeln(‘Введите первое число ’);
readln(а);
writeln(‘Введите второе число ’);
readln(b);
writeln(‘Введите третье число ’);
readln(с);
writeln(‘Произведение чисел равно ’, a*b*c );
readln;
End.
Определение среднего арифметического двух чисел.
Program sredznach;
Uses Crt;
var a, b: real;
Begin
Clrscr;
writeln(‘Введите первое число ’);
readln(а);
writeln(‘Введите второе число ’);
readln(b);
writeln(‘Среднее значение чисел равно ’, (a+b)/2 );
readln;
End.
Вычисление третьего угла треугольника по двум известным углам.
Программа записывающая введённое с клавиатуры трёхзначное число теми же цифрами, но в обратном порядке (то есть, если дано число 149, то получить надо 941).
Program Naoborot;
Uses Crt;
var x, a, b, c: integer;
Begin
Clrscr;
write(‘Введите трёхзначное число ’);
readln(x);
a:= x mod 10;
b:= x div 10 mod 10;
c:= x div 100;
writeln(‘Число наоборот’, 100*а+10*b+а);
readln;
End.
Вычисление площади треугольника по двум сторонам и углу между ними.
Program st;
Uses Crt;
var a, b, c, s: real;
Begin
Clrscr;
writeln(‘Введите длину первой стороны ’);
readln(а);
writeln(‘Введите длину второй стороны ’);
readln(b);
writeln(‘Введите угол между ними ’);
readln(с);
s:=0.5*a*b*sin(c);
writeln(‘Площадь треугольника равна ’, s );
readln;
End.
Вычисление площади треугольника по 3 вершинам.
Program st;
Uses Crt;
var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
Begin
Clrscr;
writeln('введите A(X1,Y1), B(X2,Y2) и C(X3,Y3)');
readln( x1,y1,x2,y2,x3,y3 );
c:=sqrt(sqr(y1-y2)+sqr(x1-x2));
a:=sqrt(sqr(y2-y3)+sqr(x2-x3));
b:=sqrt(sqr(y1-y3)+sqr(x1-x3));
p:=(a+b+c)/2;
s:=p*sqrt((p-a)*(p-b)*(p-c));
writeln('площадь треугольника = ',s);
readln;
End.
Вычисление суммы целых частей двух введённых с клавиатуры действительных чисел.
Program summa;
Uses Crt;
var a, b, c: real;
Begin
Clrscr;
writeln(‘Введите первое число ’);
readln(а);
writeln(‘Введите второе число ’);
readln(b);
с:= trunc(a)+ trunc(b);
writeln(‘Произведение чисел равно ’, c );
readln;
End.
Программа, которая по правилам математики округляет введённое с клавиатуры действительное число и возводит его в степень, введённую с клавиатуры.
Program okrugl;
Uses Crt;
var a, b, c: real;
Begin
Clrscr;
writeln(‘Введите действительное число ’);
readln(а);
writeln(‘Введите степень ’);
readln(b);
с:=round(a);
d:=exp(b*ln(c));
writeln(‘Округление числа ’, a, ‘=’c );
writeln(‘числа ’, с,’ в степени ’, ’ b’, ‘=’, d );
.