Составить программу ввода и вывода массива - Turbo Pascal

  1. Составить программу ввода и вывода массива: 5,-3,4,-8,-9,1,9,6,-3,4,8,2


textual

Код:

const
  csize=12;
 
type
  tarray=array [1..csize] of integer;
 
var
  a:tarray;
 
procedure CreateArray;
var
  i:integer;
begin
  for i:=1 to csize do
    read(a[i]);
  writeln;
end;
 
procedure PrintArray;
var
  i:integer;
begin
  for i:=1 to csize do
    write(a[i],' ');
 
end;
 
begin
  writeln('Введите элементы массива : ');
  CreateArray;
  writeln('Массив : ');
  PrintArray;
  readln;
  readln;
end.


Похожие ответы
  1. 1.Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b].

  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. Cоставить программу табулирования функции y=f(x) на отрезке [a, b] с шагом h=(b-a)/m где m – заданное число. Оператор цикла While. Функция F(x)=xsin(x); a=0 b=3pi m=10

  1. Помогите пожалуйста разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью z>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше z: | ак |

  1. Помогите пожалуйста составить программу на языке Turbo Pascal 7.0 вычисления значения интеграла на интервале [a, b] для функции, заданной графически. Значение интеграла вычислить приближённо по итерационной формуле левых прямоугольников: где h=(b-a)/n - величина шага между двумя соседними точками разбиения интервала интегрирования; fi = f(xi) - значение функции в точке xi = a+h(i-1); i = 1, 2, ..., n. Вычисления закончить при выполнении условия |In-I2n| < z, где z>0 - достаточно малое значение, задаваемое пользователем (точность вычислений). Здесь In, I2n - значения интеграла, вычисленные по (1) при количестве интервалов разбиения n и 2n соответственно. Функция:

  1. Напишите подпрограмму на нахождение средне арифмитического. С помошью этой подпрограммы найти количество чисел, которые выше средне арифмитического из ряда чисел заданных с клавиатуры , заканчиваюшихся -777. Помогите пожауйста с не простой задачей.

  1. Помогите,пожалуйста, написать программу в Pascal

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

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

  1. помогите с задачей! Составить процедуру для нахождения индексов максимального элемента квадратной матрицы. Применить данную процедуру для двух заданных матриц C(n,n) и P(m,m).