Помогите пожалуста решить задачу по Turbo Pascal - Форум
Суббота, 03.12.2016, 22:46
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуста решить задачу по Turbo Pascal
Помогите пожалуста решить задачу по Turbo Pascal
zhenya94Дата: Пятница, 25.12.2009, 16:32 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Задача Flower
Две группы путешественников пришли на поле размера NxN. Одна группа сначала находится в левом нижнем углу и желает перейти к верхнему правому. Другая группа идет из верхнего левого угла до нижнего правого. Каждая группа идет кратчайшим путем, вдоль диагонали. В клетках поля растут цветочки, и путешественники охотно их собирают. Напишите программу, которая найдет, сколько
цветочков соберут обе группы вместе.

Технические условия. Программа читает с клавиатуры натуральное число А /, (2 <= N <= 100) где NхN? размеры поля. Далее идут N строк по N чисел (целые числа от 0 до 1000), - количество цветочков в соответствующих ячейках поля. Числа в строке разделены пробелами. Программа выводит на экран результат - единственное число, равное количеству цветочков, собранных обеими группами.

Пример
Введення Виведення
4
15 2 3 4 42
5 6 7 8
9 0 1 2
3 4 5 6

 
ignorerДата: Среда, 30.12.2009, 16:37 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
var a : array[1..100, 1..100] of integer;
i, j, n, b : integer;
t : text;
begin
assign(t, 'in.txt');
reset(t);
readln(t, n);
for i:=1 to n do
for j:=1 to n do read(t, a[i,j]); readln(t);
close(t);
for i:=1 to n do b:=b+a[i,i];
for i:=1 to n do b:=b+a[i,n-i+1];
write(b);
end.
вот код. есть 2 НО: 1)программа написана на pascalABC, 2)ввод делается из файла, а не с клавиатуры
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуста решить задачу по Turbo Pascal
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016