VPF::Циклы - Форум программистов

andronova

Дата 25.5.2009, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.5.2009

Репутация: нет
Всего: нет

Помогите, пожалуйста! Совсем не знаю Паскаль.
1. Вычислить F=2*4*...+(2n), n>0. Записать варианты программы с различными видами циклов.
2. В ЭВМ поступили результаты спортсменов по плаванию для 3 спортсменов. Составить программу, которая выбирает лучший результат и выводит его на экран с сообщением о том, что это резуьтат победителя.
3. Логической t присвоить значение true или false в зависимости от того, является ли натуральное число k степенью числа 3 или нет.
Спасибо всем, кто откликнется!!!

I_Am_Rock

Дата 25.5.2009, 12:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: нет
Всего: 15

Цитата(andronova @ 25.5.2009, 11:24

)

1. Вычислить F=2*4*...+(2n), n>0. Записать варианты программы с различными видами циклов.

Цикл со счетчиком

Код


uses crt;
const
n=10;
var
F,i:integer;
begin
clrscr;
for i:=1 to n do begin
F:=F+2*i;
end;
writeln('F = ',F);
readkey;
end.

Цикл с условием

Код


uses crt;
const
n=10;
var
F,i:integer;
begin
clrscr;
i:=1;
while i<=n do
begin
F:=F+2*i;
i:=i+1;
end;
writeln('F = ',F);
readkey;
end.

Остальное уже как-то лень делать.

I_Am_Rock

Дата 25.5.2009, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: нет
Всего: 15

Можно еще 3 цикл сделать.

Во втором замените

Код


while i<=n do begin
...
...
end;

на

Код


repeat
...
...
until i>n

Я не проверял, но должно работать.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »