Написать программу на языке python. создание класса автомобиль (должен обладать параметрами – скорость, количество бензина, показания температуры жидкости, одометр и : ускорения, торможения, вывода данных)
Uses Crt; var n:integer; begin clrscr; write('введи номер масти 1-4 :'); readln(n);
case n of 1:writeln ('Пики'); 2:writeln ('Трефы'); 3:writeln ('Бубны'); 4:writeln ('Червы'); else writeln('Неправильный номер масти'); end; readkey; end.
1)
Program Cifry;
Uses Crt; var n:integer;
s:string[2]; begin clrscr; write('введи двузначное целое число :'); readln(n);
str(abs(n),s);
if (s[1]=s[2]) then writeln('Цифры числа одинаковые')
Uses crt; const mn1: array[1..5] of byte =(5,6,1,2,3); {Объявляем наши наборы} const mn2: array[1..5] of byte =(5,8,6,0,3); {Объявляем наши наборы}
var i,c,n:integer;
begin clrscr; write('Набор1 до обработки:'); for i:=1 to 5 do write(mn1[i]:3); {Выводим на экран набор 1} writeln; writeln;
write(' Набор2 до обработки: :'); for i:=1 to 5 do write(mn2[i]:3); {Выводим на экран набор 2}
writeln; writeln;
n:=1; c:=0; while (n<=5) do {В цикле сравниваем n-й элемент набора1 с} Begin {каждым элемент набора2 } for i:=1 to 5 do begin if (mn1[n]=mn2[i]) then begin c:=c+1; {Если нашли совпадение до увеличиваем кол-во совпадающих пар чисел} mn1[n]:=0; {И записываем на их место нули} mn2[i]:=0;
break; {переходим к след элементу набора1} end; end;
Inc(n); End;
{Выводим результаты обработки}
write('Количество совпадающих пар чисел:',c);
writeln; write(' Набор1 после обработки :'); for i:=1 to 5 do write(mn1[i]:3); writeln; writeln;
write(' Набор2 после обработки :'); for i:=1 to 5 do write(mn2[i]:3); readkey; {пауза до нажатия на любую клавишу} end.
2)
Program Masty
Uses Crt;
var n:integer;
begin
clrscr;
write('введи номер масти 1-4 :');
readln(n);
case n of
1:writeln ('Пики');
2:writeln ('Трефы');
3:writeln ('Бубны');
4:writeln ('Червы');
else writeln('Неправильный номер масти');
end;
readkey;
end.
1)
Program Cifry;
Uses Crt;
var n:integer;
s:string[2];
begin
clrscr;
write('введи двузначное целое число :');
readln(n);
str(abs(n),s);
if (s[1]=s[2]) then writeln('Цифры числа одинаковые')
else writeln('Цифры числа не одинаковые');
readkey;
end.
Uses crt;
const mn1: array[1..5] of byte =(5,6,1,2,3); {Объявляем наши наборы}
const mn2: array[1..5] of byte =(5,8,6,0,3); {Объявляем наши наборы}
var i,c,n:integer;
begin
clrscr;
write('Набор1 до обработки:');
for i:=1 to 5 do write(mn1[i]:3); {Выводим на экран набор 1}
writeln;
writeln;
write(' Набор2 до обработки: :');
for i:=1 to 5 do write(mn2[i]:3); {Выводим на экран набор 2}
writeln;
writeln;
n:=1; c:=0;
while (n<=5) do {В цикле сравниваем n-й элемент набора1 с}
Begin {каждым элемент набора2 }
for i:=1 to 5 do begin
if (mn1[n]=mn2[i]) then
begin
c:=c+1; {Если нашли совпадение до увеличиваем кол-во совпадающих пар чисел}
mn1[n]:=0; {И записываем на их место нули}
mn2[i]:=0;
break; {переходим к след элементу набора1}
end;
end;
Inc(n);
End;
{Выводим результаты обработки}
write('Количество совпадающих пар чисел:',c);
writeln;
write(' Набор1 после обработки :');
for i:=1 to 5 do write(mn1[i]:3);
writeln;
writeln;
write(' Набор2 после обработки :');
for i:=1 to 5 do write(mn2[i]:3);
readkey; {пауза до нажатия на любую клавишу}
end.