HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

помогите написать прграмку по турбо паскалю
  #1  
Старый 29.03.2010, 22:19
wagen
Новичок
Регистрация: 23.01.2010
Сообщений: 3
С нами: 8578051

Репутация: -1
Post помогите написать прграмку по турбо паскалю

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

  #2  
Старый 29.03.2010, 22:40
fenixelite
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами: 8556802

Репутация: 79
По умолчанию

Ввод :
Код:
 
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]);
сумма :
Код:
 for i:=1 to 10 do
 sum:=sum+massiv[i];
Кол-во ненулевых :
Код:
 for i:=1 to 10 do 
 if massiv[i]<>0 then 
  inc(kolvo);
Среднее :
Код:
  
 sr_arif:=sum/kolvo;
 
Ответить с цитированием

  #3  
Старый 29.03.2010, 22:42
Chrome~
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
С нами: 9162683

Репутация: 175
По умолчанию

Ввод в данном случае правильно так делать:
Код:
var
 massiv : array [1..10] of integer;
begin
 writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите (Enter)');
 for i:=1 to 10 do 
  read(massiv[i]);
То есть не readln, а именно read.
 
Ответить с цитированием

  #4  
Старый 29.03.2010, 22:48
fenixelite
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами: 8556802

Репутация: 79
По умолчанию

Chrome~, спс что исправил, просто на автомате все писал )
 
Ответить с цитированием

  #5  
Старый 29.03.2010, 22:59
wagen
Новичок
Регистрация: 23.01.2010
Сообщений: 3
С нами: 8578051

Репутация: -1
По умолчанию

fenixelite спасибо большое за помощ щя опробую =)
 
Ответить с цитированием

  #6  
Старый 30.03.2010, 10:56
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами: 10097606

Репутация: 3349


По умолчанию

Отвечаю на вопросы всех оффтоперов.
Паскаль он создан по DOS и на нем можно было писать довольно хорошие проги по дос. Затем он эволюционировал и под windows. И дал людям юзать WinAPI функции. А этого уже стало достаточно чтобы писать любые программы (в том числе и сетевые).
Так что на нем можно написать и довольно мощные проги. Вон сколько народу пишут на Делфи. А по сути если из Делфи убрать VCL то и останется голый паскаль под Win32

Но сейчас паскаль стал не актуален, но его используют для обучения программированию потому как паскаль (не касаясь его объектно ориентированной части), имеет простой синтаксис. Легко запоминаем, имеет небольшой набор стандартный команд, что позволяет его использовать развития навыков алгоритмического программирования, где не должно быть особой привязки к конкретному языку.
Также наряду с паскалем и борланд с++ устарел. Потому как на нем можно написать тоже самое что и на паскале. Просто каждый язык эволюционировал во чтото новое, что сейчас и используется. Но основы программирования как были, так и остаются неизменными. И для их обучения подходит любой язык, который даёт человеку легко понять саму суть того что он делает и реализовать это.

Последний раз редактировалось slesh; 30.03.2010 в 11:04..
 
Ответить с цитированием
Ответ



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать программу! -slim- Болталка 6 02.12.2008 00:43
Помогите написать скрипт на javascript Micr0b PHP 19 17.01.2006 17:02
помогите написать прогу на СИ. k1b0rg Болталка 3 12.12.2005 03:46



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.