Главная | Обратная связь | Поможем написать вашу работу!

Некоторые специальные символы.

Символ	Назначение
:=	Присваивание переменной (слева от символа) значения выражения (справа от символа)
;	Разделитель операторов в программе
()	Используются в выражениях
:	Разделитель в описаниях переменных
..	Используется в описании интервального типа
+ - * /	Бинарные операции
=	Логическое равенство
<>	Логическое неравенство
< >	Отношения «меньше чем» и «больше чем»
<= =>	Отношения «меньше или равно» и «больше или равно»
.	Конец программы
‘	Ограничитель константы строкового типа
{ } (* *)	Пары скобок для комментариев
[ ]	Скобки для ссылки на элемент массива или указания диапазона индекса

Лабораторная работа №1.

Цели.

Ознакомиться с интегрированной средой программирования TurboPascal 7.0.

Научиться записывать арифметические и логические выражения на языке Паскаль.

Научиться использовать простейшие операторы ввода-вывода.

Научиться создавать простейшие программы на языке программирования Паскале.

Научиться различным способам компиляции исходных текстов программ и созданию исполняемых файлов программ.

Освоить простейшие приемы отладки программы (пошаговое исполнение, тестирование).

Научиться использовать справочную систему.

Задание 1

Пользуясь командами текстового редактора, наберите текст программы и исполнить ее (Ctrl+F9). Просмотрите результаты работы программы в окне Output.

Begin

Write 'Привет!';

Write 'Мой друг.'

End.

Используя буфер обмена, скопируйте текст программы в другое окно и измените его.

Begin

Writeln 'Привет!';

Writeln 'Мой друг.'

End.

Выполните программу и объясните, что изменилось в напечатанном на экране тексте. Исполнить программу по шагам…(F7)

Задание 2

a. Используя возможности текстового редактора интегрированной среды, создайте текст программы

var
a,b,c: real;
begin
a:=10; b:=1,5; c:=2*a+b;
a:=b+c; c:=c+a+b;
write('a=',a,'b=',b,'c=', c);
end.

b. Сохраните текст программы в файле myprgrm. Исполните программу, не выходя из среды. Просмотрите результаты работы программы в окне Output.

c. Исполните программу по шагам, прослеживая изменение значений переменных с помощью окна Debug/Watch.

d. Скопируйте текст программы в другое окно. Измените текст программы так, чтобы каждое сообщение на экране монитора начиналось с новой строки и программа могла быть исполнена для любых значений a и b.

e. Измените оператор вывода так, чтобы на экране отображалось заданное количество цифр целой и дробной частей.

f. Откомпилируйте текст программы, сохраните файл с откомпилированной программой на внешнем носителе, выйдите из среды программирования, запустите программу на выполнение.

Задание 3

1. Создайте программу для вычисления значения y.

ü Использовать операторы вывода, позволяющие отображать указанное количество цифр в целой и дробной части.

ü Присваивание числовых значений параметрам оформите в разделе констант.

ü Правильность работы программы проверьте с помощью калькулятора.

ü Выполните программу по шагам, в отчете по лабораторной работе оформить протокол выполнения программы.

ü Оформить отчет по лабораторной работе (текст программы, результаты тестов на калькуляторе, протокол исполнения программы).

ü Откомпилируйте текст программы и сохраните откомпилированный файл на внешнем носителе.

1. Вариант

Вычислите ,где ; a=2,3; b=-4.

Ответ: 0,197946.

2. Вариант

Вычислите y=x³sin½x½,где ; a=2,8; b=0,75.

Ответ:3,020696.

3. Вариант

Вычислите , где ; a=-7,25; b=2,05.

Ответ:0,235307.

4. Вариант

Вычислите , где ; a=2,8.

Ответ:-0,104535.

5. Вариант

Вычислите , где ; a=2,8; b=0,25.

Ответ:0,1777797.

6. Вариант

Вычислите , где ; a=4,2; b=-1,3.

Ответ:8,044995.

7. Вариант

Вычислите , где ; k=7,4; n=-2,5.

Ответ:0,2786267.

8. Вариант

Вычислите , где ; a=2,5; b=-4,01.

Ответ: 12,60745.

9. Вариант

Вычислите , где ; a=-4,8; b=2,3.

Ответ:1,624717.

10. Вариант.

Вычислите , где b=2tg2a; a=3,7.

Ответ:8,004149.

11. Вариант.

Вычислите , где ; x=-2,9; k=4,5.

Ответ:0,6662106.

12. Вариант.

числите , где ; a=2,8; b=9,4.

Ответ:0,2494776.

13. Вариант.

Вычислите , где ; a=-1,2; b=5.

Ответ: -0.20410805.

14. Вариант.

Вычислите , где ; a=-2,8; b=0,66.

Ответ: -0.58655797.

15. Вариант.

Вычислите , где ; a=-7,25; b=0.008.

Ответ: 0.03249934.

16. Вариант.

Вычислите , где ; a=2,8.

Ответ: -9.51407908.

17. Вариант.

Вычислите , где ; a=1,4; b=3,4.

Ответ: 99,1108985.

18. Вариант.

Вычислите , где ; a=-3,5.

Ответ: 140,739147.

19. Вариант.

Вычислите , где ; с=7,4; d=-2,5.

Ответ: 1,248736.

20. Вариант.

Вычислите , где ; n=2,8.

Ответ: 0,8548033.

21. Вариант.

Вычислите где ; s=2.5.

Ответ: -0,3531064.

22. Вариант.

Вычислите , где ; a=; b=.

Ответ: -82,4608189.

23. Вариант.

Вычислите , где ; x=-0,9.

Ответ: 0,1342771.

24. Вариант.

Вычислите , где ; d=-2,8; f=1,4.

Ответ: 1,7046829.

25. Вариант.

Вычислите , где ; d=-5,6; f=2,75.

Ответ: 0,095436.

2. Напишите программу для решения следующей задачи.

1. Вaриант

Дано: D ABC; ÐA=58⁰; ÐB=28⁰; AC=15,8см.

Найти: BC-?;S -?

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

2. Вариант

Дано: DABC; AB=16,5см; BC=15см; ÐA=40⁰

Найти: AC-?; S -?

3. Вариант

Дано: окружность; R=5,6см.

Найти:C-?, S-?.

Написать программу для вычисления длины окружности произвольного радиуса и площади соответствующего круга.

Ответ:C=35,168, S=98,47.

4. Вариант

Дано: точки A(3,4;5,8), B(2,3;4,5).

Найти: расстояние AB.

Написать программу для вычисления расстояния между произвольными точками на плоскости

Ответ: AB=1,703.

5. Вариант.

Дано: DABC, ÐA=90⁰, AB=7,4см, AC=0,81дм.

Найти: BC-?, S-?, B-?, C-?.

Написать программу для вычисления гипотенузы, острых углов и площади произвольного прямоугольного треугольника.

Ответ: BC=10,971, S=29,97, B=0,831, C=0,740.

6. Вариант.

Дано: D ABC, ÐA=60⁰,AB=8,4см, AC=1,2дм.

Найти:AC-?, P-?, S-?.

Написать программу для вычисления периметра и площади треугольника, у которого известны две стороны и угол между ними.

Ответ: AC=10,661, P=31,061, S=43,640.

7. Вариант^.

Дано: ABCD-параллелограмм, ÐA=40, AB=15,2см, AD=12,3см.

Найти:S-?, AC-?, BD-?.

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

Ответ: S=120,157, AC=25,86, BD=9,793.

8. Вариант

Дано: ABCD-ромб, AC=8см, BD=0,62дм.

Найти:S-?, AB-?, ÐA-?, ÐB-?.

Написать программу для вычисления стороны, углов и площади ромба, у которого известны диагонали.

Ответ: S=24,8, AB=5,06, A=1,319, B=1,823.

9. Вариант^**.

Дано: правильный шестиугольник, a=4,5см.

Найти: S-?, S1 вписанного круга-?, S2 описанного круга-?.

Написать программу для вычисления площадей правильного шестиугольника и вписанного и описанного кругов.

Ответ: S=52,63, S1=47,76, S2=63,585.

10. Вариант**.

Дано:DABC, A(3,3;6,7), B(5,2;6,5), C(4,2;8,5).

Найти: cosA-?, cosB-?, cosC-?, R-?.

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

Ответ: cosA=0,351, cosB=0,539, cosC=0,6, R=1,192.

11. Вариант^**.

Дано: DABC, AB=5,2см, BC=0,35дм, AC=6,1см.

Найти:S-?, R-?, r-?.

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

Ответ: S=9,085, R=3,055, r=1,228.

12. Вариант.

Дано: ABCD-параллелограмм, ÐС=30⁰, СB=10 см, СD=21,5 см.

Найти: S, AC, BD.

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

Ответ: S=107,5 см², BD=13,78 см, AC=30,57 cм.

13. Вариант.

Дано: точки A(-1,2;10,8), B(3,8;-5,5).

Найти: расстояние AB.

Написать программу для вычисления расстояния между произвольными точками на плоскости.

Ответ: AB=7,286.

14. Вариант.

Дано: DABC, A(2,8;-1,2), B(3,8;-2,4), C(1,5;4,3).

Найти: P, S.

Написать программу для вычисления периметра и площади треугольника, у которого известны координаты его вершин.

Ответ: P=14,297, S=1,97.

15. Вариант.

Дано: DABC, AB=0,5 дм, BC=8,1см, AC=7,2 см.

Найти: S, R, r.

Ответ: S=17,78 см², R=4,1 см, r=1,752 см.

16. Вариант.

Дано: DABC, ÐС=90⁰, СB=8,4 см, AC=0,63 дм.

Найти: BА, S, ÐА, ÐC.

Ответ: BА=10,5, S=26,46, ÐА=0,644, ÐC=0,927.

17. Вариант.

Дано: D ABC; ÐA=25⁰; ÐС=56⁰; AВ=14,3см.

Найти: BC; S; ÐB.

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

Ответ: ÐB =99⁰; S=51,482 см², ВС=7,29 см.

18. Вариант.

Дано: ABCD-ромб, AC=7см, BD=0,84дм.

Найти: S, AB, ÐA, ÐB.

Написать программу для вычисления стороны, углов и площади ромба, у которого известны диагонали.

Ответ: S=29,4 см², AB=5,467см, ÐA=1,752, ÐB=1,39.

19. Вариант.

Дано: правильный шестиугольник, a=3,2 см.

Найти: S, S1 вписанного круга, S2 описанного круга.

Написать программу для вычисления площадей правильного шестиугольника и вписанного и описанного кругов.

Ответ: S=26,604 см², S1=24,123 см², S2=32,17 см².

20. Вариант.

Дано: D ABC, ÐA=30⁰,AB=6,8 см, AC=0,94 дм.

Найти:AC, P, S.

Ответ: AC=4,887 см, P=21,087 см, S=15,98 см².

21. Вариант.

Дано:DABC, A(-3,4;5,3), B(2,2;-4,5), C(2,8;7,3).

Найти: cosA, cosB, cosC, R.

Ответ: cosA=0,206, cosB=0,842, cosC=0,355, R=6,037 см.

22. Вариант.

Дано: DABC; AB=12,1 см; BC=19 см; ÐA=50⁰

Найти: AC; S

Ответ: АС=11,541 см, S=49,092 см².

23. Вариант.

Дано: окружность R=4,8 см.

Найти: C, S.

Написать программу для вычисления длины окружности произвольного радиуса и площади соответствующего круга.

Ответ:C=30,159 см, S=72,382 см².

24. Вариант.

Вычислите дробную часть среднего арифметического и дробную часть среднего геометрического трех заданных чисел a,b,c.

Ответ: при a=2, b=5, c=7 результат 0,667 и 0,367.

25. Вариант.

Поменяйте местами значения двух вещественных переменных x, y. Приведите два варианта решения задачи (с использованием вспомогательной переменной и без нее)

Вариант0

Вычислите , где ; x=2,8.

Ответ:0,3535534.

{Лабораторная работа №1 задача 1}

Program LabRab1_1;

Const x = 2.8;

var

a,y: real;

Begin

a:= abs(sin(x));

y:= sqrt(cos(a)+ 1) / 4;

writeln('y=',y:10:8);

Readln;

End.

Дано: треугольник ABC, A(2,3;3,7), B(5,8;6,2), C(4,5;8,3).

Найти:P-?, S-?.

Ответ: P=11,869, S=5,297.

{Лабораторная работа №1 задача 2}

Program LabRab12;

var

xA,yA, xB, yB, xC,yC: real;

AB, BC, AC, P, S: real;

Begin

Writeln('Введите координаты точки A(x,y) ');

Readln(xA, yA);

Writeln('Введите координаты точки B(x,y) ');

Readln(xB, yB);

Writeln('Введите координаты точки C(x,y) ');

Readln(xC, yC);

{ Вычислим длины сторон, как расстояние между точками}

AB:= sqrt(sqr(xA - xB) + sqr(yA - yB));

BC:= sqrt(sqr(xC - xB) + sqr(yC - yB));

AC:= sqrt(sqr(xA - xC) + sqr(yA - yC));

P:= AB + BC + AC;

S:= 1 / 2 * abs((xA - xC) * (yB - yC) - (xB - xC) * (yA - yC));

{или по формуле Герона}

{S:= sqrt(P/2 * (P/2 - AB) * (P/2 - BC) * (P/2 - AC));}

writeln('Периметр = ', P:5:3);

writeln('Площадь = ', S:5:3);

Readln;

End.

⇐ Предыдущая 1 234 5 6 7 8 9 10 Следующая ⇒