постановка задачи;
описание метода решения;
блок-схема алгоритма решения задачи;
текст программы с комментариями;
результаты тестирования программы в виде таблицы тестов (пример см. в приложении 3).
К отчету прилагаются файлы исходных текстов программ, подготовленные к компиляции в инструментальной среде.
Тема 1. Линейные и разветвляющиеся алгоритмы
Цель работы: Познакомиться с интегрированной средой разработки Pascal ABC. Изучить структуру текста программы и базовые операторы языка Pascal ABC. Освоить программирование простейших задач, реализуемых линейными и разветвляющимися алгоритмами. Освоить принципы постановки задачи и построения математической модели метода решения.
Рекомендации по выполнению работы
При выполнении данной работы необходимо уделить особое внимание правильности постановки задачи (определению набора входных и выходных параметров задачи и допустимых диапазонов принимаемых ими значений), а также созданию математических моделей, представляемых наборами математических соотношений и определяющих методы решения задач.
Первая и вторая задачи решаются алгоритмами линейной структуры, вторая и третья – с использованием алгоритмических конструкций «решение», пятая – с применением конструкции «выбор».
Варианты заданий контрольной работы
Задание 1
Вариант 2. Даны x, y, z . Вычислить a, b, если:
|
|
Program qq;
var a,b,x,y,z:real;
begin
Write('Введите Х: ');
ReadLn(x);
Write('Введите Y: ');
ReadLn(y);
Write('Введите Z: ');
ReadLn(z);
a:=sqr(3+exp(1))/(y-(sin(z)/cos(z)))*1+sqr(x);
b:=abs(y-x)+1+sqr(y-x)/2+sqr(x-y)/3;
WriteLn(a);
WriteLn(b);
end.
Задание 2
Вариант 2
Длина класса L метров, ширина - b метров, высота класса – h метров. В классе имеется дверь размером dl x dh и три окна размером ol x oh см. Подоконник находится на высоте ph см от пола. Во время ремонта в классе будут покрашены пол и панели на высоте hp > ph см от пола. Остальная часть стен и потолок будут побелены. Определить, какая площадь и квадратных метрах будет покрашена и какая будет побелена.
program tem1;
var
l,b,h,dl,dh,ol,oh,ph,kras,bel: real;
begin
writeln ('Решение задачи: тема 1 задание 2 вариант 2');
writeln ('');
writeln('Введите длинну l, ширину b, высоту h класса: ');
readln(l,b,h);
writeln('Введите размер двери dl x dh:');
readln(dl,dh);
writeln('Введите размер окна ol x oh: ');
readln(ol, oh);
write('Введите высоту расположения подоконника: ');
read(ph);
kras:=l*b+(2*b*(h-0.01*ph)+2*l*(h-0.01*ph))-3*oh*ol-dl*(dh-0.01*ph);
bel:=l*b+(2*b*(0.01*ph)+2*l*(0.01*ph))-(dl*(0.01*ph));
writeln('Площадь покраски - ',kras,' м^2');
write('Площадь побелки - ',bel,' м^2');
end.
Задание 3
Вариант 2
У Сережи 145 рублей. Он решил купить 3 блокнота по 48 рублей. Хватит ли денег на покупку?
Задание 4
Вариант 2
Д
аны
a и b. Если
a и b попадают
в область а < 0 и b
< 5, то вычислить значение y
по формуле y = а2
+ b +10, иначе
x
y =
x, если –1 ≤ 2x ≤ 1
x2 + 1 , если 2x > 1
для произвольного x.
uses crt;
var a,b,y,x:integer;
begin
ClrScr;
Readln(a,b);
Readln(x);
if (a<0) and (b<5) then
y:=sqr(a)+b+10
else
if (2*x>=-1) and (2*x<=1) then
y:=x
else
if 2*x<-1 then
y:=x+2
else
y:=sqr(x)+1;
Readln;
end.
Задание 5
Вариант 2. С применением оператора «выбор» составить программу вычисления площадей различных геометрических фигур:
program pr;
var k:byte;
var a,p,l,h,R,S:real;
begin
writeln('площадь прямоугольника-1');
writeln('площадь треугольника-2');
writeln('площадь цилиндра боковой поверхности-3');
writeln('площадь шарового сегмента-4');
writeln('площадь круга-5');
writeln('площадь не знаю-6');
read(k);
case k of
1:begin
writeln('введите P и L');
read(p,l);
s:=p*l;
end;
2:begin
writeln('введите p и h');
read(p,h);
s:=p*h/2;
end;
3:begin
writeln('введите p,l и h');
read(p,l,h);
s:=2*pi*R*h;
end;
4:begin
writeln('введите R');
read(R);
s:=2*pi*R*l;
end;
5:begin
writeln('введите R и p');
read(R,p);
s:=R*R*pi;
end;
6:begin
writeln('введите R,h и a');
read(R,h,a);
s:=pi*R*(2*h+a);
end;
end;
writeln('площадь равна ',s);
readln;
end.