0 / 0 / 0
Регистрация: 23.01.2019
Сообщений: 5
1

Найти длину самой длинной последовательности подряд идущих нулевых элементов массива (Pascal -> Fortran)

26.02.2019, 11:51. Показов 849. Ответов 2
Метки нет (Все метки)

Заданы число N и целочисленный массив A(N). Написать программу, определяющую длину самой длинной последовательности подряд идущих элементов массива, равных нулю.

Помогите переделать паскаль под фортран, очень выручите!)




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
var
    a: Array[Byte] Of ShortInt;
    i, n, maxCount, count: Byte;
begin
    Write('n='); ReadLn(n);
    Randomize; maxCount := 0; count := 0;
    for i := 0 to n - 1 do
    begin
        a[i] := Random(5) - 2;
        WriteLn(a[i]:3);
        if (a[i] = 0)
        then
            Inc(count)
        else
        begin
            if (count > maxCount)
            then
                maxCount := count;
            count := 0;
        end;
    end;
    if (count > maxCount)
    then
        maxCount := count;
    WriteLn('Max Count: ', maxCount);
end.
Добавлено через 7 минут
Правда программка выполняет условие кратно двум, но могу переделать под 0)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2019, 11:51
Ответы с готовыми решениями:

Определить длину самой длинной последовательности подряд идущих элементов массива, равных нулю
надо сделать 2 проги, а я в фортране вообще не шарю) 2)Заданы число N и целочисленный массив...

Найти длину самой длинной последовательности подряд идущих нулевых элементов массива
Задан числовой массив A(n). Найти длину самой длинной последовательности подряд идущих элементов...

Найти длину самой длинной последовательности подряд идущих элементов массива
Помогите написать программу:Задан целочисленный массив A(N). Найти длину самой длинной...

Найти длину самой длинной последовательности подряд идущих элементов массива, равных нулю
Задан одномерный массив. Найти длину самой длинной последовательности подряд идущих элементов...

2
67 / 58 / 20
Регистрация: 19.12.2014
Сообщений: 203
26.02.2019, 20:34 2
Вот:
Fortran
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
program ylaganne21
implicit none
integer n, count, i
integer, allocatable :: a(:), c(:)
 
open (5, file='input.txt')
open (6, file='output.txt')
 
read(5, *) n
allocate (a(n), c(n))
read(5, *) (a(i), i=1, n)
 
if (a(1) == 0) then
    count = 1
    c(1) = 1
else
    count = 0
    c(1) = 0
end if
 
do i = 2,n
    if (a(i) == 0) then
        count = count+1
    else
        count = 0
    end if
    c(i) = count
end do
 
count = maxval(c)
 
write(6, '(a, i3)') 'n=', n
write(6, '(a, i3, a, i3)') ('a(', i, ')=', a(i), i=1,n)
write(6, '(a, i3)') 'length of the longest sequence of consecutive zeros', count
 
end program ylaganne21
Вложения
Тип файла: txt input.txt (64 байт, 3 просмотров)
Тип файла: txt output.txt (303 байт, 2 просмотров)
0
67 / 58 / 20
Регистрация: 19.12.2014
Сообщений: 203
26.02.2019, 22:19 3
Покороче:
Fortran
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
program ylaganne21
implicit none
integer n, count, i
integer, allocatable :: a(:), c(:)
 
open (5, file='input.txt')
open (6, file='output.txt')
 
read(5, *) n
allocate (a(n), c(n))
read(5, *) (a(i), i=1, n)
 
do i = 1,n
    if (a(i) == 0) then
        count = count+1
    else
        count = 0
    end if
    c(i) = count
end do
 
count = maxval(c)
 
write(6, '(a, i3)') 'n=', n
write(6, '(a, i3, a, i3)') ('a(', i, ')=', a(i), i=1,n)
write(6, '(a, i3)') 'length of the longest sequence of consecutive zeros', count
 
end program ylaganne21
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.02.2019, 22:19
Помогаю со студенческими работами здесь

Определить длину самой длинной последовательности подряд идущих элементов массива, равных нулю
Помогите найти ошибку в коде. При вводе значений элементов массива, ну например (012300120001) - 12...

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

Найти сумму элементов самой длинной последовательности подряд идущих элементов массива
Задан массив натуральных чисел, элементы которого могут принимать значения от 1 до 1000. Найти и...

Определить длину самой длинной последовательности подряд идущих нулей
составить процедуру для определения длины самой длинной последовательности подряд идущих нулей в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru