Решение задач на языке Pascal

   A: STRING[<количество символов в строке>];

   Ввод  массивов осуществляется с применением  циклов.

 

   

2. Выполненные задания 

2.1 Задание №1 

Исходная  задача:

Вычислить значение функции , где a=-4,2

Решение:  

program Lab1;

var

  a: Real;

  x, y: Real;

begin

  a := -4.2;

  Write('Введите значение x: ');

  Readln(x);

  if x > 1 then

    y := a * Ln(x) + Sqrt(x - 1)

  else

    y := 2 * a * Cos(Pi * x);

  Writeln('y = ', y : 0 : 5);

end. 

Контрольный пример: 

Результаты ручных вычислений:

Пусть , тогда

Пусть , тогда

 

Результат работы программы: 

X = 2

 

X = 0

 

2.2 Задание №2 

Исходная  задача:  

Вычислить значение функции  на отрезке [-3; 3,4] с заданным шагом изменения аргумента dx=0,4. 

Решение: 

program Lab2;

var

  x, y: Real;

  dx: Real;

begin

  dx := 0.4;

  x := -3;

  while (x <= 3.4) do

  begin

    y := Sqr(x) * Sin(x - 3);

    WriteLn('x = ', x : 5 : 2, ' y = ', y : 0 : 3);

    x := x + dx;

  end;

end. 

  Контрольный пример: 

Результаты ручных вычислений:

 
 

Результат работы программы: 

 
2.3 Задание №3 

Исходная  задача:  

Дан одномерный массив целых чисел. Поменять в нем знаки всех чисел, значение которых больше -10. 

Решение: 

program Lab3;

var

  a: array[1..100] of Integer;

  n: Integer;

  i: Integer;

begin

  Write('Введите количество элементов: ');

  Readln(n);

  Write('Введите элементы: ');

  for i := 1 to n do

    Read(a[i]);

  for i := 1 to n do

    if a[i] > -10 then

      a[i] := -a[i];

  Write('Полученный массив: ');

  for i := 1 to n do

    Write(a[i], ' ');

  end. 

Контрольный пример: 

Результат ручных вычислений: 

Пусть дан массив [6; -11; -15; 0; -3]. После замены знаков у элементов, значение которых больше -10, получится массив [-6; -11; -15; 0; 3].

 

Результат работы программы: 

 

3. Список литературы 

1. Ларина  Н.А. Информатика. Учебное пособие  для заочного обучения ВТУЗов / Рубцовский Индустриальный Институт. – Рубцовск: РИО, 1996. – 32 с.