Программирование циклических вычислительных процессов. Вариант № 2

Страницы работы

Содержание работы

Лабораторная работа №6

Тема: программирование циклических вычислительных процессов.

Задание: дан вещественный вектор С=(С1;C2;…C6). Все компоненты этого вектора, удовлетворяющие условию abs(Ci)<2 уменьшить на 0,5.

Решение.

Обозначим

С - массив

Таблица переменных.

Переменная

Обозначение в программе

Тип данных

Примечание

i

i

integer

текущий индекс

c

c

массив

обозначение массива

Схема алгоритма.

Программа.

{Выполнил студент группы АПМ-02 Егоров К.А.}

Program prim5;                           {Преобразование вектора}

   var                                   {Начало раздела переменных}

   c     :array [1..6] of real;          {Присваивание переменной с значение массива}

   i     :integer;                      {Присваивание переменным значения целых чисел}

 begin                                   {Начало раздела операторов}

  writeln;                               {Пропуск строки}

  writeln(' Введите вектор С:');         {Приглашение для ввода массива}

   for i:=1 to 6 do read(c[i]);          {Ввод значений вектора}

  writeln(' Исходный вектор С:');        {Вывод заголовка о выводе массива}

     for i:=1 to 6 do write(c[i]:5:1);   {Вывод значений массива}

     for i:=1 to 6 do                    {Все элементы введенного массива}

  if abs(c[i])<2 then c[i]:=c[i]-0.5;    {удовлетворяющие условию уменьшаются на 0,5}

  writeln;                               {Пропускаем строку}

  writeln(' Преобразованный вектор C:'); {Выводится заголовок}

   for i:=1 to 6 do write(c[i]:5:1);     {Вывод элементов преобразованного вектора}

end.                                     {Конец программы}

Контрольный вариант.

Введём произвольный вектор A=(1,5; -3;4; -1,2;8;10)

Преобразованный вектор        А=(1;-3;4;-1,7;8;10)

Вид печати.

_Введите вектор С:

1.5 -3 4 -1.2 8 10

_Исходный вектор С:

1.5 -3.0 4.0 -1.2 8.0 10.0

_Преобразованный   вектор С:

1.0 -3.0 4.0 -1.7 8.0 10.0

Похожие материалы

Информация о работе

Предмет:
Информатика
Тип:
Отчеты по лабораторным работам
Размер файла:
37 Kb
Скачали:
0