Вывести на печать все числа, включительно до нуля

@Лирик · Регистрация: 29.10.2009

Author24 — интернет-сервис помощи студентам

Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа, включительно до нуля.

Тут на форуме есть решения, но не на Паскале. А мне надо с параметром как-то связать. Не слишком длинно чтоб было. Если ..., то ... и действие.
Надеюсь кто-нибудь откликнется

@PAZITIV · 29.10.2009, 19:33

Лирик, последовательность в виде чего?
если в виде массива , то можно вот так написать

Pascal

1	while a[i]>0 then writeln(a[i])

@Лирик · 29.10.2009, 19:37 **[ТС]**

Кароче нам вот так объясняли. Даны любые числа, например 1 2 3 0 3
A: 1 2 3 0
i:= ?
A[i] = 0
K=1;
for:=1 to k do

Эээ это было написано на доске, я списала))) но не до конца поняла что значит.
Т.е. 1 2 3 0 - надо чтоб вывелись на печать(теоритически).

@PAZITIV · 29.10.2009, 19:42

Лирик, задание в точности написано?

@Лирик · 29.10.2009, 20:17 **[ТС]**

В точности! Надо написать лишь условия...а я вот не знаю как((

Добавлено через 35 минут
Всё, мне завтра светит 2...
и контроша еще эхх...
Пойду шпору писать нафиг

@PAZITIV · 29.10.2009, 21:51

Лирик,

Pascal

program trt;
uses crt;
var a:array [1..100] of integer;
    param,i,n:integer;
 
begin clrscr;
 
write('n=');
readln(n);
for i:=1 to n do
                begin
                readln(a[i]);
                end;
for i:=1 to n do write('|',a[i]);
writeln(' ' );
write('param=');
readln(param);
 
i:=1;
while a[i]<>param do
  begin
    write(a[i]);
    i:=i+1;
  end;
readln;
end.

ЗЫ. Это форум, а не аська, тут быстрых ответов не бывает!если сильно нада, молжно было и в аську написать, она есть в профиле

@Лирик 0 / 0 / 0 Регистрация: 29.10.2009 Сообщений: 3
		1
	Вывести на печать все числа, включительно до нуля 29.10.2009, 19:28. Показов 1831. Ответов 5 Метки нет (Все метки) Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа, включительно до нуля. Тут на форуме есть решения, но не на Паскале. А мне надо с параметром как-то связать. Не слишком длинно чтоб было. Если ..., то ... и действие. Надеюсь кто-нибудь откликнется 0

@Лирик 0 / 0 / 0 Регистрация: 29.10.2009 Сообщений: 3
	29.10.2009, 19:37 [ТС]	3
	Кароче нам вот так объясняли. Даны любые числа, например 1 2 3 0 3 A: 1 2 3 0 i:= ? A[i] = 0 K=1; for:=1 to k do Эээ это было написано на доске, я списала))) но не до конца поняла что значит. Т.е. 1 2 3 0 - надо чтоб вывелись на печать(теоритически). 0

@PAZITIV Реальность Нереальна! 352 / 128 / 7 Регистрация: 02.08.2009 Сообщений: 3,216 Записей в блоге: 1
	29.10.2009, 19:42	4
	Лирик, задание в точности написано? 0

@Лирик 0 / 0 / 0 Регистрация: 29.10.2009 Сообщений: 3
	29.10.2009, 20:17 [ТС]	5
	В точности! Надо написать лишь условия...а я вот не знаю как(( Добавлено через 35 минут Всё, мне завтра светит 2... и контроша еще эхх... Пойду шпору писать нафиг 0

	29.10.2009, 21:51