Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Настя Силина
1 / 2 / 0
Регистрация: 04.09.2013
Сообщений: 87
1

доороги

22.11.2013, 17:04. Просмотров 210. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var f1,f2:text;
i,j,n,s:integer;
a:array [1..100,1..100] of 0..1;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,n);
for i:=1 to n do
    for j:=1 to n do
       read(f1,A[i,j]);
for i:=2 to n do
    for j:=1 to i-1 do
       if A[i,j]=1 then s:=s+1;
writeln(f2,s);
close(f1);
close(f2);
end.
Объясните пожалуйста решение задачи?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Alexxandr
143 / 52 / 17
Регистрация: 12.11.2013
Сообщений: 162
22.11.2013, 17:04 2
Можете привести её условие?)
0
Sergio_Crowne
13 / 13 / 12
Регистрация: 15.06.2013
Сообщений: 43
22.11.2013, 17:20 3
идет чтение с файла, в котором записано n-(количество рядков и столбцов которые мы будем считывать)
в циклах for i:=2 to n do проверяем элементы, равняются ли они 1, все кроме первого и последнего, и тогда
for j:=1 to i-1 do
записываем в другой файл количество таких элементов
0
Настя Силина
1 / 2 / 0
Регистрация: 04.09.2013
Сообщений: 87
01.12.2013, 10:44  [ТС] 4
В галактике «Milky Way» на планете «Snowflake» есть N городов, некоторые из которых соединены дорогами. Император галактики «Milky Way» решил провести инвентаризацию дорог на планете «Snowflake». Но, как оказалось, он не силен в математике, поэтому он просит вас сосчитать количество дорог. Требуется написать программу, помогающую императору сосчитать количество дорог на планете «Snowflake».

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

В первой строке входного файла INPUT.TXT записано число N (0 ≤ N ≤ 100). В следующих N строках записано по N чисел, каждое из которых является единичкой или ноликом. Причем, если в позиции (i, j) квадратной матрицы стоит единичка, то i-ый и j-ый города соединены дорогами, а если нолик, то не соединены.

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

В выходной файл OUTPUT.TXT необходимо вывести число, определяющее количество дорог на планете «Snowflake».

Добавлено через 31 минуту
пожалуйста объясните как работает программа?
0
Ответ Создать тему
Опции темы

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