wmmail.ru – cервис почтовых рассылок на главную
написать письмо
карта сайта

С чего начать?РекламодательПравилаFAQСтатистикаБиржа статейTOP100ФоткиКонтакты
Логин:
Пароль: 
Регистрация   Забыли пароль?
WMLogin
Пользователей всего:

460157

Пользователей сегодня:

393

Пользователей online:

721

Выплачено ($): 7`053`499,98
Выплат: 7`678`461
Писем прочитано: 1`014`474`696
Новые вопросы

Задать свой вопрос


 
 
Online 4
Все ответы
 
 

Вопрос #29379

Внимание! В разделе вопрос-ответ запрещается:

  • Мат, оскорбления, флуд, реклама
  • Сообщения, не являющиеся вопросами/ответами
  • Нарушение законодательства РФ
  • Попрошайничество в любой форме

Выделите текст и нажмите для цитирования  #  
+2   [13.04.2011 20:01] #744401

Закрытый вопрос от пользователя Программа в Паскале. Цикл

Напишите пожалуйста только тот кусок кода, что с циклом. Кто ответит правильно-центик.
Задача: произведение первых н(н вводим) натуральных чисел, нужно использоввать while...do
В инете нашел только на for
Раздел: Программирование, последний комментарий: 13.04.2011 21:30
Вопрос закрыт пользователем ananas1 по причине Истек трехдневный срок с момента создания вопроса в разделе
Проголосовали: #847927, #850239

Ответы
Ответов всего: 10  вопрос закрыт 
Выделите текст и нажмите для цитирования  #  
+1   [13.04.2011 20:12] #697464   Все ответы пользователя

itog := 1;
while Counter < n do
begin
itog := itog * counter;
Counter := Counter + 1;
end:
Проголосовали: #744401
Выделите текст и нажмите для цитирования  #  
0   [13.04.2011 20:14] #744401   Все ответы пользователя

#697464 пишет while Counter < 10 do
begin
write('Значение счетчика равно ', Counter);
Writeln;
Counter := Counter + 2;
end:

Что за бред? Нужно найти произведение первых n чисел.
Выделите текст и нажмите для цитирования  #  
0   [13.04.2011 20:15] #884279   Все ответы пользователя

какой язык программированния?
Знаю ПХП:bye:
Выделите текст и нажмите для цитирования  #  
0   [13.04.2011 20:16] #697464   Все ответы пользователя

То был пример с первого же найденного в гугле сайта по запросу "pascal while".
Подправил согласно твоему заданию.
Выделите текст и нажмите для цитирования  #  
+2   [13.04.2011 20:38] #850239   Все ответы пользователя

while n>0 do begin
s:=s*n;
n:=n-1;
end;
Проголосовали: smail2133, #744401
Выделите текст и нажмите для цитирования  #  
0   [13.04.2011 20:45] smail2133 Рейтинг 344.14     Стена пользователя smail2133 +92  Все ответы пользователя smail2133

#850239 пишет while n>0 do begin
s:=s*n;
n:=n-1;
end;

:thumbsup:
Забыл я паскаль ужэ )) в школе учили, если б С++ php
Выделите текст и нажмите для цитирования  #  
+2   [13.04.2011 20:50] #831226   Все ответы пользователя

Write('N = '); ReadLn(n);
itog := 1;

While n > 1 do begin
itog := itog * n;
dec(n); {уменьшение на единицу}
end;

Write('Itog = ', itog); ReadLn
Проголосовали: #744401, #935487
Выделите текст и нажмите для цитирования  #  
+1   [13.04.2011 21:22] #661644   Все ответы пользователя

s:=1;
While n>0 do begin
s:=s*n;
n:=n-1;
end;
Проголосовали: #744401
Выделите текст и нажмите для цитирования  #  
0   [13.04.2011 21:26] #744401   Все ответы пользователя

#661644 пишет s:=1;
While n>0 do begin
s:=s*n;
n:=n-1;
end;

неплохо, спасибо:shy:
Выделите текст и нажмите для цитирования  #  
0   [13.04.2011 21:30] #661644   Все ответы пользователя

#744401 пишет
#661644 пишет s:=1;
While n>0 do begin
s:=s*n;
n:=n-1;
end;

неплохо, спасибо:shy:

я в школе паскаль неплохо знала...
И если ответ получен, думаю, можно закрывать... я смотрю, мой вариант был не первый и все они в принципе одинаковые)))

Добавлено спустя 02 минуты 21 секунду
#697464 пишет То был пример с первого же найденного в гугле сайта по запросу "pascal while".
Подправил согласно твоему заданию.

Ну в принципе правильно, только в таком случае надо было counter присвоить значение 1 изначально...

Видеоурок

Вопрос-ответ

НОВОСТИ
31.12.2019С наступающим 2020 годом!
подробнее>>
13.11.2019Редактирование отчетов
подробнее>>

© 2004-2020 «WMMAIL» Пользовательское соглашение