Помогите новичку, Просты вопросы от новичка :) Опции

[Putin]

Начал изучать паскаль. Скачал самоучитель и програмку Турбо Паскаль 7.1 ввожу текст:

Program My_First_Program; 

const 

Text = 'Я программирую на Турбо Паскале';  

begin 

WriteLn(Text); 

end.

нажимаю Ctrl+F9 открываеться чёрное окошко и сразу же исчезает ничего невидно. Скажите что я не так делаю?

--------------------------------------------------------------------
Прошу прощения у администрации если создал тему не в том разделе. Если не в том перенесите тему в нужный только предупредите Спасибо.

Сообщение отредактировано: klem4 - 7.04.2008 16:45

[Fanat]

Программу в теги возьми....
Перед end. ReadLn; вставь, что бы сразу не выходило...

[-lamer-]

ReadLn не помогает.

[Гость]

Программу в теги возьми....
Перед end. ReadLn; вставь, что бы сразу не выходило...

program Kr_1;
var x:array[1..15] of real;
    i,M1:integer;
    y,A1,A2:real;
	begin
        writeln;
	writeln ('input 15 nambers');
        writeln;
	for i:=1 to 15 do
	read (x[i]);
		A1:=0;
		A2:=0;
		for i:=1 to 15 do
			begin
			A1:=A1+x[i];
			if x[i]>0 then A2:=A2+x[i];
			end;
                        writeln;
			writeln ('A1=',A1);
                        writeln;
			writeln ('A2=',A2);
                        writeln;
		M1:=0;
		for i:=1 to 15 do
		if x[i]<A1 then M1:=M1+1;
		writeln ('M1=',M1);
                writeln;
		if A1>0 then
			begin
			y:=(A2+17.8*10*10*10)/(cos(A2)*cos(A2)+M1*A2);
			writeln('y=',y);
			end
			else
				begin
				y:=0.0023+A2+M1;
				writeln('y=',y);
				end;
				readln
	end.

Что надо сделать, чтобы окно программы не закрывалось.

Сообщение отредактировано: klem4 - 7.04.2008 16:45

[Айра]

Странно.. должно помочь..

добавлено: это к программке из поста #1

Сообщение отредактировано: Айра - 6.04.2008 21:54

[volvo]

должно помочь..

Не должно... Чтобы помогло, надо пользоваться для ввода тоже ReadLn-ом, если для ввода данных используется просто Read, то может понадобиться больше одного ReadLn в конце программы...

Сообщение отредактировано: volvo - 6.04.2008 21:50

[Айра]

Угу..
Просто когда я отвечала еще не было последней программки..

[Гость]

Угу..
Просто когда я отвечала еще не было последней программки..

Для №1 подходит. Для моей не подходит, что посоветуете.

[volvo]

Я написал тебе, что надо делать... Все Read-ы исправь на ReadLn...

[Гость]

to Putin: Коллега (я сам только неделю учу Pascal по самоучителю)! Самое интересное, что ни в одной книге я не встретил указаний насчет просмотра результатов работы. А нужно всего лишь нажать Alt+F5.

[sasha2513]

помогите написать программу!)
нужно подщитать каких букв в тексте больше гласных или согласных!

[Lapp]

помогите написать программу!)
нужно подщитать каких букв в тексте больше гласных или согласных!

М

sasha2513, пожалуйста, ознакомься с Правилами Форума (особенно пп. 3 и 3а), а также читай правила того раздела, в который пишешь. Тема закрыта.