Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
otchet.doc
Скачиваний:
3
Добавлен:
22.07.2019
Размер:
1.28 Mб
Скачать

Лабораторная работа №7 «Оператор выбора»

Е диницы массы пронумерованы следующим образом: 1- килограмм, 2 – миллиграмм, 3 – грамм, 4 – тонна, 5 – центнер. Дан номер единицы массы (целое число в диапазоне 1 - 5) и масса тела в этих единицах (вещественное число). Найти массу тела в килограммах.

int n;

double x;

x=CSpinEdit1->Value;

n=ComboBox1->ItemIndex;

switch (n)

{

case 0:x=x;

break;

case 1: x=x/1000;

case 2: x=x/1000;

break;

case 3: x=x*1000;

break;

case 4: x=x*100;

break;

}

Label1->Caption=

F ormatFloat("#,##0.00",x)+" килограмм";

Лабораторная работа №8 «Циклические алгоритмы»

Составить программу для вычисления значения выражения

За параметр цикла принимаем знаменатель а=38;2;-3. Из каждого числа находим корень. Находим сумму всех корней и делим ее на 3.

double y=0, S;

i nt a;

for (a=38; a>=2; a-=3)

S+=sqrt(a);

y=S/3;

L abel1->Caption=y;

З а параметр цикла принимаем числитель а=2;14;2, и к числителю прибавляем вводимое число х. Знаменатель находим по формуле 2*а. Находим произведение всех дробей и находим из них корень 3 степени.К данному числу прибавляем 1.

double x=Edit1->Text.ToDouble(), S=1, y;

int a; bool fl=0;

for (a=2; a<=14; a+=2)

{if (a+x!=0)

S*=2*a/(x+a);

else

{fl=1; break;}

}

if (fl==0)

{y=1+pow(S, 1./3);

Label1->Caption=y;

}

else

Label1->Caption="Нет решений"

15

Кунициной Ирины АСУ 10-1

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]