IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
Closed Topic Открыть новую тему 
> Помогите новичку, Просты вопросы от новичка :)
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


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

Program My_First_Program; 

const

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

begin

WriteLn(Text);

end.


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

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

Сообщение отредактировано: klem4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Fanat
***

Группа: Пользователи
Сообщений: 261
Пол: Мужской
Реальное имя: Сергей

Репутация: -  5  +


Программу в теги возьми....
Перед end. ReadLn; вставь, что бы сразу не выходило... smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






ReadLn не помогает.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата(Fanat @ 16.02.2008 0:46) *

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


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 -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


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

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

Сообщение отредактировано: Айра -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






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

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Угу..
Просто когда я отвечала еще не было последней программки..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Цитата(Айра @ 6.04.2008 21:52) *

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


Для №1 подходит. Для моей не подходит, что посоветуете.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Я написал тебе, что надо делать... Все Read-ы исправь на ReadLn...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






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





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


помогите написать программу!)
нужно подщитать каких букв в тексте больше гласных или согласных!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(sasha2513 @ 14.03.2010 13:57) *

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


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



--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 26.11.2020 11:31
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name