|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.05.2011, 10:36 | #1 |
Пользователь
Регистрация: 01.04.2009
Сообщений: 28
|
Что такое функция, созданная программистом, на примере данного текста?
Программа:
Program menu; Type Mas=Array[1..10] of Integer; {создаем тип – массив из 10 целых чисел} Var X:Mas; N,K:Integer; procedure vvod(var A: Mas); {процедура ввода массива} var I: integer; begin Writeln('Введите элементы массива:'); For I:=1 To 10 Do Read(A[I]); end; Procedure vivod(var A: Mas); {процедура вывода массива на экран} var I:integer; begin For I:=1 To 10 Do Write(A[I]:5); Writeln; end; procedure vichisl(var A: Mas); {процедура вычисления среднего арифметического} var I,sum:integer; begin sum:=0; For I:=1 To 10 Do sum:=sum+A[I]; {считаем сумму элементов} sum:=sum div 10; {вычисляем среднее арифметическое без дробной части} For I:=1 To 10 Do If A[I]>0 Then A[I]:=sum; {заменяем нулевые элементы на полученное число} End; Begin repeat writeln('1. Ввод массива 10 целых чисел:'); writeln('2. Вывод массива в строку:'); writeln('3. Вычисление среднего арифметического значения элементов массива и замена положительных элементов массива целой частью от среднего арифметического значения'); Writeln('4. Конец работы.'); writeln('Выберите пункт меню'); readln(K); case K of {проверка выбранного пункта меню} 1: vvod(X); 2: vivod(X); 3: vichisl(X); 4: break; else writeln('Нет такого пункта меню'); end; until K=4; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Что такое хорошо, а что такое плохо... | EL_MoC | Microsoft Office Word | 6 | 14.04.2011 18:49 |
верно ли, что среди символов данного текста есть n подряд идущих символов, | Yuliya-Nik | Помощь студентам | 0 | 06.10.2010 23:44 |
Что такое ^= ? | k1r1ch | Общие вопросы C/C++ | 3 | 10.01.2010 17:15 |
Что такое функция-друг и как ей пользоваться? | TwiX | Общие вопросы C/C++ | 2 | 03.12.2009 02:14 |
то такое мастерство в программировании, что такое мастер программист и что он может? | Cezar | Свободное общение | 29 | 02.06.2007 23:48 |