Задание 1 программирование алгоритмов линейной структуры

1. Цель работы:

- Закрепление знаний, умений и навыков по разработке программ линейной структуры

- Повторить требования по охране труда, технике безопасности, противопожарной безопасности при работе на ПЭВМ

- Изучить требования к оформлению отчета

2. Задание для самостоятельной подготовки:

• повторить порядок работы на ПК (включение, выключение ПК, запуск среды программирования Turbo Pascal 7.0, работа с файлами, работа с редактором, окна Турбо Паскаля, запуск программ на выполнение, компиляция программ).

• повторить правила описания переменных;

• повторить операторы ввода-вывода, присваивания и правила оформления программ;

• ознакомиться с приведенным ниже примером оформления отчета;

3. Задача 1

Вычислить координаты центра тяжести трех материальных точек с массами m1, m2, m3 и координатами (x1,y1), (x2,y2), (x3,y3) по формулам:

m₁x₁ + m₂x₂ + m₃x₃

Xc = ----------------------------- ; (1)

m₁ + m₂ + m₃

m₁y₁ + m₂y₂+ m₃y₃

Yc = --------------------------; (2)

m₁ + m₂ + m₃

3.1. Исходные данные:

m1=3; m2= 2; m3=1,5

x1=3; y1=5; x2=5; y2=1;x3=10;y2=5

3.2. Таблица используемых имен переменных

N п/п	Наименование параметра	Имя	Тип переменной
1	2	3	4
1 2 3 4 5 6 7 8	Масса 1-го тела m1 Масса m2 Масса m3 Координаты 1-го тела Координаты 2-го тела Координаты 3-го тела Координаты центра тяжести Сумма масс трех тел ( промежуточный параметр)	m1 m2 m3 x1,y1 x2,y2 x3,y3 Xc,Yc Z	Real Real Real Real Real Real Real Real

3. Блок-схема алгоритма:

3. Программа

PROGRAM PRIM1;

VAR M1,M2,M3,X1,Y1,X2,Y2,X3,Y3,Z,XC,YC: REAL;

BEGIN

WRITELN (‘Введите массы М1, М2, М3’);

READLN (M1,M2,M3);

WRITELN (‘Введите координаты тел X1,Y1,X2,X3,Y3’);

READLN(X1,Y1,X2,X3,Y3);

Z:=M1+M2+M3;

XC:=(M1*X1+M2*X2+M3*X3)/Z;

YC:=(M1*Y1+M2*Y2+M3*Y3)/Z;

WRITELN(‘XC=’,XC:5:2,’ YC=’,YC:5:2);

END.

3. Результаты работы программы ( должны быть в отпечатанном виде)

3. Тест на проверку правильности решения задачи

ВЫПОЛНИТЬ ЗАДАНИЯ

Из учебника СемакинаИ.Г., Шестакова А.П. “Основы программирования” выполнить следующие задачи:

1 вариант задача 1 - стр.298 (2)

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

2 вариант задача 1 -стр.298 (4)

задача 2 – Даны катеты прямоугольного треугольника. Найти его периметр.

3 вариант задача 1 - стр.299 (6)

задача 2 - Найти площадь кольца по заданным внешнему и внутреннему радиусам.

4 вариант задача 1 -стр.299 (12)

задача 2– В случайном четырехзначном числе найти сумму двух первых

чисел и произведение двух последних.

5 вариант задача 1 -стр.298 (3)

задача 2 – В случайном трехзначном числе найти остаток от деления на 2.

6 вариант задача 1 - стр.299 (10)

задача 2 - Даны два числа. Найти их среднее арифметическое.

7 вариант задача 1 -стр.299 (11)

задача 2 - В случайном трехзначном числе найти остаток от деления на 3.

8 вариант стр. 299 (23)

задача 2 – Случайное трехзначное число разделить на 3 и вывести целую

часть числа