1) предусловие
program w;
var x,y: real;
begin
x:=1;
while x<=2 do
begin
y:=10*x/3;
writeln ('x = ',x:3,' y = ',y:0:3);
x:=x+0.2
end
end.
2) постусловие
program r;
var x,y: real;
begin
x:=1;
repeat
y:=10*x/3;
writeln ('x = ',x:3,' y = ',y:0:3);
x:=x+0.2
until x>2
end.
Объяснение:
1) предусловие
задаем начальное значение х
Цикл:
проверяем условие
считаем у
выводим значения х и у на экран
изменяем х на шаг
2) постусловие
задаем начальное значение х
Цикл:
считаем у
выводим значения х и у на экран
изменяем х на шаг
проверяем условие
Поделитесь своими знаниями, ответьте на вопрос:
1. выполните арифметические действия (сложение и вычитание) со следующей группой чисел: а) 11101110102 и 110011012; б) 111011110111012 и 1000001111012; результаты подсчетов переведите в десятичную систему счисления! 2. выполните арифметические действия (умножение и деление) со следующей группой чисел: а)1000111000112 и 1012; б)1111011001012 и 1112; результаты подсчетов переведите в десятичную систему счисления! 3. переведите данные числа в восьмеричную, шестнадцатеричную системы счисления. а)1101110101011012; б)100000110101100101102; в)100010100010101102. 4. переведите данные числа из десятичной системы счисления в двоичную: а)14710;
б-вычит 11001110100000(2)=2^13+2^12+2^9+2^8+2^7+2^5(10)
4.10001111(2)