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,,
заранее
a = input("Введите текущую координату фигуры(вертикаль): ")
b = input("Введите текущую координату фигуры(горизонталь): ")
c = input("Введите координату для хода(вертикаль): ")
d = input("Введите координату для хода(горизонталь): ")
# Условие
if (a==c) and (b==c):
#Конец условия
print("Фигура может сделать ход")
else:
print("Фигура НЕ может сделать ход")
Условия:
а) if (a==c) and (b==c): #ладья
б) if abs(a-c) == abs(b-d): #слон
в) if abs(a-c)==1 or abs(b-d)==1: #король
г) if abs(a-c) == abs(b-d) or a == c or b == d: #ферзь
ж) if((abs(abs(a-c)-2)<0.5) and (abs(abs(b-d)-1)<0.5)
or (abs(abs(a-c)-1)<0.5) and (abs(abs(b-d)-2.0)<0.5)): #конь
//Pascal
const m = 1000
var
arr: array[1..m] of integer;
n,i, j, k: integer;
begin
readln(n);
write ('Исходный массив: ');
for i := 1 to n do begin
readln(arr[i]);
end;
//сортировка методом пузырька
for i := 1 to n-1 do
for j := 1 to n-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to n do
write (arr[i]:4);
end.
Алгоритм сортировки на классическом языке программирования С
# define SWAP(A,B) {A=A^B;B=A^B;A=A^B;}
void bubblesort(int A[], int n)
{
int i, j;
for(i = n-1 ; i > 0 ; i--)
{ for(j = 0 ; j < i ; j++)
{
if( A[j] > A[j+1] ) SWAP(A[j],A[j+1]);
}
}
}