вопрос жизни и смерти!!

@Семён(NFL) · Регистрация: 22.04.2011

Студворк — интернет-сервис помощи студентам

Помогите с заданиями, мне очень срочно нужно!!!
я боюсь меня выгонят из универа(((((
ПОЖАЛУЙСТА ПРОШУ ВАС ПОМОГИТЕ!!((((
я написал только одно задание из 6 мне очень нужна ваша помощь!!!
мне посоветовали ваш сайт и сказали что это самый лучший сайт, мне дали надежду на дальнейшее образование!!
помогите пожалуйста!!!((((

№1
1) Код заказчика книги. ФИО заказчика. Индекс. Адрес. Количество заказываемых книг. Цена за 1 книгу (в руб.).

2) Код. Пересылка (в % от стоимости). Стоимость пересылки (в руб.).

3) Сведения о клиентах фирмы «Книга-почтой»:
Код. ФИО заказчика. Индекс. Адрес. Количество книг. Цена за 1 книгу. Стоимость заказа без пересылки/с пересылкой. Итого.
№2
Исходные данные: наименование вуза, год приема, план приема, % отчисленных студентов. Выдать справку: наименование вуза, год приема, принято, выпущено.
№3
1) Составить программу вычисления функции
У=(sin(х)-сos(х))/(1+sin(х)2), если |х|<0.5
У=х2-sin(х)2, если |х|>0.5
Напечатать " При X =... функция вычислялась по формуле... Получен результат у =....”
2) Даны три числа. Составить алгоритм подсчета количества и печати тех из
них, которые являются точными квадратами.
3) Ввести: шифр стройки, название стройки, требуемое количество
строителей, фактическое количество строителей. Определить: достаточно ли
строителей, если нет, подсчитать недостающее количество и вывести на
печать в виде таблицы.
№4
Дан массив из 12 натуральных чисел. Заменить все элементы массива, предшествующие первому максимуму на минимум.
№5
Исходные данные: затраты каждого из К предприятий на жилищное строительство на каждый год из М лет. Исходные данные определяются путем обращения к датчику случайных чисел. Задание:
а. Для любого года определить предприятие с наибольшими затратами на жилищное строительство.
б. Для любого предприятия определить средние затраты на жилищное строительство.

Добавлено через 2 минуты
шестое задание я написал, и вроде без ошибок!!!

Private Sub Command1_Click()
Dim a%(1 To 12, 1 To 12), i%, j%
fg1.Rows = 13: fg1.Cols = 13
fg2.Rows = 13: fg2.Cols = 13
For i = 0 To 12
fg1.TextMatrix(i, 0) = i
fg1.TextMatrix(0, i) = i
fg1.ColWidth(i) = fg1.Width \ 14
fg2.TextMatrix(i, 0) = i
fg2.TextMatrix(0, i) = i
fg2.ColWidth(i) = fg1.Width \ 14
Next i
Randomize
For i = 1 To 12
For j = 1 To 12
a(i, j) = Int(Rnd * 100)
fg1.TextMatrix(i, j) = a(i, j)
Next j, i
Call P(a, 12)
For i = 1 To 12
For j = 1 To 12
fg2.TextMatrix(i, j) = a(i, j)
Next j, i
For i = 1 To 12
fg1.Row = i: fg1.Col = i
fg1.CellBackColor = vbYellow
fg1.Row = i: fg1.Col = 13 - i
fg1.CellBackColor = vbGreen

fg2.Row = i: fg2.Col = i
fg2.CellBackColor = vbGreen
fg2.Row = i: fg2.Col = 13 - i
fg2.CellBackColor = vbYellow
Next i
End Sub

Private Sub Command2_Click()
End
End Sub
проверил всё работает!!

а те задания я не могу сделать!!
я проволялся в больнице не зная что всё так обернётся!!!

@ooze1 · 24.04.2011, 22:03

Юморист

Бери академ

@gaw · 24.04.2011, 22:28

да что ты гонишь, тут однотипные задания на 3 варианты

Добавлено через 3 минуты
создал бы три темы под разными им, может что то бы и получилось, да и вообще редко встречаются феномены, которые без труда пишут которое сложнее, и облом на элементарном

@Семён(NFL) · 24.04.2011, 22:42 **[ТС]**

ну не понимаю я этого!!
ты мне можешь помочь??
или мне не ожидать помощи???

@gaw · 25.04.2011, 00:32

3.1 (для примера)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
Dim y#, x#, ys As String
x = Val(InputBox("вводим х", , 1))
Cls
If Abs(x) <= 0.5 Then
y = (Sin(x) - Cos(x)) / (1 + (Sin(x) ^ 2))
ys = "y=(Sin(х) -Cos(х)) / (1 + (Sin(х)) ^ 2)"
Else
y = x ^ 2 - (Sin(x)) ^ 2
ys = "y=х ^ 2 - (Sin(х)) ^ 2"
End If
Print " При X ="; x
Print "функция вычислялась по формуле  "; ys
Print "Получен результат у ="; y
End Sub

Добавлено через 37 минут
3,2

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim a(3), i%, k%
k = 0
For i = 1 To 3
a(i) = Val(InputBox("вводим " & i & " число", , 4 * i))
If Sqr(a(i)) ^ 2 = a(i) Then
k = k + 1
Print a(i)
End If
Next i
Print "искомое количество k="; k
End Sub

Добавлено через 5 минут
4,1

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Command1_Click()
Dim a(12), i%, ind%
Dim mx!, mn!
For i = 1 To 12
a(i) = Int(Rnd * 9) + 1
Print a(i); " ";
Next i
Print
mn = a(1): mx = mn: ind = 1
For i = 2 To 12
If mx < a(i) Then mx = a(i): ind = i
If mn > a(i) Then mn = a(i)
Next i
 
For i = 1 To 12
If i < ind Then a(i) = mn
Print a(i); " ";
Next i
End Sub

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Семён(NFL) -2 / 0 / 0 Регистрация: 22.04.2011 Сообщений: 26

	вопрос жизни и смерти!! 24.04.2011, 19:56. Показов 984. Ответов 4 Метки нет (Все метки) Помогите с заданиями, мне очень срочно нужно!!! я боюсь меня выгонят из универа((((( ПОЖАЛУЙСТА ПРОШУ ВАС ПОМОГИТЕ!!(((( я написал только одно задание из 6 мне очень нужна ваша помощь!!! мне посоветовали ваш сайт и сказали что это самый лучший сайт, мне дали надежду на дальнейшее образование!! помогите пожалуйста!!!(((( №1 1) Код заказчика книги. ФИО заказчика. Индекс. Адрес. Количество заказываемых книг. Цена за 1 книгу (в руб.). 2) Код. Пересылка (в % от стоимости). Стоимость пересылки (в руб.). 3) Сведения о клиентах фирмы «Книга-почтой»: Код. ФИО заказчика. Индекс. Адрес. Количество книг. Цена за 1 книгу. Стоимость заказа без пересылки/с пересылкой. Итого. №2 Исходные данные: наименование вуза, год приема, план приема, % отчисленных студентов. Выдать справку: наименование вуза, год приема, принято, выпущено. №3 1) Составить программу вычисления функции У=(sin(х)-сos(х))/(1+sin(х)2), если \|х\|<0.5 У=х2-sin(х)2, если \|х\|>0.5 Напечатать " При X =... функция вычислялась по формуле... Получен результат у =....” 2) Даны три числа. Составить алгоритм подсчета количества и печати тех из них, которые являются точными квадратами. 3) Ввести: шифр стройки, название стройки, требуемое количество строителей, фактическое количество строителей. Определить: достаточно ли строителей, если нет, подсчитать недостающее количество и вывести на печать в виде таблицы. №4 Дан массив из 12 натуральных чисел. Заменить все элементы массива, предшествующие первому максимуму на минимум. №5 Исходные данные: затраты каждого из К предприятий на жилищное строительство на каждый год из М лет. Исходные данные определяются путем обращения к датчику случайных чисел. Задание: а. Для любого года определить предприятие с наибольшими затратами на жилищное строительство. б. Для любого предприятия определить средние затраты на жилищное строительство. Добавлено через 2 минуты шестое задание я написал, и вроде без ошибок!!! Private Sub Command1_Click() Dim a%(1 To 12, 1 To 12), i%, j% fg1.Rows = 13: fg1.Cols = 13 fg2.Rows = 13: fg2.Cols = 13 For i = 0 To 12 fg1.TextMatrix(i, 0) = i fg1.TextMatrix(0, i) = i fg1.ColWidth(i) = fg1.Width \ 14 fg2.TextMatrix(i, 0) = i fg2.TextMatrix(0, i) = i fg2.ColWidth(i) = fg1.Width \ 14 Next i Randomize For i = 1 To 12 For j = 1 To 12 a(i, j) = Int(Rnd * 100) fg1.TextMatrix(i, j) = a(i, j) Next j, i Call P(a, 12) For i = 1 To 12 For j = 1 To 12 fg2.TextMatrix(i, j) = a(i, j) Next j, i For i = 1 To 12 fg1.Row = i: fg1.Col = i fg1.CellBackColor = vbYellow fg1.Row = i: fg1.Col = 13 - i fg1.CellBackColor = vbGreen fg2.Row = i: fg2.Col = i fg2.CellBackColor = vbGreen fg2.Row = i: fg2.Col = 13 - i fg2.CellBackColor = vbYellow Next i End Sub Private Sub Command2_Click() End End Sub проверил всё работает!! а те задания я не могу сделать!! я проволялся в больнице не зная что всё так обернётся!!! 0

@ooze1 0 / 0 / 0 Регистрация: 19.01.2011 Сообщений: 73
	24.04.2011, 22:03
	Юморист Бери академ 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	24.04.2011, 22:28
	да что ты гонишь, тут однотипные задания на 3 варианты Добавлено через 3 минуты создал бы три темы под разными им, может что то бы и получилось, да и вообще редко встречаются феномены, которые без труда пишут которое сложнее, и облом на элементарном 0

@Семён(NFL) -2 / 0 / 0 Регистрация: 22.04.2011 Сообщений: 26
	24.04.2011, 22:42 [ТС]
	ну не понимаю я этого!! ты мне можешь помочь?? или мне не ожидать помощи??? 0