Может кому пригодится

[Zhenechka]

В этой теме готов выложить некоторые свои наработки по языку Паскаль: курсовые, контрольные - может, кому пригодится

[Zhenechka]

Вот первая ссылка.
Курсовая работа по алгоритмизации и программированию.
Задание: Составить программу вычисления суммы элементов главной диагонали матрицы размером 4×4 и произведения элементов побочной диагонали.
Приведено описание переменных и массивов, описание алгоритма (словесное и блок-схема), текст программы, результаты работы прораммы.
http://letitbit.net/download/ef4cc5a...ricy.docx.html

[Zhenechka]

На этот раз информатика.
Задание: Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде КОИ-7. Определить максимальный элемент этого массива.
Приведен текст программы, блок-схема, результаты работы прораммы.
http://letitbit.net/download/278415f...ssiva.doc.html

[Hacker19_90]

Думаю модераторы это не одобрят!!!

[Hacker19_90]

Copyright (c) Hacker19_90[HC_PBI]
Представленный здесь материал выложен только для ознакомления, и защищён авторским правом!!!

[Zhenechka]

Задание: Записать в текстовый файл предложение «В ЛЕСУ РОДИЛАСЬ ЕЛОЧКА». Определить число гласных в этом предложении.
http://letitbit.net/download/92364ca...enii..doc.html

[Zhenechka]

Задание: Составить подпрограмму определения номеров строк матрицы с минимальной и максимальной характеристиками. Для вычисления характеристики использовать подпрограмму-функцию. В качестве характеристики рассмотреть следующие величины: а) среднее арифметическое элементов каждой строки матрицы; б) число положительных элементов в каждой строке. Поменять местами строки с максимальной и минимальной характеристиками типа а в заданной матрице А и типа б в заданной матрице В.
http://letitbit.net/download/3489aed..._veli.doc.html

[Zhenechka]

Программа составляющия массив произвольных чисел от 0 до 50 и ищет введённое пользователем значение и выводит сообщение, есть это число в массиве или нет.
http://letitbit.net/download/ba789a2...i_net.doc.html

[manaxa]

приветик , помогите мне пож. составить блок схему по Vb
Private Sub Command1_Click()
Dim x(1 To 4) As Single
Dim y(1 To 4) As Single

Dim i As Integer
Dim j As Integer
Dim z(1 To 4, 1 To 4)
Randomize Timer
For i = 1 To 4
x(i) = Int(Rnd * 2 * 100) / 100
List1.AddItem Str(x(i))
Next i
For j = 1 To 4
y(j) = Int(Rnd * 3 * 100) / 100
List2.AddItem Str(y(j))
Next j
For i = 1 To 4
For j = 1 To 4
z(i, j) = (Sin(x(i)) * (1 + y(j))) / (x(i) - y(j))
z(i, j) = Int(z(i, j) * 100) / 100
Print z(i, j),
Next j
Print
Next i

n = o
s = 0
For i = 1 To 4
For j = 1 To 4
If i = j Then s = s + z(i, j): n = n + 1
Next j
Next i
Text1.Text = Str(s / n)

Dim min As Single
For j = 1 To 4
min = z(1, j)
For i = 1 To 4
If z(i, j) < min Then min = z(i, j)
Next i
List4.AddItem Str(min)
Next j

p = 0
w = 0
For i = 1 To 4
For j = 1 To 4
w = w + z(i, j)
Next j
If w < 1 Then p = p + 1
Next i
Text2.Text = Str(p)


End Sub

[manaxa]

еще одну помогите пож. просто срочно надо
Private Sub Command1_Click()
Dim x, s As Single, n, h, m, i, k As Integer
k = Val(InputBox("число вариантов=", "данные"))
For i = 1 To k

x = Val(InputBox("x=", "данные"))
m = Val(InputBox("m=", "данные"))
h = Val(InputBox("шаг=", "данные"))
s = 0
For n = 1 To m Step h
s = (x ^ 2 + n ^ 2) / ((n + 1) * Sqr(x * n + 1))
Next n
Next i
Print "вариант="; k; "сумма="; s
End Sub