ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
помогите написать прграмку по турбо паскалю |
29.03.2010, 22:19
|
|
Новичок
Регистрация: 23.01.2010
Сообщений: 3
Провел на форуме:
8601
Репутация:
-1
|
|
помогите написать прграмку по турбо паскалю
ВИД проги:
Введите элементы массива (10 целых чисел) в одной строке и нажмите (Enter)
23 0 45 -5 12 0 -2 30 0 64
Сумма элементов масивва: 184
Количество ненулевых элементов: 7
Среднее орефметическое ненулевых элементов: 23.86
С масивами я не очень знаком да и на самом турбо паскале давно нечево не писал.
БУДУ БЛАГОДАРЕН ЗА ПОМОЩ
|
|
|
29.03.2010, 22:40
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
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);
Среднее :
|
|
|
|
29.03.2010, 22:42
|
|
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
Провел на форуме:
1747641
Репутация:
175
|
|
Ввод в данном случае правильно так делать:
Код:
var
massiv : array [1..10] of integer;
begin
writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите (Enter)');
for i:=1 to 10 do
read(massiv[i]);
То есть не readln, а именно read. |
|
|
|
29.03.2010, 22:48
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Chrome~, спс что исправил, просто на автомате все писал  ) |
|
|
|
29.03.2010, 22:59
|
|
Новичок
Регистрация: 23.01.2010
Сообщений: 3
Провел на форуме:
8601
Репутация:
-1
|
|
fenixelite спасибо большое за помощ щя опробую =)
|
|
|
|
30.03.2010, 10:56
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Отвечаю на вопросы всех оффтоперов.
Паскаль он создан по DOS и на нем можно было писать довольно хорошие проги по дос. Затем он эволюционировал и под windows. И дал людям юзать WinAPI функции. А этого уже стало достаточно чтобы писать любые программы (в том числе и сетевые).
Так что на нем можно написать и довольно мощные проги. Вон сколько народу пишут на Делфи. А по сути если из Делфи убрать VCL то и останется голый паскаль под Win32
Но сейчас паскаль стал не актуален, но его используют для обучения программированию потому как паскаль (не касаясь его объектно ориентированной части), имеет простой синтаксис. Легко запоминаем, имеет небольшой набор стандартный команд, что позволяет его использовать развития навыков алгоритмического программирования, где не должно быть особой привязки к конкретному языку.
Также наряду с паскалем и борланд с++ устарел. Потому как на нем можно написать тоже самое что и на паскале. Просто каждый язык эволюционировал во чтото новое, что сейчас и используется. Но основы программирования как были, так и остаются неизменными. И для их обучения подходит любой язык, который даёт человеку легко понять саму суть того что он делает и реализовать это.
Последний раз редактировалось slesh; 30.03.2010 в 11:04..
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
