В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
sooooooos1
sooooooos1
08.11.2021 05:46 •  Информатика

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,,
заранее

Показать ответ
Ответ:
demid13123456789
demid13123456789
23.05.2022 10:50
1)Составьте программу, которая находит большее из двух введенных с
клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9
var a,b : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 if a>b then writeln(a)
 else writeln(b);
end.
2) Составьте программу, которая находит меньшее из трёх введенных
чисел a, b, c и выводит его на экран. Числа 10, 4 и 9
var a,b,c : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 write('Enter c: ');
 read(c);
 if (a<b) and (b<c)  then writeln(a);
  if (b<c) and (c<a) then writeln(b)
  else writeln(c);
end.
3) Составьте программу определяющую, является ли введенное с
клавиатуры целое число кратным 3.
var a: integer;
begin
 write('Enter a: ');
 read(a);
 if (a mod 3) = 0 then writeln('Кратно')
 else writeln('Не кратно');
end.
0,0(0 оценок)
Ответ:
lavanda16
lavanda16
23.05.2022 10:50
1)Составьте программу, которая находит большее из двух введенных с
клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9
var a,b : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 if a>b then writeln(a)
 else writeln(b);
end.
2) Составьте программу, которая находит меньшее из трёх введенных
чисел a, b, c и выводит его на экран. Числа 10, 4 и 9
var a,b,c : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 write('Enter c: ');
 read(c);
 if (a<b) and (b<c)  then writeln(a);
  if (b<c) and (c<a) then writeln(b)
  else writeln(c);
end.
3) Составьте программу определяющую, является ли введенное с
клавиатуры целое число кратным 3.
var a: integer;
begin
 write('Enter a: ');
 read(a);
 if (a mod 3) = 0 then writeln('Кратно')
 else writeln('Не кратно');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота