Basic 2-And-Not.vhd

Date: 2015-10-07; view: 474.

Файлы

Использование процедур и функций

70. Создать программу, которая вычисляет значения выражений
для введенных с клавиатуры значений s, t:

h(s,t) + mах(h⁴(s - t, st), h⁴(s-t,s + t)) + h(1, 1), где вычисление h(a, b) оформлено в виде функции

h(a, b) = a/(1 + b²) + b/(1+a²)-(a-b)³.

71. Составить процедуру, заменяющую в исходной строке сим­волов все единицы нулями и все нули единицами. Замена должна выполняться начиная с заданной позиции строки.

72. Даны действительные числа а₁ а₂, ..., а₃₀ . Получить:

max (а₁ + а₃₀, а₂ + a₂₉, …, a₁₅ + a₁₆);

При решении использовать процедуры.

73. Даны действительные числа а₁ а₂, ..., а₃₀ . Получить:

min (а_{1 *} а₁₆, a_{2 *} a₁₇, …, a_{15 *} a₃₀).
При решении использовать процедуры.

74. Составить процедуру, подсчитывающую количество слов в исходном предложении. Проверить работу процедуры в основной программе.

75. Написать процедуру, определяющую, является ли входное предложение палиндромом (палиндром — слово или предложение, имеющее одинаковое прочтение с начала и с конца, например, «А в Енисее — синева»):

Function Polin (Word As String) As Boolean . Проверить работу процедуры в основной программе.

76. Дан текстовый файл, содержащий целые числа. Найти среди этих чисел количество четных чисел;

77. Дан текстовый файл, содержащий целые числа. Найти среди этих чисел количество удвоенных нечетных чисел (например: 6 = 2*3, 10 = 2*5 и т. п.);

78. Дан текстовый файл, содержащий целые числа. Найти среди этих чисел количество квадратов нечетных чисел (например: 9, 25 и т. п.).

79. Дано натуральное число n. Записать в файл целые числа b₁,…, b_n,
определенные следующим образом:

b_i = 2ⁱ + 3^{i + 1}; где i= 1, 2, ..., n

80. Дано натуральное число n. Записать в файл целые числа b₁,…, b_n,
определенные следующим образом:

b_i = 1 + 1/2 + ... + 1/i; где i = 1, 2, ..., n

81. Дано натуральное число n. Записать в файл целые числа b₁,…, b_n,
определенные следующим образом:

b_i = 2ⁱ/i!; где i= 1, 2, ..., n

82. Дано натуральное число n. Записать в файл целые числа b₁,…, b_n,
определенные следующим образом:

b_i = 1 - 1 / 2 + ... + (-1)^{i+ 1} / i, где i= 1, 2, ..., n.

83. Создать файл, содержащий целые числа, не равные нулю. Числа в файле должны располагаться в следующем порядке: 10 положительных, 10 отрицательных, 10 положительных, 10 отрицатель­ных и т. д. Переписать этот файл в новый файл так, чтобы во втором числа шли в порядке 20 положительных, 20 отрицательных и т. д.

84. Дан текстовый файл. Удалить из файла все однобуквенные слова и все лишние пробелы. Результат записать в другой файл.

85. Дан текстовый файл. Найти самое длинное слово среди слов, вторая буква которых «е». Если слов с наибольшей длиной несколько, то найти последнее из них. Если таких слов нет, то сообщить об этом.

LIBRARY IEEE;

USE IEEE.std_logic_1164.ALL;