Форум программистов, компьютерный форум, киберфорум
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 элементов массива так чтобы среди них были положительные отрицательные и равные нулю. каких элементов массива больше, вывести...
0 / 0 / 0
Регистрация: 20.06.2014
Сообщений: 4
0

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

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

В индийском храме пол прямоугольной формы выложен одинаковыми квадратными плитками 1х1, на каждую из которых высыпано от 0 до k зернышек (k ≤ 30000). Размеры пола mхn. Мышка выбегает из левого нижнего угла пола храма и двигается к входу в другую норку, расположенную в противоположном углу. Мышка может двигаться только вправо или вперед, собирая все зернышки с плитки, на которой она находится.

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


Технические условия
Входные данные

Первая строка содержит числа m и n – размеры пола (1 ≤ m, n ≤ 100). Далее идет m строк, начиная сверху, в каждой из которых размещено n чисел – количество зернышек на соответствующей плитке.

Выходные данные

Вывести маршрут движения мышки в формате: RRFFFRF (F – шаг вперед, R – шаг вправо).

Добавлено через 1 час 5 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var 
m,n,i,j:integer;
a:array[1..100,1..100] of integer;
begin
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
 
i:=m;
j:=1;
 
While (i>1) or (j<n) do
  begin
    if (i=1) and (j<n) then begin Write('R'); j:=j+1; end
    else if (i>1) and (j=n) then begin Write('F'); i:=i-1; end
    else
      begin
        if a[i-1,j]>=a[i,j+1] then begin Write('F'); i:=i-1; end
        else begin Write('R'); j:=j+1; end;        
      end;      
  end;
end.


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

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

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

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

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

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

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

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

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