Mail

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

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

Модератор.

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

Страница 5

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

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

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

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

Комментарии

ОК

to top

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

Найти самую длинную последовательность из одинаковых чисел в массиве.

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

Uses crt;
Var a: array[1..50] of integer;
       l,k,i,n,: integer;
       r: char;
begin
write(‘Введите размер массива: ’); readln(n);
write(‘Введите элементы массива: ’); for i:= 1 to n do readln(a[i]);
k:=0;
for i:=2 to n do begin
                 if a[i-1]=a[i] then l:=l+1
                 else begin
                      if l>k then begin
                                  k:=l;
                                  r:=a[i];
                                  end;
                      l:=0;
                      end;
                 end;
write(k,’ раз повторяется символ’,r);
readln;
end;

Комментарии

1. Фоматирование, название переменных (l-маленькое заменено на m), лишние операторные скобки, в комментариях исправлены ошибки, объяснения ниже:

Uses crt;
Var a: array[1..50] of integer;
    m,k,i,n: integer;
    r: char;
begin
write('Введите размер массива: '); readln(n);
write('Введите элементы массива: ');
for i:= 1 to n do
  readln(a[i]);
k:=0; { m:=1; }
for i:=2 to n do
  if a[i-1]<>a[i] then
    begin
    if m>k then
      begin { ветка -1- }
      k:=m;
      r:=a[i]; { r:=a[i-1]; }
      end;
    m:=0; { m:=1; }
    end
  else m:=m+1;
write(k,’ раз повторяется символ’,r);
readln;
end.

2. Не определена изначально переменная l (m в моих обозначениях). Должно быть:

k:=0; m:=1;

Обратите внимание, что изначально m=1, а не нулю! И также внутри условного оператора -- единица потому, что у нас уже есть первый символ и мы сравниваем его со вторым. Если второй равен первому, то длина цепочки 2, а не 1, как получили бы вы. То есть по идее, ваш вариант должен выдавать результат на единицу меньше положенного и соответственно работать неправильно.
3. Еще одна ошибка в операторе r:=a[i]; Я поменял здесь индекс:
r:=a[i-1];
Смотрите, например для массива (15):
a: 0,1,2,1,0,1,2,2,2,2,1,0,1,2,2
i: 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5
ветка -1- будет работать при i=11 (a[7]=2;a[8]=2;a[9]=2;a[10]=2;a[11]=1). При этом a[i]=1, а наибольшая цепочка -- цепочка из четырех двоек.

to top

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

При вводе возраста от 0 до 99 программа должна подобрать нужное слово: лет, года или год. Пример: 21 год, 11 лет, 2 года и т.д.

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

const yst : array[0..9] of String[5] =
  ('let','god','goda','goda','goda','let','let','let','let','let');
var year,y,k,e:word;
    s:String;
begin
writeln;
for y := 0 to 199 do
  begin
  year:= y mod 100;
  k:= year div 10;
  e:= year mod 10;

  s:='let';
  if (k<>1) then s:=yst[e];
  write(y,' ',s,'; ');
  end;
end.

Комментарии

to top

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

Найти большее из четырех введенных чисел

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

program bolshe;
{ author Valeriy }
uses crt;
var a, b, c, d, bol, bol2: real;
begin;
clrscr;
writeln('введите четыре числа через пробел');
read(a, b, c, d);
if a>b then bol:=a else bol:=b;
if c>d then bol2:=c else bol2:=d;
if bol>bol2 then writeln('большее число',bol:5:5) else writeln('большее число',bol2:5:5);
readkey;
end.

Комментарии

Модератор: Я бы решал эту задачу по другому, но в любом случае,
при последней проверке должно делаться еще одно присваивание и
результат должен печататься только один раз (представьте, если
вам придется поменять текст вывода, например на "максимальное
число" - придется в двух местах менять, а это не есть правильно.)

to top

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

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