Написать модуль - Turbo Pascal

  1. Замените с использованием модулей личной библиотеки, каждый положительный элемент массива А заменить на значение суммы первого и последнего элементов массива В;


textual

Код к задаче: «Написать модуль - Turbo Pascal»

unit ybf19;
 
interface {интерфейсная часть}
 
const n = 10;
type TArray = array[1..n] of integer;
 
procedure input (var z : TArray); {ввод массива z}
procedure output (z : TArray); {вывод массива z}
function sumOfFnL (z : TArray) : integer; {сумма 1 и последнего в z}
procedure process (var z : TArray; k : integer); {выполняет замену по заданию}
 
implementation {реализация подпрограмм модуля}
 
procedure input (var z : TArray); {ввод массива z}
var i : integer;
begin
  for i := 1 to n do
    z[i] := random(20) - 10;  
end;
 
procedure output (z : TArray); {вывод массива z}
var i : integer;
begin
  writeln;
  for i := 1 to n do
    write(z[i]:7);
  writeln
end;
 
function sumOfFnL (z : TArray) : integer;
begin
  sumOfFnL := z[1] + z[n]
end;
 
procedure process (var z : TArray; k : integer);
var i : integer;
begin
  for i := 1 to n do
    if z[i] > 0 then z[i] := k
end;
 
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.286 из 5



Похожие ответы
  1. Есть процедура на Pascal (посчитует суму в кажой строке матрицы)

  1. 1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.

  1. Создать модуль, дополняющий математические возможности Паскаля функциями для нахождения площади треугольника: «sGeron» - по известным трем сторонам, «sH» - по известным высоте и стороне основания, «Salfa» - по двум сторонам и углу между ними. Составить программу, которая использует данный модуль.

  1. Используя подсистему прерываний написать программу, которая выводит на экран информацию о параметрах НЖМД. $ 13 - дисковые службы Перечень функций (номер функции при вызове прерывания должен содержаться в регистре АН): 0 - сброс дисковой системы; 1 - определение состояния диска; 2 - чтение секторов диска; 3 - запись секторов диска; 5 - форматирование дорожки; 8 - определение текущих параметров диска; 10 - проверка готовности диска; При задании входных параметров обычно используется следующая схема: АН = номер функции; AL = количество секторов (1-128) СН - количество цилиндров (0-1023) CL = номер сектора (1-17) DH = номер головки (0-15) DL = номер дисковода (0 = А :, 1 = 2-й флоппи; $ 80 = жесткий диск 0, $ 81 = жесткий диск 1). возвращает: CF = 0 в случае успеха, = 1 в случае ошибки.

  1. написать две программы чтобы в конце программ выдалось это изображение $ и ромб

  1. Помогите решить интересную задачу, в нете искал и не смог найти нормального ответа. ЗАранее Спасибо! Написать подрограмму для логического оператора AND, без использования логических операторов . Напривер a and b .

  1. Добрый вечер всем! Помогите, пожалуйста, первокурснице-студентке) Идет такое задание: Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор While: - 0,13+ 0,16 -0,19+…-0,31 Написала так, но ответ неверный( Когда считаешь вручную ответ идет -0,22, а по программе просто 0,22. Подскажите, пожалуйста, в чем моя ошибка.

  1. Совершенно не понимаю как делать цикл, перерыл весь интернет, но как решать до меня дойти не смогло. Прошу помощи в написании программы. Вычислить с погрешностью E=0.1E-4, если сумма где X=0.71

  1. Помогите написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел, только чтоб в одной строке... Рекамендуемый вид экрана: Введите элементы массива (10 целых чисел) в одной строке и нажмите . -> 23 0 45 -5 12 0 -2 30 0 64 Сумма элементов массива: 184 Количество ненулевых элементов: 7 Среднее арифметическое ненулевых элементов: 23.86