Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Задача про стороны многоугольника https://www.cyberforum.ru/ pascalabc/ thread969529.html Многоугольник задан координатами своих вершин. Найти длину самой короткой стороны. кто может, помогите!	Pascal ABC Длинная арифметика var m, i: integer; n: int64; begin readln(m); n := 1; for i := 1 to m - 1 do n := n * 2; writeln(n); end.
Pascal ABC Зная длины сторон треугольника, вычислить угол и высоту. Даны остроугольный треугольник со сторонами a, b, c. Разработать алгоритм- Программа для нахождения величин, указанных в нижней таблице: https://www.cyberforum.ru/ pascalabc/ thread969386.html	Pascal ABC Помогите разработать алгоритм расчета и программу на Pascal для определения значений функции Ребятки помогите разработать алгоритм расчета и программу на Pascal для определения значений функции: https://www.cyberforum.ru/ pascalabc/ thread969382.html
Pascal ABC Пояснить суть программы Помогите разобраться, что ту написано ( паскаль не знаю) Заранее спасибо var ans, a, p :int64; i :longint; d, h :array of int64; begin	Pascal ABC Ошибка вещественное деление на ноль https://www.cyberforum.ru/ pascalabc/ thread969263.html в 13 строчке выдает ошибку "Вещественное деление на 0" Подскажите, пожалуйста, как исправить? Case N of 3: begin writeln('Ввести значение a,b и шаг c'); write('a='); readln(a); write('b='); readln(b); write('c=');
Pascal ABC Работа с многозначными числами https://www.cyberforum.ru/ pascalabc/ thread969185.html Добрый вечер! Помогите решить задачу: Пусть а1=1, b1=1, ai=3/4ai-1-bi-1, bi=4/3bi-1-ai-1. Получить числа a2,a3...,an,b2,b3,...,bn, n - натуральное число.	найти сумму элементов массива (паскаль АВС) Pascal ABC Дан одномерный массив А(10), нужно найти сумму от первого элемента массива, до первого отрицательного если максимальный элемент больше своего разряда! Я застрял на суммировании :( вот мой код (не судите строго, только начал изучать языки и то сам) program p4_2; uses crt; const n=10; var A:array of integer;
Pascal ABC Итерационные циклы https://www.cyberforum.ru/ pascalabc/ thread969069.html под формулой написано : С заданной точностью эпсилон и для которого x=x0(hx)xn	Pascal ABC БД https://www.cyberforum.ru/ pascalabc/ thread969065.html На примере студенческих групп создайте файл-базу данных, содержащий запись следующего вида: номер группы, номер семестра, предметы, где поле предметы представляет собой список произвольной длины с элементами: название предмета, кафедра, обеспечивающая курс;фамилия лектора. Используя этот файл определите название предмета, который читает данный лектор, а также номер группы и номер семестра....
Pascal ABC Ошибка при проверке задания Задание: Пафнутий безумно (да он слегка безумен (как и большинство наших знакомых (да, мы любим вложенные комментарии))) любит участвовать в разных олимпиадах по программированию и быдло быстрому написанию кода. Как вы, скорее всего, догадываетесь, данные мероприятия очень сложно организовать. Ведь организаторам нужно придумывать уйму интересных задач, потом проверять ваш быдлокод, ну и в конце...	Pascal ABC Ошибка: неверное количество фактических параметров https://www.cyberforum.ru/ pascalabc/ thread968881.html При таком коде выдает ошибку: неверное количество фактических параметров. В чем может быть проблема (курсивом указывает на do)? var x,n:integer; a : array of integer; begin n:=0; while not eoln do inc(n); readln(a); end.

BlindLa2

2 / 2 / 1

Регистрация: 21.12.2012

Сообщений: 8

05.10.2013, 15:42

Найти длину вектора - Pascal ABC - Ответ 5141257

05.10.2013, 15:42. Показов 988. Ответов 2

Метки (Все метки)

Ответ

Pascal

Program Pro;
type vector=array[1..100] of real;
var k:byte;
dl:real;
x:vector;
procedure wod(var y:vector);
var i:byte;
begin
writeln('Vvedite koordinati vektarov');
for i:=1 to k do
readln(y[i]);
end;
function dlvec(y:vector):real;
var i:byte;
s:real;
begin
for i:=1 to k do
s:= s+sqr(y[i]);
dlvec:=sqrt(s);
end;
begin
write('Vvedite razmernosti vektornogo proctranstva k=');
readln(k);
wod(x);
dl:=dlvec(x);
writeln('Dlina vectora x =', dl:8:2);
end.

Вот исправленная

Вернуться к обсуждению:
Найти длину вектора Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

05.10.2013, 15:42

Готовые ответы и решения:

Программа определяет длину вектора
4. Из текстового файла загружается одномерный массив, состоящий из действительных чисел: ....

Вычислить длину вектора по формуле
составить прогамму в паскале Вычислить длину вектора Х размером 12. Длина вычисляется по формуле...

Найти длину вектора
програмирование с использованием процедур найти длину вектора X=(X1, X2, X3),где Х есть сумма...

Найти длину вектора
Помогите решить задачу. Даны три вектора v1,v2,v3(одномернырные массивы целых чисел). Найти...

	05.10.2013, 15:42

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

05.10.2013, 15:42

Помогаю со студенческими работами здесь

Найти длину вектора
Дан вектор A( a_1,\,a_2,\,...,\,a_{30}) Найти его длину S. Подсказка: Длина вектора...

Два вектора, сравнить длину
Заданы два векторы Х(х1,х2,х3) и . Переменной А присвоить значение 1, если длина вектора Х больше...

Дан список, элементы которого являются координатами вектора. Найти длину вектора
1. Дан список, элементы которого являются координатами вектора в n-мерном пространстве. Найти длину...

Определить для заданных векторов длину каждого вектора и найти номер самого длинного вектора
Создайте структуру Вектор с элементами x, y, z – декартовые координаты. Определить для M заданных...

Наверх