Задача цикл с предусловием

[Люююдааа]

Бактерия за 1 минуту делится на 2. Сколько бактерий будет через 8 минут? Хочу решить с циклом с предусловием.
program z;
var t,b:integer;
begin
t:=0;
b:=1;
while t<8 do
begin
t:=t+1;
b:=b*2;
end;
write('b=',b);
end.
выдает ошибку - nothing to compile

[kuli4ok]

Код рабочий, это у тебя с компилятором проблемы.
Можно, конечно, и так сделать:
program z;
var t,b:integer;
begin
t:=0;
b:=1;
repeat
t:=t+1;
b:=b*2;
until t=8;
write('b=',b);
end.

[Люююдааа]

Что значит с компилятором проблемы????

[Leshii]

Вот тебе рекурсивное решение данной задачи.

Uses crt;
var
 n: integer;

function del ( n: integer):longint;
begin
 if n = 1 then del:=2 else del:=2*del(n-1);
end;

begin
clrscr;
write('Enter n:');readln(n);
writeln(del(n));
readkey;
end.

Так, а что у вас не получается то?( имею ввиду тот код )

[pedro_de_parkez]

прошу ВАС помочь решить проблемы



Розгалуження.
Розробити програму для обчислення простого виразу, вхідні дані ввести з
клавіатури, результат вивести у форматованому вигляді, передбачити затримку пе-
реходу від екрана з результатами до програми. Знак ‘^’ означає ‘у ступеню’.
1. Задані дві функції y1 y2
24x2 x
y1=------------ ; y2=1 - -------;
(8+3x)2 2+x
Cкласти програму, результатом роботи якої, є найбільше значення однієї з них.
2.Дана точка з координатами x,y,z. Встановити чи належить вона кулі з центром c(x0,y0,z0) та радіусом R.
3. Задані три функції y1,y2,y3. Скласти програму, результатом якої буде найбільше значення однієї з них.
1 1
y1=--- - ----; y2= 8x; y3=5x2+3x+1;
x x2
4. Дані дві функції y1 y2, визначити більшу з них.
1 6 1 1
y1=--- + ----; y2= 3x + ---- + ----;
x x2 6x 9x2
5. На площині задані два кола з радіусами R1, R2 і координатами центрів C1(x1,y1), C2(x2,y2), з'ясувати, чи мають вони: одну, дві, чи не мають спільних точок перетину взагалі.
6. Задані дві функції y1,y2. Cкласти програму для обчислення результату і виводу найменшого значення однієї із них.
2 5
y1= 1 + ----- + ---------- ;
x 1 - x2
2x2
y2= 8x2 - -------.
1 - x
7. Задані площі круга і квадрата, з'ясувати, чи поміститься круг у квадрат.
8. Скласти програму, яка би визначала найбільше значення з трьох функцій.
x x2
y1 = 48x*x2; y2 = ----------; y3 = 1 - ---------.
(x-1)2 2 + x
9. Задана точка з координатами x,y. Встановити, чи належить точка прямокут-
нику, якщо ліва нижня точка його має координати Xl,Yl, а права верхня Xh,Yh.
10. Дані 3 функції y1,y2,y3, визначити значення найбільшої з них.
3
y1 = -----; y2 = 3 + y1; y3 = 8 + x2 +x3;
x
11. Задані дві функції y1,y2. Знайти найбільше значення з них.
x x 2x3
y1 = (1 +2x)2 (--- - ----); y2 = --------.
3 5 1-x2
12. Задана точка з координатами x,y, встановити, чи належить вона колу з
центром C(x0,y0) та радіусом R.
13. Задані три функції y1,y2,y3, знайти найменше значення серед них.

6 2
y1 = ----; y2 = 1 - ----; y3 = 8x3 + 6x2 + 4x + 2.
x2 x
14. Задані три функції y1,y2,y3, знайти найменше значення серед них.
1 2x
y1 = ----; y2 = 1 - ------; y3 = 16 - x
x 1 - x
15. Скласти програму, яка обчислює функцію, знайти найменше значення серед них.
2
| 1 - ---- x > 0;
y = | x
| 2x2 - 2x + 1 x<= 0
16. Задані три функції y1,y2,y3, знайти найбільше значення серед них.
5
y1 = 2x; y2 = --------; y3 = 3x - 7.
1 - x2
17. Задана точка з координатами x,y, встановити, чи належить вона прямокут-
нику завширшки В та висотою H, якщо його ліва нижня вершина має координати
Xl,Yl.

[Poma][a]

1) Создайте свою тему.
2) Пишите на русском языке.
3) Покажите наработки

[Люююдааа]

Сообщение от Leshii

Вот тебе рекурсивное решение данной задачи.

Uses crt;
var
 n: integer;

function del ( n: integer):longint;
begin
 if n = 1 then del:=2 else del:=2*del(n-1);
end;

begin
clrscr;
write('Enter n:');readln(n);
writeln(del(n));
readkey;
end.

Так, а что у вас не получается то?( имею ввиду тот код )

выдает ошибку - nothing to compile. Мне нужно решить именно с циклом с предусловием.

[Leshii]

Люююдааа, новую программу создайте, и вбейте туда этот код.
И можно поинтересоваться, вы во обще код писали ? или вы этот код передрали? Или же вы просто троллите ...
У вас правильно там написано ...

[Poma][a]

1) Код оформляйте на данном форуме тегом [CODE]..[ /CODE]
2) Перезагрузите шарманку, проверяем закрыты ли все другие программы в компиляторе, пробуем если снова нечего компилировать, то пере установите Ваш Я.П.

[Люююдааа]

Сообщение от Leshii

Люююдааа, новую программу создайте, и вбейте туда этот код.
И можно поинтересоваться, вы во обще код писали ? или вы этот код передрали? Или же вы просто троллите ...
У вас правильно там написано ...

Программу писала вот именно, что сама. Вам написала, потому, что написано все врооде бы правильно, а не идет.
Вашего сленга типа "передрали и троллите" не понимаю, разговаривайте на нем сами