контрольная

16.06.2009, 20:52. **Показов** 1207. **Ответов** 5

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

Всем добрый вечер, хотя он нефига не добрый. Завтро зачет а у мене нет еще допуска даже... Требуется помощь в решении 2-х задач. Каму не трудно помогите пож)

Задание №1
Задача на составление алгоритма линейной структуры. Решение данного задания должно содержать: блок схему задачи, словесное описание алгоритма, листинг программы и рисунок с формой.
______________
Задание: Вычислите значение функции f(x)=√(x-1)^2+(x-2)^2 - вся функция в корне

Задание №2
Задача на составление алгоритма сложной структуры. Решение данного задания должно содержать: блок схему задачи, словесное описание алгоритма, листинг программы и рисунок с формой 2.

Задание: Дана последовательность из N целых чисел. Определить, со скольких положительных чисел она начинается.

@mustardandrew · 16.06.2009, 21:36

Ответ на 2 задание

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#include <iostream>
using namespace std;
 
 
int main(){
    int n = 10;
    int* arr = new int[n];
    
    // create array
    for(int i = 0; i < n; ++i)
      arr[i] = (rand() % 50) - 25;
      
    // print array first time
    cout << "print array" << endl;
    for(int i = 0; i < n; ++i)
      cout << arr[i] << endl;
 
   int sum = 0;
   for(int i = 0; i < n; ++i)
       if(arr[i] >= 0) sum++;
       
   cout << "count(unsigned int) = " << sum << endl;
 
    getchar();
    return 0;   
}

Добавлено через 6 минут 17 секунд
Ответ на 1 задание

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <iostream>
#include "math.h"
using namespace std;
 
inline double sqr(double x){
   return x*x;       
}
 
int main(){
    cout << "Input x: ";
    double x;
    cin >> x;
    getchar();
    
    double fx = sqrt(sqr(x-1)+sqr(x-2));
 
    cout << endl << "f(x) = " << fx;
 
    getchar();
    return 0;   
}

@BasicMan · 16.06.2009, 21:40

mustard-andrew, но этоже С, а челу нужен Визбасик.

@mustardandrew · 16.06.2009, 21:41

Я не смогу помочь тебе с схемами... (
нет времени.

Добавлено через 46 секунд
О не посмотрел нараздел.
)

@BasicMan · 16.06.2009, 21:58

это 1

Visual Basic
1
2
3
4
5
6
7
8
9
private sub V()
    dim x as Double
    x=Val(Inputbox("Input x"))
    msgbox f(x)
end sub
 
private function f(x as Double) as Double
   f=sqr((x-1)^2+(x-2)^2)
end function

Добавлено через 10 минут 20 секунд
кстати, у тебя старые задачи остались, те что ты раньше делал?

@Makarik · 19.06.2009, 07:34

'Первая задача
'f(x) = sqr((x - 1) ^ 2 + (x - 2) ^ 2)
'f(x) = ((x - 1) ^ 2 + (x - 2) ^ 2)^1/2

Visual Basic
1
2
3
4
5
Dim x As Single
Dim f As Single
x = InputBox("Ââåäè X")
f = Sqr((x - 1) ^ 2 + (x - 2) ^ 2)
MsgBox "Îòâåò: " & f

'Вторая задача:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim a() As Integer
Dim n As Integer
Dim i As Integer, k As Integer
Dim s As String
n = 10
ReDim a(1 To 10)
For i = 1 To 10
    a(i) = Int(Rnd * 20) - 5
    s = s & a(i) & "  "
Next i
For i = 1 To 10
    If a(i) > 0 Then k = k + 1 Else Exit For
Next i
 
MsgBox s & vbCrLf & k

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

zeker

	контрольная 16.06.2009, 20:52. Показов 1207. Ответов 5 Метки нет (Все метки) Всем добрый вечер, хотя он нефига не добрый. Завтро зачет а у мене нет еще допуска даже... Требуется помощь в решении 2-х задач. Каму не трудно помогите пож) Задание №1 Задача на составление алгоритма линейной структуры. Решение данного задания должно содержать: блок схему задачи, словесное описание алгоритма, листинг программы и рисунок с формой. ______________ Задание: Вычислите значение функции f(x)=√(x-1)^2+(x-2)^2 - вся функция в корне Задание №2 Задача на составление алгоритма сложной структуры. Решение данного задания должно содержать: блок схему задачи, словесное описание алгоритма, листинг программы и рисунок с формой 2. Задание: Дана последовательность из N целых чисел. Определить, со скольких положительных чисел она начинается.

@BasicMan 19318 / 2625 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	16.06.2009, 21:40
	mustard-andrew, но этоже С, а челу нужен Визбасик. 0

@mustardandrew Человек 97 / 82 / 7 Регистрация: 16.06.2009 Сообщений: 229
	16.06.2009, 21:41
	Я не смогу помочь тебе с схемами... ( нет времени. Добавлено через 46 секунд О не посмотрел нараздел. ) 0

Опции темы