Delphi
1)дана масса м в килограммах использую операцию деления нацело найти количество полных тонн в ней.
2)дано целое число. если оно является положительным, то прибавить к нему 1. в противном случае вычесть из него 2. вывести полученное число.
3)дано вещественное число x и целое число n (n> 0). найдите значение выражения 1-(x^2/2! )+(x^4/4! )-+(-1)^n*(x^2n/( . полученное число является приближённым значением функции cos в точке x
4)даны положительные числа а и в (а> в) на отрезке длины а размещено максимально возможное количество отрезков длины в(без наложений) . не используя операции умножения и деления, найти количество отрезков в,размещенных на отрезке а.
5)описать процедуру powera234(a, b, c, d)вычисляющую вторую, третью и четвертую степень числа а и возвращающую эти степени соответственно в переменных в, с и d(а-входной, в,с,д-выходные параметры,все параметры вещественные) . с этой процедуры найти вторую, третью и четвертую степень пяти данных чисел.
6)описать функцию rootscount(a, b, c) целого типа, определяющую количество корней квадратного уравнения a∙x2 + b∙x + c = 0 (a, b, c — вещественные параметры, a ≠ 0). с ее найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. количество корней определять по значению дискриминанта: d = b2 - 4∙a∙с.
7)делфи для данного вещественного х найти значение след. функций f, принимающей значения целого типа
{0, если х< 0 ;
f(x)= { 1, если х принадлежит [0,1), [2,
{ -1, если х принадлежит [1,,
заранее
268
308
Ответы на вопрос:
var a,b,c: integer; beginreadln(a,b,c); if (a> b) and (a> c) and (b> c) then writeln('c=',c,'a=',a) elseif (b> a) and (b> c) and (a> c) then writeln('c=',c,a,'b=',b) elseif (c> a) and (c> b) and (b> a) then writeln('a=',a,'c=',c) elseif (a> b) and (a> c) and (c> b) then writeln('b=',b,'a=',a) elseif (b> a) and (b> c) and (c> a) then writeln('a=',a,'b=',b) elseif (c> a) and (c> b) and (a> b) then writeln('b=',b,'c=',c) elsereadln; end
Популярно: Информатика
-
Game777World04.09.2022 11:02
-
inzhu12334510.01.2023 04:34
-
ekaterina720105.06.2021 23:37
-
shukur317.03.2021 16:15
-
SHERBINADARYA0028.10.2022 09:37
-
тетрадках03.04.2022 08:21
-
Dacha07K10.01.2021 03:46
-
Kristgame18.12.2021 05:00
-
123456789098707808.05.2022 23:56
-
needhomework1921.05.2023 13:39