Начинающему нужна помощь - Страница 8

Vladimir_S · 04.09.2010, 20:07

Цитата:

Сообщение от Бродяга

её я сделал

Ну так выложите сюда (текстом, не скрином). Добавим.

Бродяга · 04.09.2010, 20:16

Цитата:

Сообщение от Vladimir_S

Дык... элементарно:

Код:

Var
 i :Integer;
BEGIN
 For i:=1 to 100 do
  Write(i:4);
 For i:=99 downto 1 do
  Write(i:4);
 Readln;
END.

я до этого не ошёл.
Учебник немного не так сделан - сначала это задание а затем обьяснение темы с for/
А можно маааленький мануальчик что есть что?

Бродяга · 04.09.2010, 20:20

Код:

VAR a : String;
BEGIN
	repeat 
		WriteLn('Введите слово');
		ReadLn(a);
		WriteLn(a, '!')
	until a='Хватит';
	WriteLn('Хватит так хватит')
readln; ;
END.

Программа - издевалка но задание есть задание. ( о чём я говорю? яж даже половины заданий не сделал - там задание на знание математических формул а я их помню оооооооочень плохо)

Vladimir_S · 04.09.2010, 20:53

Цитата:

Сообщение от Бродяга

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

Например, так:

Код:

VAR 
 a : String;
 n : Integer;
BEGIN
 n:=0;
 repeat
  n:=n+1; 
  WriteLn('Введите слово');
  ReadLn(a);
  WriteLn(n:4,' ',a, '!')
 until a='Хватит';
 WriteLn('Хватит так хватит');
 readln; 
END.

Vladimir_S · 04.09.2010, 21:06

Цитата:

Сообщение от Бродяга

А можно маааленький мануальчик что есть что?

По нумерованному циклу? Да там всё совсем просто. Назначается параметр цикла (i), значение которого при каждом выполнении тела цикла изменяется на 1, затем указываются начальное и конечное значение параметра цикла. Если параметр цикла возрастает, то цикл оформляется так:
For i:=<начальное значение> to <конечное значение> do
begin <тело цикла> end;
Вот, собственно, и всё.
Если параметр цикла не возрастает, а убывает (как во второй части программы - от 99 до 1), то to заменяется на downto. Если тело цикла состоит всего из одного оператора (как в нашем случае), то операторные скобки begin, end можно не ставить.

Бродяга · 04.09.2010, 21:23

Спасибо!!!

Бродяга · 04.09.2010, 23:07

так - звук и процедуры я благополучно пропустил (звук я буду просто вставлять а процедуры заменю). перешёл к графике - нужно указать путь к графическим драйверам фри паскаля. где их искать подскажите пожалуйста!!!

Бродяга · 04.09.2010, 23:19

ух ты нашёл. но теперь графический режим вылазиит на весь экран - можно сделать чтобы он был маленьким окошечком?

Бродяга · 05.09.2010, 12:30

Сегодня создал вот такое чудо. Лупоглазенький но по мне пойдёт!

Бродяга · 05.09.2010, 17:32

Решил сделать "лохотрон" от делать нечего, но возникла проблемка - один раз пролетает а второй раз повтаряться ни собирается вот программа -

Код:

LABEL v1;
VAR a :Real;
BEGIN
 writeln ('Ќ*ЁиЁ зЁб«® ¬®¦Ґв вл ўл©Ја*Ґи!!!');
v1: ReadLn (a);
if a=73  then writeln ('’л Ї®Ї*«!!!ЏаЁ§ вў®©')
         else writeln ('’л *Ґ Ї®Ї*«!!! Џ®Їа®Ўг© Ґйс г вҐЎп ®Ўп§*вҐ«м*® Ї®«гзЁбп!');
GOTO v1
Readln;
END.

Лога нет. Просто пишет что прервана компиляция

04.09.2010, 20:20	#73 (permalink)
Бродяга Снова перешел на Vist'у Регистрация: 17.04.2010 Сообщений: 1,685 Записей в дневнике: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 293	Код: VAR a : String; BEGIN repeat WriteLn('Введите слово'); ReadLn(a); WriteLn(a, '!') until a='Хватит'; WriteLn('Хватит так хватит') readln; ; END. Программа - издевалка но задание есть задание. ( о чём я говорю? яж даже половины заданий не сделал - там задание на знание математических формул а я их помню оооооооочень плохо)

05.09.2010, 12:30	#79 (permalink)
Бродяга Снова перешел на Vist'у Регистрация: 17.04.2010 Сообщений: 1,685 Записей в дневнике: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 293	Сегодня создал вот такое чудо. Лупоглазенький но по мне пойдёт! Миниатюры

05.09.2010, 17:32	#80 (permalink)
Бродяга Снова перешел на Vist'у Регистрация: 17.04.2010 Сообщений: 1,685 Записей в дневнике: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 293	Решил сделать "лохотрон" от делать нечего, но возникла проблемка - один раз пролетает а второй раз повтаряться ни собирается вот программа - Код: LABEL v1; VAR a :Real; BEGIN writeln ('ЌЁиЁ зЁб«® ¬®¦Ґв вл ўл©ЈаҐи!!!'); v1: ReadLn (a); if a=73 then writeln ('’л Ї®Ї«!!!ЏаЁ§ вў®©') else writeln ('’л Ґ Ї®Ї«!!! Џ®Їа®Ўг© Ґйс г вҐЎп ®Ўп§вҐ«м*® Ї®«гзЁбп!'); GOTO v1 Readln; END. Лога нет. Просто пишет что прервана компиляция

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

04.09.2010, 21:23	#76 (permalink)
Бродяга Снова перешел на Vist'у Регистрация: 17.04.2010 Сообщений: 1,685 Записей в дневнике: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 293	Спасибо!!!

04.09.2010, 23:07	#77 (permalink)
Бродяга Снова перешел на Vist'у Регистрация: 17.04.2010 Сообщений: 1,685 Записей в дневнике: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 293	так - звук и процедуры я благополучно пропустил (звук я буду просто вставлять а процедуры заменю). перешёл к графике - нужно указать путь к графическим драйверам фри паскаля. где их искать подскажите пожалуйста!!!

04.09.2010, 23:19	#78 (permalink)
Бродяга Снова перешел на Vist'у Регистрация: 17.04.2010 Сообщений: 1,685 Записей в дневнике: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 293	ух ты нашёл. но теперь графический режим вылазиит на весь экран - можно сделать чтобы он был маленьким окошечком?