Практическая работа № 1
Начало программирования. Работа в программе PascalABC.
Решение задач на линейный алгоритм.
Значение операторов:
Begin - начало
End – конец
Write или Writeln – вывод на экран
Read или Readln – ожидание ввода
Структура любой программы:
program <имя программы>;
var …; {переменные}
begin
… {основная программа}
end.
Комментарий в фигурных скобках не выводится.
Задание №1.
Набрать в программе PascalABC следующий текст:
![]() |
|
program Hello;
begin writeln ('Hello! What's your name?') end.
|
Запустить программу на выполнение (зеленый треугольник w).
Задание №2.
Дополни программу (перед оператором Begin):
|
var n: string; |
Дополни программу (перед оператором End):
|
readln (n); writeln ('Hello! ', n); |
Запустить программу на выполнение (зеленый треугольник w).
В строке ввода введи свое имя. Нажми Enter.
Задание №3.
Придумай продолжение диалога. Запиши нужные операторы в программу. Запусти программу на выполнение.
Задание №4. Задача: Ввести два целых числа и вывести на экран их сумму.
|
program qq; var a, b, c: integer; begin readln ( a, b ); c := a + b; writeln ( c ); end.
|
Запусти программу, запиши 3 числа через Enter.
Задание №5. Задача: Ввести три числа, найти их сумму и произведение.
Задание №6. Задача: Ввести четыре числа, найти сумму первых двух и произведение следующих двух чисел.
Задание №7. Дано тело программы, запиши переменные в Var. Обеспечь вывод на экран значение переменных а и b. Вывод должен быть оформлен таким образом: a=24, b=7.
begin
a := 5;
b := a + 2;
a := (a + 2)*(b – 3);
end.
Задание №8. Измени программу в задании № 7, так, что бы ввод значения переменной а осуществлялось с клавиатуры.
Задание №9. Создай программу.
Задача. Найти периметр и площадь прямоугольника. Длину и ширину ввести с клавиатуры.
Задание №10. Создай программу.
Задача. Осуществить ввод числа с клавиатуры. Возвести введенное число в квадрат, в куб, в 4 и 5 степень. Выдать на экран результат с пояснениями.
Воспользоваться только двумя переменными. Например x и y.
Практическая работа № 2
«Программирование на языке Pascal. Линейные алгоритмы»
Задание №11 Население Москвы равняется а=9000000 жителей. Население Нью-Васюков равняется b=1000 жителей. Напишите программу, которая определяет разницу в числе жителей между двумя городами. Используйте переменные величины.
Задание №12
Определите без компьютера, что будет напечатано при выполнении следующих фрагментов программ:
1) a:=100; a:=10*a+1; WriteLn (a)
2) a:=100; a:=-a; WriteLn (a)
3) a:=10; b:=25; a:=b-a; b:=a-b; WriteLn (a,' ',b)
Задание №13
VAR a,b: Integer;
BEGIN
a:=(Sqr(2)+1)*(20- Sqr(2*2))-11;
b:=11 div (a-4);
WriteLn (Sqr(a)+b-1)
END.
Задание №14
Найдите ошибку в данной программе:
VAR a,b,y : Integer;
BEGIN
a:=10; b:=6;
y:= a / b;
WriteLn (y)
END.
Задание №15
Известны размеры спичечной коробки: высота - 12.41 см., ширина - 8 см., толщина - 5 см. Вычислить площадь основания коробки и ее объем.
Задание № 16
Написать программы для решения следующих задач:
1) В углу прямоугольного двора размером 50х30 стоит прямоугольный дом размером 20х10. Подсчитать площадь дома, свободную площадь двора и длину забора. Примечание: в углу, где дом, забора нет.
2) Радиус окружности равен 800. Вычислить длину окружности и площадь круга. Результаты печатать с 5 знаками после десятичной точки.
3) Автомобиль 3 часа ехал со скоростью 80 км/час и 2 часа со скоростью 90 км/час. Вычислить среднюю скорость автомобиля (она равна суммарному пути, деленному на суммарное время).
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.