Mail

Уголок начинающего программиста

В данном разделе приводятся программы, написанные посетителями данного сайта. Идея данного раздела принадлежит Валерию из города Новотроицк Оренбургской области, который прислал мне письмо, в котором предложил публиковать его программы, мотивировав это тем, что на сайте не хватает простых, элементарных программ. А поскольку он все-равно будет "мучаться", то чтоб труд не пропадал зря, он предложил размещать его примеры на сайте. Мне эта идея понравилась и вот первая партия программ размещена в данном новом разделе. Я постараюсь снабжать программы комментариями, если что-то можно сделать в программах лучше. Я не обещаю проверять данные программы на работоспособность, компилируя их, но просматривать на предмет ошибок обязательно буду.

Модератор.

Задач в выбранных темах: 66

Страница 1

Условие задачи

Написать программу поиска максимального элемента и его индексов в одномерном массие.

Решение

program Max_search;
uses crt;
const m=50;
type vector=array[1..m] of integer;
var a:vector;
    i,imax,max,p:integer;
Begin
clrscr;
    randomize;
    writeln('Создание массива и его вывод');
      for i:=1 to m do
         begin
           p:=random(50);
           a[i]:=p-30;
           write(a[i]:4);
         end;
      max:=a[1];
      for i:=2 to m do
        if max<a[i] then
          begin
          max:=a[i];
          imax:=i
        end;
      writeln;
      writeln('значение максимального=',max);
      writeln('Индекс максимального=',imax);
      writeln('Для завершения работы нажмите <Enter>');
readln
END.

Комментарии

Замечания:
1. При выводе начального массива хорошо бы выводить не только сам элемент, но и его индекс. Иначе проверка задачи сильно усложнится даже для m=50. Поэтому я бы написал:
write(' a[',i:3,']=',a[i]:4);
2. В случае если первый элемент окажется максимальным, значение imax будет неопределено. Поэтому должно быть:
max:=a[1]; imax:=1;
3. В условии задачи сказано "и его индексов" - множественное число. Значит необходимо проверять не равны ли другие элементы максимальному и если да, то сохранять где-то в другом массиве эти индексы. При этом при смене максимума этот массив надо очищать.

to top

Условие задачи

Напишите программу поиска максимального и минимального элементов одномерного массива и их индексов.

Решение

program Max_search;
uses crt;
const m=50;
type vector=array[1..m] of integer;
var a:vector;
     min,imin,i,imax,max,p:integer;
Begin
clrscr;
    randomize;
    writeln('Создание массива и его вывод');
      for i:=1 to m do
         begin
           p:=random(50);
           a[i]:=p-30;
           write(a[i]:4);
         end;
      max:=a[1];
      for i:=2 to m do
        if max<a[i] then
          begin
          max:=a[i];
          imax:=i
          end
        else
        if min>a[i] then
          begin
          min:=a[i];
          imin:=i
          end;
      writeln;
      writeln('значение максимального=',max);
      writeln('Индекс максимального=',imax);
      writeln('значение минимального=',min);
      writeln('Индекс минимального=',imin);
      writeln('Для завершения работы нажмите <Enter>');
readln
END.

Комментарии

1. См. комментарии 1,2 предыдущего примера.
2. min изначально не определено.
3. Совершенно лишний оператор else. Возможно, и не существует набора данных при которых данный алгоритм будет работать неправильно, но это требует доказательства. Гораздо проще поставить в цикле операторные скобки begin end и убрать else.
      for i:=2 to m do
        begin
        if max<a[i] then
          begin
          max:=a[i];
          imax:=i
          end;
        if min>a[i] then
          begin
          min:=a[i];
          imin:=i
          end;
        end;
Это будет работать однозначно. Хотя, если доказать, что набора данных при котором исходный алгоритм будет работать неправильно не существует, то он будет более эффективным, поскольку в нем будет на несколько операций сравнения меньше.

to top

Условие задачи

Напишите программу поиска максимального элемента одномерного массива и его индекса. Массив сформировать как константу.

Решение

program post;
uses crt;
const m=15;a: array[1..m] of byte=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
var i,imax,max,p:integer;
...
далее как в примере 14.

Комментарии

ОК

to top

Условие задачи

Требуется упорядочить массив T(20) по невозрастанию.

Решение

program T20;
   uses crt;
   const n=20;
   Var i,a,b,c,d:integer;
   mas:array [1..n] of integer;
   begin
   clrscr;
randomize;
for i:=1 to n do
begin
mas[i]:=random(25);
write(mas[i]:3);
end;
writeln;
for b:=1 to n do
begin
for i:=1 to n do
begin
  if mas[i-1]<mas[i] then begin a:=mas[i-1];mas[i-1]:=mas[i]; mas[i]:=a;
end;
end;
end;
writeln;
for i:=1 to n do write(mas[i]:3);
readln;
end.

{переформатированный вариант - Модератор}

program T20;
uses crt;
const n=20;
var i,a,b,c,d:integer;
    mas:array [1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
  mas[i]:=random(25);
  write(mas[i]:3);
  end;
writeln;
for b:=1 to n do
  begin
  for i:=1 to n do
    begin
    if mas[i-1]<mas[i] then
      begin
      a:=mas[i-1];
      mas[i-1]:=mas[i];
      mas[i]:=a;
      end;
    end;
  end;
writeln;
for i:=1 to n do
  write(mas[i]:3);
readln;
end.

Комментарии

1. Вывод начального массива как в предпредыдущем примере.
2. Для внешнего цикла не нужны операторные скобки begin end.
3. Как видно, сделана попытка использовать обратный метод пузырька, но приведенное решение не совсем правильно. Начать с того, что в цикле при i=1 программа должна завершиться по ошибке выхода индекса за допустимые границы массива, т.к. mas[] определен от 1 до n. Всегда проверяйте граничные значения.
Приведенный аглоритм неэффективен, поскольку производится n проходов по массиву порядка n. Более эффективно написать так:
for b:=1 to n-1 do
  for i:=n downto b+1 do
    if mas[i-1]<mas[i] then
      begin
      a:=mas[i-1];
      mas[i-1]:=mas[i];
      mas[i]:=a;
      end;
Суть метода заключается в том, чтобы при первом проходе на последнем месте месте оказался миниимальный элемент. Тогда на следующем проходе, нам уже нужно просматривать только n-1 эелементов, на том который за ним n-2 эл-та и т.д. На последнем (n-1)-ом этапе надо просмотреть только 2 элемента.

to top

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Задач в выбранных темах: 66