1)Условный оператор: if(x>2)theny:=x+10elsey:=x−23.
Выбери действие, которое будет выполняться в случае истинности условия:
y:=x+10
x>2
y:=x−23
2)Дана программа на языке Паскаль.
Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 62, то «лёгкая категория» иначе «средняя категория». Заполните пустые окошки.
program ves;
const
A1='легкая категория';
A2='средняя категория';
var
s : integer;
begin
write('введите вес спортсмена
= ');
readln(
);
if
<
then writeln(A1) else writeln(A2);
readln;
end.
3)Дано целое число. Если оно является положительным, то прибавить к нему 20; в противном случае не изменять его. Вывести полученное число.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a;
writeln(a);
readln;
end.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a < 0 then a:=a+20;
writeln(a);
readln;
end.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a+20;
writeln(a);
readln;
end.
4)Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 7; если нулевым, то заменить его на 17. Вывести полученное число.
program zadaca;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > =0 then
if a=0 then a:=17 else a:=a+1
else a:=a-7;
writeln(a);
readln;
end.
program zadaca;
var
begin
writeln('Введи число a');
readln(a);
if a > =0 then
if a=0 then a:=17 else a:=a+1
else a:=a-7;
writeln(a);
readln;
end.
program zadaca;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > =0 then
if a=0 then a:=17 else a:=a+1
else a:=a-7;
end.
5)Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x,если01. (y:3:0)
Запусти программу и введи значение x=11.
Число выведенное на экран:
6)
Определить, принадлежит ли точка y отрезку [k;m].
var
k,m,y:real;
begin
write('
=');
readln(
);
write('m=');
readln(m);
write('y=');
readln(
);
if (y>=k) and (y<=
) then writeln ('yes') else writeln('no');
readln;
end.
7)Выведи на экран большее из двух данных чисел.
Запиши программу на языке Паскаль, выведи ответ на экран, если 1,42306 и 2,5931.
1.bmp
2.bmp
3.bmp
На экране
vvedi dva chisla
1,42306 2,5931
8)Дано целое число. Если оно является положительным, то прибавить к нему 59; в противном случае не изменять его. Вывести полученное число.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a < 0 then a:=a+59;
writeln(a);
readln;
end.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a;
writeln(a);
readln;
end.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a+59;
writeln(a);
readln;
end.
9)Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x,если01. (y:3:0)
Запусти программу и введи значение
##
var h := MatrRandom(5, 5, -7, 7);
h.Println(4);
Print('Произведение положительных элементов первой строки массива равно',
h.Row(0).Where(t -> t > 0).Product)
------------------------
##
var h := MatrRandom(5, 5, -7, 7);
h.Println(4);
h.Transform((v, i, j) -> j.IsEven and (v < 0) ? 100 : v);
Println('Результат замены отрицательных элементов в нечетных столбцах');
h.Println(4)
---------------------
##
var h := MatrRandom(5, 5, -7, 7);
h.Println(4);
var a := h.ElementsWithIndices.Where(t -> t[2] > t[1]).Select(t -> t[0]).ToArray;
Println('Массив из элементов, стоящих над главной диагональю');
a.Print
Прикрепляю файл с сохранением форматирования. Его же можно переименовать в файл с расширением .py и запустить в интерпретаторе, проверить работо .
И да, единица тоже является степенью двойки, так что checkBy2(1) выдаст "да"
def reverseNumber(x, n=0):
s = list(str(x)) if type(x) == int else x
if n*2 >= len(s):
return int(''.join(s))
else:
s[n],s[len(s)-n-1] = s[len(s)-n-1],s[n]
return reverseNumber(s, n+1)
# Сложность O(n), где n - количество символов в строковом представлении x
# либо, если n воспринимать как число, O(logn)
print(reverseNumber(12345))
def printBelow(x, current=1):
if x > 0 and current <= x:
print(current)
printBelow(x, current+1)
# Сложность O(n), если считать сложность перевода числа в строку константной
printBelow(10)
def checkBy2(x):
if x == 1:
print("Да")
elif x % 2 != 0 or x < 1:
print("Нет")
else:
checkBy2(x//2)
# Сложность O(logn), если не используется длинная арифметика, т.к. в худшем случае
# для увеличения рекурсивных вызовов на n нужно увеличить число в 2^n раз
checkBy2(31)
checkBy2(32)