Группа для программистов ( programming )

/* p2 - 13 Язык Turbo C 2.0 Основы программирования - 2 Ввод данных: 3 int a - простые переменные j - ввод данных s - функции 1 - 22k, 2 - 24k, 7 - 25k, 14 - 26k */ #include #include #include s (); /* нет корней */ t (); /* решение - любое число */ v (float); /* 1 корень */ w (float, float); /* 2 корня */ x (float, float, float); /* 3 корня */ y (float, float, float, float); /* 4 корня */ main () { int a, b, c; float d, e; int g, h, i; /* натуральные числа */ int j, k, l; /* ввод данных */ printf ("Введите 3 целых числа: "); scanf ("%i%i%i", &j, &k, &l); /* 13.1.2.1. Составить алгоритм решения квадратного уравнения: ax^2 + bx + c = 0. */ printf ("1. "); if (j == 0) if (k == 0) if (l == 0) t (); else s (); else v ((float) -l / k); else { a = k * k - 4 * j * l; /* дискриминант */ if (a < 0) s (); else if (a == 0) v (-k / 2. / j); else w ((-k - sqrt (a)) / 2 / j, (-k + sqrt (a)) / 2 / j); } /* 21.5.3.2. Построить алгоритм решения биквадратного уравнения, используя как вспомогательный алгоритм решения квадратного уравнения. */ printf ("2. "); if (j == 0) if (k == 0) if (l == 0) t (); else s (); else { d = (float) -l / k; if (d < 0) s (); else if (d == 0) v (0); else w (-sqrt (d), sqrt (d)); } else { a = k * k - 4 * j * l; /* дискриминант */ if (a < 0) s (); else if (a == 0) { d = -k / 2. / j; if (d < 0) s (); else if (d == 0) v (0); else w (-sqrt (d), sqrt (d)); } else { d = (-k - sqrt (a)) / 2 / j; e = (-k + sqrt (a)) / 2 / j; if (d < 0) if (e < 0) s (); else if (e == 0) v (0); else w (-sqrt (e), sqrt (e)); else if (d == 0) if (e < 0) v (0); else x (-sqrt (e), 0, sqrt (e)); else if (e < 0) w (-sqrt (d), sqrt (d)); else if (e == 0) x (-sqrt (d), 0, sqrt (d)); else y (-sqrt (e), -sqrt (d), sqrt (d), sqrt (e)); } } /* 16.1.4.3. Дано целое положительное число n. Вычислить n! */ a = 1; for (b = 2; b < j + 1; b++) a *= b; printf ("3. %i! = %i.\n", j, a); /* 18.1.5.4. Даны два натуральных числа M и N. Вычислить их наибольший общий делитель НОД (M, N). */ g = j; /* вычисление натуральных чисел */ h = k; i = l; if (g b) a -= b; else b -= a; printf ("4. НОД (%i, %i) = %i.\n", g, h, a); /* 21.6.6.5. Составить алгоритм нахождения НОД трех натуральных чисел, используя вспомогательный алгоритм нахождения НОД двух чисел. */ a = g; b = h; while (a - b) if (a > b) a -= b; else b -= a; b = i; while (a - b) if (a > b) a -= b; else b -= a; printf ("5. НОД (%i, %i, %i) = %i.\n", g, h, i, a); /* 21.3.10.6. Даны три положительных числа. Составить алгоритм, определяющий, могут ли они быть длинами сторон треугольника. */ if (j > 0 && k > 0 && l > 0 && j + k > l && j + l > k && k + l > j) printf ("6. Числа могут быть длинами сторон треугольника.\n"); else printf ("6. Числа не могут быть длинами сторон треугольника.\n"); /* 21.4.11.7. Пусть компьютер способен выполнять только две арифметические операции - сложение и вычитание. Составить алгоритмы: а) умножения двух целых чисел; б) целочисленного деления двух чисел; в) получения остатка от целочисленного деления двух чисел. */ a = 0; for (b = 0; b = h) {b -= h; a++;} printf ("%i / %i = %i, ", g, h, a); printf ("%i %% %i = %i.\n", g, h, b); /* 33.1.12.8. Оттранслируйте с алгоритмического языка алгоритм выбора наибольшего значения из трех. */ printf ("8. "); if (j > k) if (j > l) printf ("Первое число наибольшее.\n"); else printf ("Третье число наибольшее.\n"); else if (k > l) printf ("Второе число наибольшее.\n"); else printf ("Третье число наибольшее.\n"); /* 48.9.13.9. Присвоить переменной h значение цифры, стоящей в разряде сотен в записи положительного целого числа k (например, если k = 28796, то h = 7). */ printf ("9. Число сотен %i.\n", j % 1000 / 100); /* 48.10.14.10. Целой переменной S присвоить значение суммы цифр трехзначного целого числа k. */ a = j % 1000; printf ("10. Сумма цифр %i.\n", a / 100 + a / 10 % 10 + a % 10); /* 65.1.16.11. Вычислить сумму целых чисел от M до N путем прямого суммирования. */ a = 0; b = j; while (1) { a += b; if (b >= k) break; b++; } printf ("11. Сумма ряда %i.\n", a); /* 68.8.21.12. Дано целое n > 2. Напечатать все простые числа из диапазона [2, n]. */ printf ("\n12. Простые числа: "); for (a = 2; a <= j; a++) { c = 0; for (b = 2; b <= sqrt (a + .1); b++) if (a % b == 0) c = 1; if (c == 0) printf ("%i ", a); if (a == 32767) break; } /* 71.1.26.13. Даны два натуральных числа a и b. Определить наибольший общий делитель трех величин: a + b, abs (a - b), a * b. */ a = j + k; b = j - k; if (a b) a -= b; else b -= a; b = j * k; if (b b) a -= b; else b -= a; printf ("\n\n13. НОД = %i.\n", a); /* 80.1.27.14. Составить программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади круга (2 варианта: с процедурой и с функцией). */ d = 3.141592653589 * (j * j - k * k); printf ("14. Площадь кольца %.4g.\n", d); getch (); printf ("\n"); } s () {printf ("Нет решений.\n");} t () {printf ("Решение - любое число.\n");} v (float a) {printf ("x = %.4g.\n", a);} w (float a, float b) {printf ("x1 = %.4g, x2 = %.4g.\n", a, b);} x (float a, float b, float c) {printf ("x1 = %.4g, x2 = %.4g, x3 = %.4g.\n", a, b, c);} y (float a, float b, float c, float d) {printf ("x1 = %.4g, x2 = %.4g, x3 = %.4g, x4 = %.4g.\n", a, b, c, d);}