Алгоритм программы перевода километров в метры

  TextWindow.Write(x + "      ")

  TextWindow.WriteLine(s)

   x = x + n

   EndFor

 

Задания

Рассчитать сумму или  произведение для указанных значений .по вариантам:

                                       

                                                 

;                                              

;                                                 

;                                                

;                                           

;                                                    

;                                                      

                                                    

                                                  

                                                       

                                                        

                                            15

                                            

                                                                      

 

_{Лабораторная  работа № 5}

Программирование  циклических процессов

Оператор цикла  с предусловием

 

Инструкция While используется для реализации циклов с предусловием. В общем виде она записывается так:

While Условие 

    Инструкции 

EndWhile

Здесь:

r  Инструкции - инструкции, которые надо выполнить несколько раз (тело цикла);

r  Условие — условие выполнения инструкций тела цикла.

Выполняется инструкция  While следующим образом. Сначала вычисляется  значение выражения  Условие. Если условие  истинно, то выполняются инструкции цикла. Затем снова вычисляется  значение выражения Условие. Если условие  истинно, то инструкции цикла выполняются  еще раз, а если ложно, то инструкции цикла не выполняются, и на этом выполнение инструкции While завершается. Таким образом, инструкции цикла выполняются до тех пор, пока значение выражение  Условие истинно.

Пример. Вычислить функцию вида

 

 

' Программирование  разветвляющихся алгоритмов 

' Ввод исходных  данных 

 

TextWindow.Write("Введите a ->")

a = TextWindow.ReadNumber()

TextWindow.Write("Введите b ->")

b = TextWindow.ReadNumber()

TextWindow.Write("Введите h ->")

h = TextWindow.ReadNumber()

 

' "Шапка" таблицы

TextWindow.WriteLine("----------------------")

TextWindow.WriteLine("  X          Y")

TextWindow.WriteLine("----------------------  ")

 

' Начало тела цикла

x=a

While x<b+h/2

  If x<1 And x>-1 Then

    y = Math.Power(x,3)/3

  else

    y = x- 0.6667

  EndIf

 

     ' Вывести  строку таблицы 

  TextWindow.Write(x + "   ")

  TextWindow.WriteLine(y)

  x = x+h

EndWhile

 

При вводе в качестве исходных данных для предложенной программы  a=-2, b=2, h=0.5 получаем результат в виде следующей таблицы значений функции:

x                  y

      -2.00 -2.6667

-1.50 -2.1667

-1.00 -1.1667

-0.50 -0.0417

0.00  0.0000

0.50  0.0417

1.00  0.3333

1.50  0.8333

2.00  1.3333

 

Задания

33. Напишите программу, вычисляющую значения функции на промежутке [ ] с шагом . Значения a, b и h выберите самостоятельно так, чтобы выявить основные особенности поведения функции. В отчете приведите график функции и результаты вычисления контрольных точек, подтверждающие правильность работы программы.

 

 

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

Одномерные массивы

Цель работы – научиться  составлять программы с использованием одномерных массивов.

Массив — это структура  данных, которая представляет собой  совокупность переменных одного типа. Переменные, образующие массив, принято  называть элементами массива.

Различают одномерные и двумерные  массивы. Графически одномерный массив можно изобразить так, как показано на рисунке.

Массивы используют для хранения однородной по своей структуре информации: одномерные — списков, двумерные  — таблиц.

Пример 1. Дана последовательность вещественных чисел (n<=5).Найти их среднее значение.

' Ввод и обработка  массива 

TextWindow.Write("Среднее арифметическое  элементов массива")

TextWindow.WriteLine("Введите элементы  массива")

 

' Ввод массива

For i = 1 To 5

  TextWindow.Write("a[" + i +"]->")

  a[i] = TextWindow.ReadNumber()

EndFor

 

' Вычислить сумму элементов

s = 0 ' сумма элементов массива

For i=1 To 5

  s = s + a[i]

EndFor

 

' Вычислить среднее  арифметическое 

m = s / 5

 TextWindow.WriteLine("----") ' пустая строка

TextWindow.WriteLine("Сумма элементов массива:" + s)

TextWindow.WriteLine("Среднее арифметическое:" + m)

 

Под операцией ввода массива  понимается процесс ввода значений всех его элементов. Ввести значения элементов массива можно с клавиатуры. Например, следующий фрагмент программы вводит с клавиатуры массив  a, состоящий из четырех элементов.

TextWindow.Write("a[1]->") 

a[1] = TextWindow.ReadNumber()

TextWindow.Write("a[2]->")

a[2] = TextWindow.ReadNumber()

TextWindow.Write("a[3]->")

a[3] = TextWindow.ReadNumber()

TextWindow.Write("a[4]->")

a[4] = TextWindow.ReadNumber()

TextWindow.Write("a[5]->")

a[5] = TextWindow.ReadNumber()

 

Приведенные выше инструкции можно заменить циклом For:

For i = 1 To 5

  TextWindow.Write("a[" + i +"]->")

  a[i] = TextWindow.ReadNumber()

Задания.

1.Найти наименьший элемент последовательности (n 15) и его номер.

2.Вычислить сумму элементов последовательности (n 20), удовлетворяющих неравенству x>p.

3.Даны натуральное число N и одномерный массив A₁, A₂, …, A_N, A_N+1 вещественных чисел. Определить наибольшее из нечетных и количество четных чисел, входящих в этот массив.

4.Даны натуральное число N и одномерный массив A₁, A₂, …, A_N целых чисел. Получить массив, который отличается от исходного тем, что все нечетные элементы удвоены, а четные получены сложением собственного значения с первоначальным значением последующего нечетного.

5.Даны натуральное число N (N>5) и одномерный массив A₁, A₂, …, A_N  вещественных чисел. Определить три максимальных и два минимальных значения этого массива.

6.Даны натуральное число N и одномерный массив A₁, A₂, …, A_N целых чисел. Определить наименьшее положительное среди A₁, A₂, …, A_N.

7. Даны натуральное число N и одномерный массив A₁, A₂, …, A_N целых чисел. Определить, является ли данный массив упорядоченным по убыванию.

8. Даны натуральное число N и одномерный массив A₁, A₂, …, A_N целых чисел. Упорядочить массив по возрастанию.

9. Дан массив действительных чисел с размерностью N. Определить, сколько в нем отрицательных и положительных элементов.

10. Дан массив действительных чисел с размерностью N. Определить, сколько в нем нулевых элементов.

11. В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.

12. Дана последовательность целых чисел .Вывести на печать только те числа, для которых .

13.В массив А[N] включены натуральные числа. Найти сумму элементов массива больше заданного K.

14.Дана последовательность натуральных чисел . Создать массив из четных чисел этой последовательности. Если таких чисел нет, вывести соответствующее сообщение.

15.Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа до нуля включительно.