Решение задачи №2 из главы 15

Primary tabs

gani84's picture
Submitted by gani84 on Fri, 10/16/2020 - 11:39

Forums:

Решение задачи №2 из главы 15

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

Вывод консоли
vvedite element massiva nomer 2:
2
vvedite element massiva nomer 3:
5
vvedite element massiva nomer 4:
6
vvedite element massiva nomer 5:
8
vvedite element massiva nomer 6:
7
vvedite element massiva nomer 7:
3
Naibolshee znachenie =3 

var a:array[1..7] of integer; i,max:integer;
  begin
    for i:=2 to 7 do
    begin
     max:=a[1];
     writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
     readln(a[i]);  // считываем элемент i массива 'a' из консоли
   end;
   if A[i]>max
        then max:=A[i];
    writeln('Naibolshee znachenie =', max);
    readln();
  end.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 8852 reads

math2

Fri, 10/16/2020 - 14:00

Это почти то же, что

var a:array[1..7] of integer; i,max:integer;
  begin
    for i:=2 to 7 do
    begin
      max:=0;
      writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
      readln(a[i]);  // считываем элемент i массива 'a' из консоли
    end;
    if a[7]>max
      then max:=a[7];
    writeln('Naibolshee znachenie =', max);
    readln();
  end.
vedro-compota's picture

vedro-compota

Fri, 10/16/2020 - 14:20

+ неправильное форматирование

_____________
матфак вгу и остальная классика =)

vedro-compota's picture

vedro-compota

Sun, 10/18/2020 - 20:47

Сейчас работает эквивалентно:

var a:array[1..7] of integer; i,max:integer;
  begin
    for i:=2 to 7 do
    begin
      max:=0;
      writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
      readln(a[i]);  // считываем элемент i массива 'a' из консоли
    end;
    if a[7]>0
      then max:=a[7];
    writeln('Naibolshee znachenie =', max);
    readln();
  end.

_____________
матфак вгу и остальная классика =)

vedro-compota's picture

vedro-compota

Sun, 10/18/2020 - 20:52

1)

 for i:=2 to 7 do

-- почему не заполняется первый элемент массива?

2) Решите задачу:

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Sat, 10/24/2020 - 14:40 

Вывод консоли что то не то
vvedite element massiva nomer 1:
2
vvedite element massiva nomer 2:
6
vvedite element massiva nomer 3:
9
vvedite element massiva nomer 4:
5
vvedite element massiva nomer 5:
22
vvedite element massiva nomer 6:
3
vvedite element massiva nomer 7:
4
Naibolshee znachenie =2
Naibolshee znachenie =6
Naibolshee znachenie =9
Naibolshee znachenie =22



var a:array[1..7] of integer; i,max:integer;
begin

    for i:=1 to 7 do
    begin
     writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
     readln(a[i]);  // считываем элемент i массива 'a' из консоли
     max:=0;
    end;

    for i:=1 to 7 do
    begin
      if a[i]>max
           then
      begin
        max:=a[i];
        writeln('Naibolshee znachenie =', max);
      end;
    end;
    readln();
end.
vedro-compota's picture

vedro-compota

Sun, 10/25/2020 - 16:19 

-1 -2 -3 -4 -5
max = 0

-- это неправильно.

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Mon, 10/26/2020 - 20:25 

Распечатка консоли
vvedite element massiva nomer 2:
2
vvedite element massiva nomer 3:
3
vvedite element massiva nomer 4:
444
vvedite element massiva nomer 5:
5
vvedite element massiva nomer 6:
6
vvedite element massiva nomer 7:
88
Naibolshee znachenie =444

var a:array[1..7] of integer; i,max:integer;
begin
    max:=a[1];// назначаем первый элемент максимальным
    for i:=2 to 7 do
    begin
      writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
      readln(a[i]);  // считываем элемент i массива 'a' из консоли
    end;

    for i:=2 to 7 do
    begin
      if a[i]>max
         then
             max:=a[i];
    end;
    writeln('Naibolshee znachenie =', max);
    readln();
end.
vedro-compota's picture

vedro-compota

Sun, 11/01/2020 - 16:44 

for i:=2 to 7 do
    begin
      writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
      readln(a[i]);  // считываем элемент i массива 'a' из консоли
    end;

-- выведите массив на экран. Чему равен первый элемент?

_____________
матфак вгу и остальная классика =)

vedro-compota's picture

vedro-compota

Sun, 11/01/2020 - 16:46

проверьте на значениях: -1 -1 -1 -1 -1 -1 -1

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Tue, 11/03/2020 - 19:00 

Вывод консоли
vvedite element massiva nomer 1:
1
vvedite element massiva nomer 2:
3
vvedite element massiva nomer 3:
555
vvedite element massiva nomer 4:
6
vvedite element massiva nomer 5:
4
vvedite element massiva nomer 6:
2
vvedite element massiva nomer 7:
35
Naibolshee znachenie =555

var a:array[1..7] of integer; i,max:integer;
begin

    for i:=1 to 7 do
    begin
      writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
      readln(a[i]);  // считываем элемент i массива 'a' из консоли
    end;
    max:=a[1];// назначаем первый элемент максимальным
    for i:=1 to 7 do
    begin
      if a[i]>max
         then
             max:=a[i];
    end;
    writeln('Naibolshee znachenie =', max);
    readln();
end.
vedro-compota's picture

vedro-compota

Sun, 11/08/2020 - 16:48

решение засчитано

_____________
матфак вгу и остальная классика =)