- •Л абораторная работа №1 «Линейные алгоритмы»
- •Лабораторная работа №2 «Целочисленные операции»
- •Лабораторная работа №3
- •Лабораторная работа №4 «Логические выражения»
- •Лабораторная работа №5 « Исполнительный оператор if и операция ? в организации ветвление»
- •Лабораторная работа №6 «Ветвящиеся алгоритмы»
- •Лабораторная работа №7 «Оператор выбора»
- •Лабораторная работа №8 «Циклические алгоритмы»
Лабораторная работа №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="Нет решений"