Вопрос по информатике:
Помогите написать программу на паскале:
Найти количество точек, лежащих в начале координат.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.04.2015 13:21
- Информатика
- remove_red_eye 7603
- thumb_up 8
Ответы и объяснения 1
Program part1;
type
Point = record
x, y, z: real
end;
var
A, B: Point;
L: real;
begin
write('Введите координаты (x,y,z) точки А: ');
readln(A.x, A.y, A.z);
write('Введите координаты (x,y,z) точки B: ');
readln(B.x, B.y, B.z);
L := sqrt(sqr(B.x - A.x) + sqr(B.y - A.y) + sqr(B.z - A.z));
writeln('Длина отрезка АВ равна ', L:0:4)
end.
Тестовое решение:
Введите координаты (x,y,z) точки А: 3 -2 5
Введите координаты (x,y,z) точки B: -2.6 4 6.2
Длина отрезка АВ равна 8.2946
program part2;
const
k = 20;
type
Point = record
x, y, z: real
end;
var
a: array[1..k] of Point;
i, n: integer;
begin
write('Введите количество точек (1-20): ');
readln(n);
for i:=1 to n do
begin
write('Введите координаты (x,y,z) точки ',i,': ');
readln(a[i].x, a[i].y, a[i].z)
end;
for i:=1 to n do
if (a[i].x=0) and (a[i].y=0) and (a[i].z=0) then
writeln('Точка номер ',i,' лежит в начале координат')
end.
Тестовое решение:
Введите количество точек (1-20): 6
Введите координаты (x,y,z) точки 1: 4 2 -4
Введите координаты (x,y,z) точки 2: 3 0 5
Введите координаты (x,y,z) точки 3: 0 -3 0
Введите координаты (x,y,z) точки 4: 3.5 7 -2
Введите координаты (x,y,z) точки 5: 0 0 0
Введите координаты (x,y,z) точки 6: 2 5 8
Точка номер 5 лежит в начале координат
- 26.04.2015 22:01
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.