KMA 
Долгожитель
|
     
Пожалуйсто помогите написать программу сумму от 0 до 100 с операторами цикла while,repeat,for,естественно на паскале,очень прошу....
А что мне за это будет? =)))
Для цикла while я тебе напишу, для repeat то же самое, только высказывание надо будет проотрицать.
i:=0;
while i<100 do
begin
inc (i);
summ:=summ+i
end;
writeLn (summ);
Для for
for i:=0 to 100 do
summ:=summ+i;
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 29 апр. 2007 23:17 | IP
|
|
anuta
Новичок
|
 
так мне надо чтобы все эти операторы были в одной проге,задание тоже
(Сообщение отредактировал anuta 30 апр. 2007 12:07)
|
Всего сообщений: 7 | Присоединился: апрель 2007 | Отправлено: 30 апр. 2007 11:02 | IP
|
|
anuta
Новичок
|
А вы пробывали эту пргу запускать,у меня она не запускается
|
Всего сообщений: 7 | Присоединился: апрель 2007 | Отправлено: 30 апр. 2007 15:06 | IP
|
|
Siriusss
Новичок
|
Функция, которая определяет количество отрицательных элементов в строке будет выглядить так: ...
Если количество отрицательных элементов в строках одинаково, то прога выдает только первую, а надо все 
|
Всего сообщений: 28 | Присоединился: апрель 2007 | Отправлено: 1 мая 2007 15:53 | IP
|
|
KMA
Долгожитель
|
А вы пробывали эту пргу запускать,у меня она не запускается
Уважаемая, я за тебя программы писать не собирался. Я это делаю за деньги, на заказ, есть желание, вперед. У меня все работает прекрасно. Обычно (это на будущее), выкладывают только основной момент в программе, в котором возникли вопросы, а никак не всю.
Если количество отрицательных элементов в строках одинаково, то прога выдает только первую, а надо все
В чем в принципе сложность, поменяй код в основной программе на следующий.
Code Sample:
nOtr:=0;
for i:=1 to 2 do
begin
nNow:=otrInRow (B, i); {текущее знач. отриц. элементов}
if nNow>nOtr {ищем отриц. максим. количество отриц. элем.}
then nOtr:=nNow;
end;
И добавь после него следующее.
Code Sample:
for i:=1 to 2 do
begin
if otrInRow (B, i)=nOtr
then showRow (B, i);
end;
где showRow
Code Sample:
procedure showRow (m: mas; i: byte);
Begin
for j:=1 to 4 do
write (m[i, j], ' ');
writeLn
End;
(Сообщение отредактировал KMA 2 мая 2007 23:32)
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 2 мая 2007 0:15 | IP
|
|
anuta
Новичок
|
Уважаемый КМА, а я вам просто так могу бесплатно намордник выслать.....,вам это просто неоходимо!!!!!
|
Всего сообщений: 7 | Присоединился: апрель 2007 | Отправлено: 2 мая 2007 11:44 | IP
|
|
Siriusss
Новичок
|
В чем в принципе сложность...
Спасибо, так бы и расцеловала 
|
Всего сообщений: 28 | Присоединился: апрель 2007 | Отправлено: 2 мая 2007 12:33 | IP
|
|
KMA
Долгожитель
|
Уважаемый КМА, а я вам просто так могу бесплатно намордник выслать.....,вам это просто неоходимо!!!!!
Мне намордник?! Оригинально! Честно, не в моих принципах ругаться с кем-то. Но человек, который не хочет разобраться с ОЧЕНЬ ПРОСТЫМ заданием, так называемым контрольным примером понимания циклов, то он просто леньтяй.
Я могу объяснить циклы, но тогда вы и должны попросить объяснить вам их, но никак не требовать от других решать конкретную задачу. Мне не сложно набрать его, не сложно объяснить, но задавайте тогда вопросы конкретнее. Мол так и так, не знаю что делать, не понимаю как работает, объясните или же что-нибудь посоветуйте. А не в тупую выкидывать задачу.
Да простят меня модераторы, за мой полуфлуд.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 2 мая 2007 23:28 | IP
|
|
anuta
Новичок
|
Вы чёрствый человек,очень самоуверенный,высокомерный а это не есть хорошо.....!!!!!!!Это от сердца,не считайте за грубость.
|
Всего сообщений: 7 | Присоединился: апрель 2007 | Отправлено: 3 мая 2007 10:09 | IP
|
|
anuta
Новичок
|
А ещё если вы внимательней прочитаете моё собщение, то я никого не принуждала писать мне прогу, а попросила помочь..,а это разные вещи..
|
Всего сообщений: 7 | Присоединился: апрель 2007 | Отправлено: 3 мая 2007 10:14 | IP
|
|
|
Форум
Турбо Паскаль. Программирование на Pascal
