Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Введите с клавиатуры номер месяца и выведите его название, используя разные цвета для каждого сезона составить алгоритм и программу, введите с клавиатуры номер месяца и выведите его название, используя разные цвета для каждого сезона. не могу никак правильно сделать. помогите пожалуйста) https://www.cyberforum.ru/ pascalabc/ thread1389058.html Введите 3 числа с клавиатуры и выведите в левом верхнем углу экрана четные из них Pascal ABC
составить программу, введите 3 числа с клавиатуры и выведите в левом верхнем углу экрана четные из них, а в правом нижнем углу - нечетные, используя синий цвет для четных и красный для нечетных....
Pascal ABC Разроботать список процедур, для работы с динамической структурой данных Разработать список процедур, для работы с динамической структурой данных (Дек) https://www.cyberforum.ru/ pascalabc/ thread1388942.html Pascal ABC Написать программу для работы с файлом В файле содержатся записи из выбранной вами предметной области. Запись должна содержать 10 полей различных типов данных. Написать программу для работы с файлом. Программа должна содержать следу-... https://www.cyberforum.ru/ pascalabc/ thread1388940.html
Написать программу подсчета в тексте количества циклов while . . . do; Pascal ABC
В файле хранится работающая программа на ЯП Pascal. Написать программу подсчета в тексте количества циклов while . . . do;
Pascal ABC Написать программу перевода целого числа a из цифрового формата в прописной Написать программу перевода целого числа a из цифрового фор- мата в прописной. a < 1012 Пример: a = 123 ⇒ cто двадцать три. https://www.cyberforum.ru/ pascalabc/ thread1388938.html
Pascal ABC Заполнить двумерный массив числами от 1 до N*N по правилу https://www.cyberforum.ru/ pascalabc/ thread1388935.html
Надо заполнить двумерный массив NxN числами от 1 до N*N следующим образом (N вводится с клавиатуры): а вот и сама змейка. Спасибо
Pascal ABC Вычисление значение функции в точке х, используя разложение в ряд Маклорена
надо написать программу для вычисление значение функции в точке х, с помощью разложения в ряд Маклорена. x, ε вводятся с клавиатуры. \sqrt {1+x} = 1+\frac{x}{2} -\frac{x^2}{8} +\frac{x^3}{16}+...=...
Pascal ABC Сформировать массив из произведений положительных элементов каждой строки Дан двумерный массив C из M строк и N столбцов. 1) Сформировать массив из: а) произведений положительных элементов каждой строки; если их нет, результат должен быть равен 0; б) количества таких... https://www.cyberforum.ru/ pascalabc/ thread1388888.html Pascal ABC Изменить программу интегрирования методом второго порядка https://www.cyberforum.ru/ pascalabc/ thread1388875.html
Здравствуйте. Возникла проблема с задачей. Вот ее решение: Const Dt=0.1; V=-0.5; Q=0.0; Var f:Text; V_old,V_new,Q_old,Q_new,t:Real; i:integer;
Удалить подсписок студентов с фамилии F1 до фамилиии F2 включительно Pascal ABC
Пусть задан список студентов . Элемент списка содержит : фамилию , имя , № курса , № группы , оценки по пяти экзаменах последней сессии . пусть , фамилии студентов в списке упорядочены по алфавиту...
Pascal ABC Ввести с клавиатуры или сгенерировать 20 элементов массива https://www.cyberforum.ru/ pascalabc/ thread1388761.html
Помогите с программой: 1. Ввести с клав. или с генерировать 20 элементов массива так чтобы среди них были положительные отрицательные и равные нулю. каких элементов массива больше, вывести...
1643 / 1072 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
06.03.2015, 16:45 0

Найти маршрут, двигаясь по которому мышка соберет наибольшее количество зернышек - Pascal ABC - Ответ 7307582

06.03.2015, 16:45. Показов 1032. Ответов 2
Метки (Все метки)

Ответ

Цитата Сообщение от OneD Посмотреть сообщение
if a[i-1,j]>=a[i,j+1]
Этот алгоритм не правильный.
Вот пример поля:
3 1 1 1
2 1 1 9
4 1 1 9
0 1 9 9

По Вашем алгоритму мышка соберет 4+2+3+1+1+1 = 12
А по правильному алгоритму: 1+9+9+9+9+1 = 38

Добавлено через 1 час 33 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Var
  m,n,i,j : Byte;
  a       : array[1..100,1..100] of Integer;
  s       : String :='';
 
Function Path(r,c : Byte; Var st : String) : Integer;
Var pR,pF : Integer;
sR,sF : String;
Begin
  Path:=0;
  If (r=1) and (c=n)  then Path:=a[r,c]
  else
    Begin
      If c<n then pR:=Path(r,c+1,sR) else pR:=-1;
      If r>1 then pF:=Path(r-1,c,sF) else pF:=-1;
      If (pR>=0) and (pR>=pF) then
      Begin
        Path:=a[r,c]+pR;
        St:='R'+sR;
      end;
      If (pF>=0) and (pF>pR) then
      Begin
        Path:=a[r,c]+pF;
        St:='F'+sF;
      end;
    end;
end;
 
Begin
  m:=10; n:=10; {Readln(m,n);}
  For i:=1 to m do
   For j:=1 to n do
   Begin
     a[i,j]:=Random(10);
     Write(a[i,j]:3);
     If j=n then Writeln;
   end;
  Writeln(#13,Path(m,1,s),' '+s);
end.


Вернуться к обсуждению:
Найти маршрут, двигаясь по которому мышка соберет наибольшее количество зернышек Pascal ABC
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2015, 16:45
Готовые ответы и решения:

Напишите программу, которая находит наибольшее количество монет, которое может собрать пират, и выводит его маршрут
Прямоугольный остров разделён на квадраты, так что его размеры – N на M квадратов. В каждом...

Найти наибольшее возможное значение суммы и маршрут, на котором достигается эта сумма
В левом верхнем углу прямоугольной таблицы размером N×M находится черепашка. В каждой клетке...

Найти наибольшее возможное значение суммы и маршрут, на котором достигается эта сумма
Добрый вечер. Не понимаю вообще как решить. Прошу помочь. В левом верхнем углу прямоугольной...

Массив: Последнее дело Оушена. Составьте маршрут, следуя которому, Оушен успеет ограбить все банки.
Оушен отправляется на пенсию! Но для обеспечения безбедной старости он решил напоследок ограбить n...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2015, 16:45

Найти маршрут, включающий максимальное количество городов и удовлетворяющий вышеназванными условиям
Вы победили в соревновании, организованном Канадскими авиалиния-ми. Приз – бесплатное путешествие...

Найти маршрут, включающий максимальное количество городов и удовлетворяющий вышеназванными условиям
Вы победили в соревновании, организованном Канадскими авиалиния-ми. Приз – бесплатное путешествие...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.