Помощь - Поиск - Пользователи - Календарь
Полная версия: Линейный Масив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
givi
Люди помогите сделать Эту программу три пункта из меню вроде сделал а астольное не получается Помогите завтра срочно надо :o :p2:
Код
Program line_Massiv;
uses crt;
Const N=12;
Var mas:array[1..N] of integer;
   i,k,x,y,max,min,num,sum,cr : integer;

begin
While x<>10 do begin
           Clrscr;
     Textcolor(15);
     Write('1-Запуск 2-Вывод 3-Поиск 4-max 5-Min 6-сумма и средние 7-Сдвиг 8-Симетричное отображение 10-выход');
     Writeln(x);
     Readln(x);
  if x=1 then begin
        for i:=1 to N do mas[i]:=Random(100)+1;
end;
     if x=2 then begin
        for i:=1 to N do Write(mas[i],' ');
end;
   if x=3 then begin
        k:=0;
        write('Введите чесло'); read(y);
        for i:=1 to n do begin
            if y=mas[i] then begin write(mas[i],' ',i); k:=k+1; end;
end;
        If k=0 then Writeln('НЕ НАЙДЕНО!!!')
        else Writeln(Кол-во=',k);
?????????????


writeln;
write('Pres any Key');
Readkey;
end.

Зарание спасибо!!!!!!!!!
Amro
А где само задание???
volvo
Amro

Смотри меню в программе... ;)

givi

Неужели так сложно посмотреть на правила (пункт 5) blink.gif
givi
Нужно создать линейный масив
1. Внем должно быть меню (1-Запуск 2-Вывод 3-Поиск 4-max 5-Min 6-сумма и средние 7-Сдвиг 8-Симетричное отображение 10-выход)

Т.Е нажимаю еденицу запускается масивнажимаю,2 вижу числа масива
3-поиск числа в массиве
4-Максимальное число в Масиве и его место
5-минимальное.........
6-Сумма и средние значение всех чисел массива
7-сдвиг масива наоборот т.е ну к примеру(1234567..234567)
8-Симетричное отображение масива т.е(123456654321)
10- выход из программы....

unsure.gif
volvo
givi

Измени меню ... :D

Код

program LineArray;

uses crt;

const
 n = 12;

var
 mas: array[1 .. n] of integer;

 i,k,x,y,
 T, max, min, ix, s: integer;

begin
 repeat
   clrscr;
   textcolor(15);
   write('1-... 2-... 3-... 4-max 5-min 6-... 7-... 8-... 10-exit');
   write(':> '); readln(x);

   case x of
     1: for i := 1 to n do
          mas[i] := random(100) + 1;

     2: for i := 1 to n do
          write(mas[i], ' ');

     3:
       begin
         k := 0;
         write('enter the number'); readln(y);
         for i := 1 to n do
           if y = mas[i] then
             begin
               write(mas[i],' ',i); inc(k)
             end;

         if k = 0 then writeln( 'not found' )
         else writeln( 'amount = ', k )
       end;

     4:
       begin
         ix := 1; max := mas[ix];
         for i := 2 to n do
           if mas[i] > max then
             begin
               max := mas[i]; ix := i
             end;
         writeln('max = ', max);
         writeln('index = ', ix)
       end;

     5:
       begin
         ix := 1; min := mas[ix];
         for i := 2 to n do
           if mas[i] < min then
             begin
               min := mas[i]; ix := i
             end;
         writeln('min = ', min);
         writeln('index = ', ix)
       end;

     6:
       begin
         s := 0;
         for i := 1 to n do
           s := s + mas[i];

         writeln( 'sum = ', s );
         writeln( 'average = ', s / n );
       end;

     7:
       begin
         for i := 1 to n do
           write(mas[i], ' ');

         T := mas[1];
         for i := 2 to n do
           mas[i - 1] := mas[i];
         mas[n] := T;

         for i := 1 to n do
           write(mas[i], ' ');
       end;
     8:
       begin
         for i := 1 to n do
           write(mas[i], ' ');
         for i := n downto 1 do
           write(mas[i], ' ')
       end;

   end;
   writeln;
   writeln( 'enter to continue...' );
   readln;
 until x = 10;

end.
givi
VoIvo Спасибо!!!!!!!!!!! rolleyes.gif :P :p1:
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.