Mail

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

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

Модератор.

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

Страница 4

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

Cоставить прог-му, заменяющую единицей все нулевые элементы массива a[n] вещественных чисел.

Решение
Автор: strike

Var a:array[1..100] of real;
       n,i: integer;
begin
   write('Введите количество элементов: '); readln(n);
   write('Введите элементы массива'); for i:=1 to n do readln(a[i]);
   for i:= 1 to n do
      if a[i]=0 then a[i]:=1;
   for i:=1 to n do write (a[i],' ');
readln;
end.

Комментарии

Подумалось. Можно цикл ввода и замены объединить в один. А так верно.

to top

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

Составить прог-му, проверяющую, есть ли среди элементов массива a[n] те, которые принадлежат интервалу (c,d).

Решение
Автор: strike

Var a:array[1..100] of real;
       n,i: integer;
       c,d: real;
       z: string;
begin
   write('Введите количество элементов: '); readln(n);
   write('Введите элементы массива'); for i:=1 to n do readln(a[i]);
   write('Введите границы интервала с,d: '); readln(c,d);
   z:='нет таких элементов';
   for i:=1 to n do
      if (a[i]>c) and (a[i]<d)
          then z:='есть такие элементы';
   write(z);
readln;
end.

Комментарии

Тут однозначно цикл for надо заменить на while или repeat. Совершенно незачем просматривать 99 оставшихся элементов, если первый оказался внутри интервала.

to top

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

Составить программу циклической перестановки элементов одномерного массива a[n], при которой i-ый элеент становится i+1-м, а последний элемент становится первым.

Решение
Автор: strike

Var a:array[1..100] of real;
       n,i: integer;
       s: real;
begin
   write('Введите количество элементов: '); readln(n);
   write('Введите элементы массива'); for i:=1 to n do readln(a[i]);
    s:=a[n];
    for i:= n downto 2 do
      a[i]:=a[i-1];
    a[1]:=s;
    writeln('Новый массив: ');
    for i:= 1 to n do write(a[i]);
readln
end.

Комментарии

замечательно. Обратите внимание, что используется только одна дополнительная переменная. Многие пытаются использовать второй массив, что, конечно, не ошибка, но совершенная расточительность.

to top

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

Составить прог-му построения массива b[n], состоящего из тех же элементов, что и массив a[n], но в котором все отрицательные элементы предшествуют всем положительным.

Решение
Автор: strike

Var a,b:array[1..100] of real;
       n,i,t,k: integer;
begin
   write('Введите количество элементов: '); readln(n);
   write('Введите элементы массива'); for i:=1 to n do readln(a[i]);
   k:=0; t:=0;
   for i:=1 to n do
      if a[i]<0 then begin
                            k:=k+1;
                            b[k]:=a[i];
                            end
       else begin
               t:=t+1;
               b[n-t+1]:=a[i]
               end;
     for i:= 1 to n do write(b[i], ' ');
readln;
end.

Комментарии

Очень хорошо! Первое, что хочется сделать, это решить "в лоб". Пробежаться и найти все отрицательные, а потом все положительные. Тут же предложено решение "за один проход". Про нули в условии ничего не сказано, так что "браво!"

to top

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

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