Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Символьный тип данных В массиве, который состоит из строк, каждая из которых содержит фамилию, имя и отчество через пробелы, найти и вывести на экран тех, у кого фамилия Иванов или Иванова. Начальный массив задать самостоятельно. https://www.cyberforum.ru/ pascal/ thread1033542.html	Pascal Нахождение первого и последнего положительного элемента массива. Найдите ошибку Есть такой кусок кода который должен выполнять эту функцию: c:=0; k:=0; x:=false; for i:=1 to n do begin if (m>0) and x=false then begin c:=i; x:=true; writeln ('c',c:5); {это добавил с целью отладки}
Pascal Запись выражения Как написать. https://www.cyberforum.ru/ pascal/ thread1033446.html	Pascal Цикл с послеусловием. Repeat https://www.cyberforum.ru/ pascal/ thread1033431.html Дано целое число N (N>0). Используя операцию деления без остатка и взятия остатка от деления, найти количество и сумму его цифр. Помогите, пожалуйста :-[
Pascal функции решите пожалуйста задачу. из векторов А=(0.25,1.44,-3.56,0.73), В=(3.54,-2.93,0.56,1.84) и С=(2.23,3.56,0.75,-1.54) построить матрицу X. В ней столбцами являются вектора А, В и С, элементы которых упорядочены по убыванию.Упорядочение элементов оформить в программе.	Pascal Удалить из массива A(m,n) k строку (1<=k<=m) https://www.cyberforum.ru/ pascal/ thread1033385.html Удалить из массива A(m,n) k-тую строку (1<=k<=m)
Pascal В массиве F(n) записаны фамилии студентов, в массивах A(n), B(n), C(n) - их оценки за экзамены летней сессии. Напечатать фамилии двоечников https://www.cyberforum.ru/ pascal/ thread1033381.html В массиве F(n) записаны фамилии студентов, в массивах A(n), B(n), C(n) - их оценки за экзамены летней сессии. Напечатать фамилии двоечников.	Pascal Определите в массиве минимум среди последних 10-ти чисел,наибольшее значение среди всех элементов массива и среднее арифметическое полученных значений Элементы одномерного массива C(A) получаются расчетом по формуле C(A)=4sin(2А),где А-позиция элемента в массиве С(А). Определите в массиве минимум среди последних 10-ти чисел,наибольшее значение среди всех элементов массива С(А) и среднее арифметическое полученных значений.
Pascal Метод половинного деления https://www.cyberforum.ru/ pascal/ thread1033261.html Написать и отладить программу на языке Паскаль для нахождения корня данного нелинейного уравнения методом половинного деления F(x)= (-5)(sqrt(x))+5(sin(x))+6-0.10*(sqr(x))=0 Корень вычислить с точностью 0.000001 Прошу помочь всех кто может ибо я уже задалбался с ней и мне очень нужна ваша помощь. Добавлено через 2 часа 36 минут Дописал но теперь на 8 строчке пишет "нельзя присвоить...	Pascal Как сделать программу в паскале, чтобы она показывала нужный текст в зависимости от ввода ключа Помогите плиз) Как сделать программу в паскале, чтобы она показывала нужный текст в зависимости от ввода ключа. я знаю кто шарит в этом для вас это ерунда) https://www.cyberforum.ru/ pascal/ thread1033260.html
Pascal Сделайте пожалуйста по условию задачу.Буду очень благодарен Задано натуральное число А.Напишите программу,которая находит первые А натуральных чисел,у которых остаток от деления на три равен единице.	Pascal Поиск кратчайшего пути.Метод Форда-Беллмана https://www.cyberforum.ru/ pascal/ thread1033197.html Добрый день, не могли бы вы перевести вот этот код прочитать e // e - массив, в котором хранятся рёбра и их веса (first, second - вершины, соединяемые ребром, value - вес ребра) for i = 0 ... n - 1 d = 2000000000 d = 0 for i = 1 ... n for j = 0 ... m - 1 if d.second] > d.first] + e.value d.second] = d.first] + e.value if d.first] > d.second] + e.value

nikisha

39 / 35 / 23

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

Сообщений: 89

08.12.2013, 20:35

Алгоритм Дейкстры - Pascal - Ответ 5458110

08.12.2013, 20:35. Показов 3279. Ответов 2

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

Сообщение было отмечено Alexmen00 как решение

Решение

может так. для вершины 1.

Pascal

uses crt;
var mas:array[1..1,1..4] of byte;
    min,i,j,p:byte;
begin
clrscr;
i:=1;
for j:=1 to 4 do
    if (j<>i) then begin
                   write('Расстояние между ',i,' и ',j,'=');
                   read(mas[i,j]);
                   end;
min:=100;
for j:=1 to 4 do
    if (mas[i,j]<min) and (mas[i,j]>0) then begin
                         min:=mas[i,j];
                         p:=j;
                         end;
 
writeln('Ближайщий пункт:',p,' на расстоянии:',min);
 
readkey;
end.

Вернуться к обсуждению:
Алгоритм Дейкстры Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

08.12.2013, 20:35

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

алгоритм Дейкстры
please

Алгоритм Дейкстры
поиск минимального пути.Посмотрите что не так,не выводит минимальный путь!Бъемся 3-и недели неможем...

Как применить алгоритм Дейкстры
Задача тут тик вот что я сделал: var N:integer; E:integer; En1,En2:integer; ...

Линейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритм Линейный алгоритм
Линейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритм Линейный алгоритм 1. Объясни, что...

	08.12.2013, 20:35

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

08.12.2013, 20:35

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

Алгоритм Дейкстры
Не работает алгоритм Дейкстры. Вот код программы: uses crt,BaseInterpolations, GraphOptimized,...

Алгоритм Дейкстры в PascalABC.Net
Здравствуйте, гуру Паскаля! Нужна Ваша помощь по переводу кода из С++ в PascalABC.Net. Сам...

Алгоритм Дейкстры - Вывести не только вес ребер, но и сам путь
Необходимо вывести не только вес ребер, но и сам путь, например: 1-3-5. Помогите, пожалуйста. ...

Как нужно изменить алгоритм Дейкстры чтобы он искал самый длинный путь?
Как нужно изменить алгоритм Дейкстры чтобы он искал самый длинный путь? const maxn = 100; ...

Наверх