Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2009, 11:42   #1
andronova
Пользователь
 
Аватар для andronova
 
Регистрация: 17.02.2009
Сообщений: 21
Вопрос Циклы. Паскаль

Помогите, пожалуйста! Совсем не знаю Паскаль.
1. Вычислить F=2*4*...+(2n), n>0. Записать варианты программы с различными видами циклов.
2. В ЭВМ поступили результаты спортсменов по плаванию для 3 спортсменов. Составить программу, которая выбирает лучший результат и выводит его на экран с сообщением о том, что это резуьтат победителя.
3. Логической t присвоить значение true или false в зависимости от того, является ли натуральное число k степенью числа 3 или нет.
Спасибо всем, кто откликнется!!!
andronova вне форума Ответить с цитированием
Старый 25.05.2009, 12:58   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Вычмслить F=2*4*...+(2n), n>0. Записать варианты программы с различными видами циклов.
1.
Код:
var i,n,f:integer;
begin
 n:=4;i:=1;while(i<n) do begin f:=f+(2*i); inc(i); end;
 write(f);
end.
2.
Код:
var i,n,f:integer;
begin
 n:=4;i:=1;repeat f:=f+(2*i); inc(i); intil i=n;
 write(f);
end.
3.
Код:
var i,n,f:integer;
begin n:=4;
 for i:=1 to n do begin f:=f+(2*i); end;
 write(f);
end.
Это по памяти...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Турбо Паскаль. Циклы. bagfinder Помощь студентам 3 20.03.2009 00:48
паскаль...циклы и массивы... Верочка Помощь студентам 4 15.03.2009 11:35
паскаль...массивы и циклы... Верочка Помощь студентам 6 26.02.2009 21:06
Циклы(паскаль) Freia Помощь студентам 6 26.12.2008 13:37