Mail

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

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

Модератор.

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

Страница 11

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

Вывести каждое третье число в промежтке от ста до одного.

Решение

program vivd3;
uses crt;
var i, k: byte; s:real;
    begin
    clrscr;
    readln(s);
    for i:=33 downto 1 do
      begin
       k:=i*3+1;
       s:=s+k;
        writeln(k); writeln('s=',s:6:2);
        end;
readln;
end.

Комментарии

1. Здесь "потеряно" одно число - последнее, коим должна быть единица. В седньмой строке должно быть for i:=33 downto 0 do
2. В задании ничего не говорится про подсчет суммы этих чисел. Но если уж его осуществлять, то в шестой строке должно быть "s:=0;" вместо оператора чтения.
3. Выходные данные читать неудобно. Я бы не переводил строку при печати k. 11-я строка выглядела бы так:
writeln(k:4,'; s=',s:6:2);

to top

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

Составить программу нахождения наибольшего общего делителя двух чисел М и Р, пользуясь алгоритмом Евклида

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

Var m,p: integer;
Begin
   Write(‘Введите числа М и Р: ’); readln(m,p);
While p<>m do begin
              If m<p then p:=p-m
              Else m:=m-p;
              End;
Write(‘Наибольший общий делитель: ’,m);
Readln
End.

Комментарии

Лишние операторные скобки в while.

while p<>m do
if m<p then p:=p-m
else m:=m-p;

to top

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

Составьте программу в которой при помощи функции находится max(2x,3x-10, max(x2-x,x3-x2-3x), max(a-x, x-a)) при заданных с терминал х и а.

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

program maxOTmax;
   Uses
       crt;
   var x,a,c,j:real;
      FUNCTION max(y,b:real):real;
         BEGIN
            if y>b then
               max:=y
            else
               max:=b;
         END;
begin
ClrScr;
   write('введите значения х и а ');
   readln(x,a);
   c:=max(max(2*x,3*x-10),max(max(x*x-x,x*x*x-x*x-3*x),max(a-x,x-a)));
   writeln(c:6:2);

readln;
end.

Комментарии

Замечательно! Пара мелких и несущественных замечаний.
1. Есть специальная функция квадрата числа: sqr(x) (не путать с sqrt(x)!)
тогда главная строка будет записана:
c:=max(max(2*x,3*x-10),max(max(sqr(x)-x,x*sqr(x)-sqr(x)-3*x),max(a-x,x-a)));
2. Строку вывода я бы дополнил:
writeln(' Минимальное значение при данных параметрах: ',c:6:2);

to top

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

Составьте программу в которой при помощи функции находится максимальный элемент массивов А(22), Р(12), Т(33), затем общий максимальный элемент, затем при помощи процедуры все отрицательные элементы каждого из трех массивов замените на модуль первого элемента соответствующего массива для массивов А(22), Р(12), Т(33). Предусмотреть вывод на экран исходных и измененных массивов.

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

program lab4zad2;
   Uses
       crt;
   Const n=22;n1=12;n2=33;
   type
       mas=array[1..n2] of integer;
       var a, p, t:mas; i:byte;
      bol:integer;
{---------------------------------------------------------------------------}
procedure sozdviv(var x:mas; l:byte);
begin
writeln;
for i:=1 to l do
  begin
   x[i]:= random(100)-25;
    write(x[i]:5);
      end;
  writeln
end;
{---------------------------------------}
function max( x: mas; l:byte):integer;
var m,k: integer;
begin
m:=x[i];
for i := 1 to l do
if x[i]>m then m:=x[i];
max:=m
  end;
{----------------------------------------}
Function maxx(max,max1, max2:integer):integer;
var max3: integer;
begin
if max>max1 then
         max3:=max
      else
         max3:=max1;
      if max3>max2 then
         writeln('максимальное число из 3-х массивов=',max3)
      else
         writeln('максимальное число из 3-х массивов=',max2);
         writeln
         end;
{-------------------------------------------}
procedure obch(var a:mas;l:byte);
begin
         For i:=1 to l do
            if a[i]<0 then begin
             a[i]:= abs(a[i]);
             end;
             for i:=1 to l do
              write(a[i]:4);

writeln;
END;
{-------------------------------------}

BEGIN
randomize;
clrscr;
sozdviv(a,n);
sozdviv(p,n1);
sozdviv(t,n2);
writeln('максимальный елемент массива а: ', max(a,n));
writeln('максимальный елемент массива p: ', max(p,n1));
writeln('максимальный елемент массива t: ', max(t,n2));
writeln;
bol:= maxx(max(a,n),max(p,n1),max(t,n2));
writeln('модуль отрицательных чисел массива а: ');obch(a,n);
writeln('модуль отрицательных чисел массива p: ');obch(p,n1);
writeln('модуль отрицательных чисел массива t: ');obch(t,n2);
readkey
end.

Комментарии

1. Относительно строк:
   Const n=22;n1=12;n2=33;
   type
       mas=array[1..n2] of integer;
Понятно желание описать максимально возможный из трех массивов, но лучше описать еще одну константу n_max=33 для mas, иначе в какой-то степени теряется смысл описания констант - мы не можем менять их произвольным образом, не меняя при этом остальную программу. Но в принципе ошибки нет.
2. Названия функций - я бы заменил:
max() -> getMaxInArray()
maxx() -> maxInteger
3. Смысл написания функций - в повторном использовании кода. Это означает, что надо понять, что эта функция должна делать в общем случае. Например, maxx ищет максимальное из трех чисел - пускай она и возвращает это значение, а не выводит информацию специфичную для данного конкретного случая, когда мы ищем максимальное число из трех массивов. Я бы переписал:

Function maxx(max1,max2,max3:integer):integer;
  var max: integer;
  begin
  max:=max1;
  if max2>max then max:=max2;
  if max3>max then max:=max3;
  maxx:=max;
  end;

А в основном коде строку bol:= ... заменил бы на:

  writeln('максимальное число из 3-х массивов=',
    maxx(max(a,n),max(p,n1),max(t,n2))

4. Никакая работа не должна выполняться дважды, если того можно избежать. В данной программе функции вызываются дважды: max(a,n),max(p,n1),max(t,n2) сначала для нахождения максимума по отдельности, потом для нахождения максимума для всех. Нужно ввести еще три переменные, например, maxA,maxP,maxT и присвоить им соответствующие значения max(a,n),max(p,n1),max(t,n2), а потом, ниже сначала печатать эти переменные, потом печатать максимум этих трех переменных.

maxA:=max(a,n);
writeln('максимальный елемент массива а: ', maxA);
maxP:=max(p,n1);
writeln('максимальный елемент массива p: ', maxP);
maxT:=max(t,n2);
writeln('максимальный елемент массива t: ', maxT);
writeln;
writeln('максимальное число из 3-х массивов=',
  maxx(maxA,maxP,maxT);

5. По-моему, недопонято задание: "все отрицательные элементы каждого из трех массивов замените на модуль первого элемента соответствующего массива" - модуль ПЕРВОГО элемента, а не каждого, поэтому в процедуре obch(var a:mas;l:byte) вместо:

            if a[i]<0 then begin
             a[i]:= abs(a[i]);

должно быть:

            if a[i]<0 then begin
             a[i]:= abs(a[1]);

6. Замечание. Старайтесь не использовать нигде букув l (эль маленькое) для названия переменных. Она очень похожа на 1 (единицу). Пишите уж тогда L, чтоб не ошибиться.
7. Процедура obch(var a:mas;l:byte). Опять же в процедурах должно выполняться только одно действие (смысловой блок). Если она заменяет отрицательные элементы в массиве, то не надо вставлять в нее вывод массива. Это как покупка с нагрузкой. Вы покупаете диск "Битлз", а вам "в нагрузку" вручают еще и "78-ю увертюру Васи Пупкина" - покупай все или ничего! Ну хочу я обработать массив, но не хочу его выводить - дайте мне такую возможность! Я бы оформил здесь функцию вывода массива на экран и использовал ее там, где необходимо.
8. Давайте функциям более "говорящие" имена. modifyMassiv более умеснта на мой взгляд, чем obch.

to top

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

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