Лабораторная

[masterlightsmoke]

не актуально

[Poma][a]

Меню? На паскале? А не на Дельфи?

[masterlightsmoke]

Сообщение от Poma][a

Меню? На паскале? А не на Дельфи?

консольное меню.
скачай архивчик, там в word файлах все написано.

[Poma][a]

Всё сори я прозрел

[Sciv]

Вот раньше хотели понравиться девушке - за ночь бы и паскаль выучили, и лабу сделали

Вот Ваше меню, не стоит оно сто рублей, угостите лучше девушку мороженым

[Poma][a]

А мне расскажите что за меню?) Просто на одной шарманке нет Word'a, на другой архиватора...

[masterlightsmoke]

Сообщение от Sciv

Вот раньше хотели понравиться девушке - за ночь бы и паскаль выучили, и лабу сделали

Вот Ваше меню, не стоит оно сто рублей, угостите лучше девушку мороженым

Красавчик)
спасибо)

[Sciv]

Рома, да просто в консоли на черном фоне меню вида:

"Нажмите 1 - решится задача 1
Нажмите 2 - докажете теорему Ферма
Нажмите 3 - выйдете в матрицу
нажмите 4 - попадете на бонусный уровень и получите шанс убить всех человеков"

Ну и ReadLn(n), естессно...

[Mad_Cat]

program zadacha;
var
  A: array[1..100] of integer;
  n, i, imax, imin, max, min, lg, pg: integer;
  mas, sum: integer;
  ops: string;
  e: integer;
  op: integer;
  yes: char;

procedure INputMAS;
begin
  writeln('Input N <=100');
  readln(n);
  for i := 1 to N do
  begin
    write('[', I, ']=');
    readln(A[I]);
  end;
end;

procedure OutputMAS;
begin
  for i := 1 to N do
    write('[', I, ']=', A[i],'  ');
  writeln;
end;

procedure TAsK1;
begin
  max := A[1];
  imax := 1;
  for I := 1 to N do
    if A[I] > max
      then begin
      max := A[I];
      imax := I;
    end;
  min := A[1];
  imin := 1;
  for I := 1 to N do
    if A[1] < min
      then begin
      min := A[I];
      imin := I;
    end;
  if imax > imin
    then begin
    lg := imin;
    pg := imax;
  end
  else if imax < imin
    then begin
    lg := imax;
    pg := imin;
  end;
  for I := lg + 1 to pg - 1 do
    write(A[I]:4);
end;

procedure Task2;
begin
  begin
    writeln('BBeguTe A:');
    readln(mas);
    sum := 0;
    for i := 1 to n do
      if a[i] > mas
        then sum := sum + a[i];
    writeln('CyMMa 4uceJI > ', mas, ' paBHa', sum);
  end;
end;
begin
  repeat
    yes := 'n';
    repeat
      writeln('  BapuaHT 5:');
      writeln('  1. BBog MaccuBa');
      writeln('  2. BbIBog MaccuBa');
      writeln('  3. 3aga4a N1');
      writeln('  4. 3aga4a N2');
      writeln('  5.  BbIxog!');
      write('BALLI BbI6op:');
      readln(ops);
      val(ops, op, e);
      if (e <> 0)
        then writeln('BbI BBeJIu He 4ucJIo ', ops,
          ' noBTopuTe BBog! ');
    until e = 0;
    case op of
      1: InputMas;
      2: OutputMas;
      3: TASK1;
      4: Task2;
      5: begin
          Write('BbI yBepeHbI  y/n:');
          readln(yes);
        end
    else writeln('HekoppeKTHbIu nyHkT MeHIO ', op);
    end;
  until (yes = 'y') or (yes='Y');
end.

[Poma][a]

Sciv, спасибо!