помогите написать прграмку по турбо паскалю

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by wagen, 29 Mar 2010.

  1. wagen

    wagen New Member

    Joined:
    23 Jan 2010
    Messages:
    3
    Likes Received:
    0
    Reputations:
    -1
    ВИД проги:
    Введите элементы массива (10 целых чисел) в одной строке и нажмите (Enter)
    23 0 45 -5 12 0 -2 30 0 64
    Сумма элементов масивва: 184
    Количество ненулевых элементов: 7
    Среднее орефметическое ненулевых элементов: 23.86
    С масивами я не очень знаком да и на самом турбо паскале давно нечево не писал.
    БУДУ БЛАГОДАРЕН ЗА ПОМОЩ
     
  2. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Ввод :
    Code:
     
    var
     massiv : array [1..10] of integer;
     sum,i,kolvo:integer;
     sr_arif:real;
    begin
     writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите (Enter)');
     for i:=1 to 10 do 
      readln(massiv[i]);
    
    сумма :
    Code:
     for i:=1 to 10 do
     sum:=sum+massiv[i];
    
    Кол-во ненулевых :
    Code:
     for i:=1 to 10 do 
     if massiv[i]<>0 then 
      inc(kolvo);
    
    Среднее :
    Code:
      
     sr_arif:=sum/kolvo;
    
     
    1 person likes this.
  3. Chrome~

    Chrome~ Elder - Старейшина

    Joined:
    13 Dec 2008
    Messages:
    936
    Likes Received:
    162
    Reputations:
    27
    Ввод в данном случае правильно так делать:
    Code:
    var
     massiv : array [1..10] of integer;
    begin
     writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите (Enter)');
     for i:=1 to 10 do 
      read(massiv[i]);
    То есть не readln, а именно read.
     
    1 person likes this.
  4. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Chrome~, спс что исправил, просто на автомате все писал :))
     
  5. wagen

    wagen New Member

    Joined:
    23 Jan 2010
    Messages:
    3
    Likes Received:
    0
    Reputations:
    -1
    fenixelite спасибо большое за помощ щя опробую =)
     
  6. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    Отвечаю на вопросы всех оффтоперов.
    Паскаль он создан по DOS и на нем можно было писать довольно хорошие проги по дос. Затем он эволюционировал и под windows. И дал людям юзать WinAPI функции. А этого уже стало достаточно чтобы писать любые программы (в том числе и сетевые).
    Так что на нем можно написать и довольно мощные проги. Вон сколько народу пишут на Делфи. А по сути если из Делфи убрать VCL то и останется голый паскаль под Win32

    Но сейчас паскаль стал не актуален, но его используют для обучения программированию потому как паскаль (не касаясь его объектно ориентированной части), имеет простой синтаксис. Легко запоминаем, имеет небольшой набор стандартный команд, что позволяет его использовать развития навыков алгоритмического программирования, где не должно быть особой привязки к конкретному языку.
    Также наряду с паскалем и борланд с++ устарел. Потому как на нем можно написать тоже самое что и на паскале. Просто каждый язык эволюционировал во чтото новое, что сейчас и используется. Но основы программирования как были, так и остаются неизменными. И для их обучения подходит любой язык, который даёт человеку легко понять саму суть того что он делает и реализовать это.
     
    #6 slesh, 30 Mar 2010
    Last edited: 30 Mar 2010
    1 person likes this.
Loading...
Similar Threads - помогите написать прграмку
  1. Peja
    Replies:
    0
    Views:
    2,484