сервис вопросов и ответовПомогите написать программу на паскале:
10-11 класс|
|
Найти количество точек, лежащих в начале координат.
NastuaGladkova
04 нояб. 2016 г., 6:10:53 (7 лет назад)
Ert135
04 нояб. 2016 г., 7:15:15 (7 лет назад)
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 лежит в начале координат
Doberman2014
04 нояб. 2016 г., 9:36:44 (7 лет назад)
Комментарий удален
Svetakulishova
04 нояб. 2016 г., 12:27:38 (7 лет назад)
Задания
1.Написать программу, в которой содержится описание объекта – точки с тремя координатами. Точка задается типом запись. В программе вводятся координаты двух точек и подсчитывается длина отрезка.
2. Описать в программе массив записей, в каждой из которых содержатся координаты точки. Организовать ввод массива из n записей и обработку по вариантам
Ответить
Другие вопросы из категории
Можно ли отнести технологию организационного управления к информационным технологиям?
1) Да
2) Нет
3) Частично
у хозяина гостиницы есть ключи от комнат. На вид ключи неразличимы. сделав ключи, он надел их на кольцо и покрасил в два цвета. Какое наименьшее число
ключей может быть у хозяина гостиницы,чтобы он мог различать, какой из них от какой комнаты, если известно, что ключей больше двух.
Сколько байт в 2 Гбайтах?
а) 2 x 2^30
б) 2 x 2^3
в) 2 x 2^20
г) 2 x 2^31
Расширение архивного файла
а) avi
б) jpg
в) mp3
г) zip
Во время выполнения программа находится в
а) Кэш-памяти
б) Оперативной памяти
в) Буфере
г) Долговременной памяти
народ помогите с информатикой)
В следующем тексте речь идет о Московском метро. Постройте по этим данным таблицу:
Время в пути от станции Отрадное до станции Кутузовская составляет 37 мин. Время в пути от станции Театральная до станции Юго-Западная составляет 24 мин. Время в пути от станции Октябрьская до станции Отрадное составляет 32 мин. Время в пути от станции Курская до станции Кутузовская составляет 23 мин. Время в пути от станции Октябрьская до станции Кутузовская составляет 16 мин. Время в пути от станции Юго-Западная до станции Отрадное составляет 46 мин. Время в пути от станции Театральная до станции Отрадное составляет 27 мин. Время в пути от станции Октябрьская до станции Театральная составляет 13 мин. Время в пути от станции Курская до станции Отрадное составляет 28 мин. Время в пути от станции Театральная до станции Кутузовская составляет 19 мин. Время в пути от станции Октябрьская до станции Юго-Западная составляет 23 мин. Время в пути от станции Юго-Западная до станции Кутузовская составляет 33 мин. Время в пути от станции Курская до станции Театральная составляет 10 мин. Время в пути от станции Октябрьская до станции Курская составляет 10 мин. Время в пути от станции Курская до станции Юго-Западная составляет 32 мин.
Читайте также
написать программу на Assembler
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Помогите написать программу в паскале. Задание:На плоскости даны 2 точки А (х1; у2) и В (х2; у2), определить какая из них находится дальше от начала коо
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных
13.
Нужно написать программу на цикле с предусловием, на Паскале.
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Помогите написать программу на C#
Дано натуральное число n. Написать программу вычисляющую сумму
Вы находитесь на странице вопроса "Помогите написать программу на паскале:", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.