var x: integer;s, k: char; begin k := chr(233); while s <> k do begin write('Введите символ: '); readln(s); x := ord(s); writeln('Код символа: ', x); end; end.
Вариант №2
var x, k: integer; begin k := 233; for x:= 1 to k do writeln('Код символа ', chr(x), ': ', x); end.
Рекомендуется использовать формулу мальтуса, изменения числа рыб n= k*n-q*n*n если за начальное количество рыб принять n0,то через год рыб в пруду будет n1=n0+k*n0-q*n0*n0,через два года n2=n1+k*n1-q*n1*n1 в таблице excel в ячейку a1 введите значение к=1,в ячейку b1 значение q=0,01,в ячейку с1 значение n0=100, в ячейку в2 формулу =c1+a1*c1-b1*c1*c1 (это количество рыб за 1 год) , в ячейку в3 формулу =b2+$a$1*b2-$b$1*b2*b2(количество рыб за 2 год) , скопируйте формулу с ячейки в3 до ячейки в11. изменяйте значение ячейки а1, например, поставьте значение 1,908, и получите 2000 рыб через 10 лет.
Пошаговая детализацияпредставляет собой простой процесс, предполагающий первоначальное выражение логики модуля в терминах гипотетического (условного) языка высокого уровня с последующей детализацией каждого предложения в терминах языка более низкого уровня, до тех пор, пока, наконец, не будет достигнут уровень используемого языка программирования. здесь уместно напомнить: чем меньше язык содержит деталей, тем более он высокого уровня. можно считать языком самого высокого уровня обычную человеческую речь, а языком низкого уровня — машинный язык.
var x: integer;s, k: char;
begin
k := chr(233);
while s <> k do
begin
write('Введите символ: ');
readln(s);
x := ord(s);
writeln('Код символа: ', x);
end;
end.
Вариант №2
var x, k: integer;
begin
k := 233;
for x:= 1 to k do
writeln('Код символа ', chr(x), ': ', x);
end.