Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.942 RSS
←   Январь 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.942 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 132
от 24.01.2006, 22:21

Администратор:Калашников О.А.
В рассылке:Подписчиков: 151, Экспертов: 36
В номере:Вопросов: 1, Ответов: 5

Вопрос № 33618: Здравствуйте, подскажите что в моей программе не правильно? Pragram exe; Uses Crt; Var a:array [1...10] of integer; x,dx,n,i:integer; s:real; Begin ClrScr; window(20,3,50,5); TextAttr:=16+7; ClrScr; GotoXY(...

Вопрос № 33.618
Здравствуйте, подскажите что в моей программе не правильно?
Pragram exe;
Uses Crt;
Var a:array [1...10] of integer;
x,dx,n,i:integer;
s:real;
Begin
ClrScr;
window(20,3,50,5);
TextAttr:=16+7;
ClrScr;
GotoXY(2,2);
write('Введите:');
Readln(n);
dx:=(80-(n+1)*3) div n;
x:=0;
S:=0;
TextAttr:=2*16+14;
for i:=1 to n do
begin
x:=x+3;
window(x,7,x+dx,9);
ClrScr;
GotoXY (2,2);
Readln (a[i]);
S:=S+a[i];
x:=x+dx;
end;
TextAttr:=4*16+14;
window(18,11,53,13);
ClrScr;
GotoXY(3,2);
write ('ср. ариф.',s/n:5:2);
Readln;
window (1,1,80,25);
TextAttr:=7;
ClrScr;
end.
Отправлен: 19.01.2006, 17:58
Вопрос задал: [TiER] (статус: 1-ый класс)
Всего ответов: 5
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Whisper
Здравствуйте, [TiER]!
Слово Prоgram пишеться через "o"
а при создании массива ставиться 2 точки - ".." как и при любом другом перечислении.

пожалуй и все ошибки
---------
все тленно
Ответ отправила: Whisper (статус: 4-ый класс)
Отправлен: 19.01.2006, 18:16
Отвечает: newinfo2005
Здравствуйте, [TiER]!
pragram = program
Var a:array [1...10] of integer;=Var a:array [1..10] of integer;

---------
"Спасибо" - нет такой валюты.
Ответ отправил: newinfo2005 (статус: 6-ой класс)
Отправлен: 19.01.2006, 19:54
Отвечает: n/a
Доброго здоровья!
Смотря что тебе не нравится.
На вскидку - ошибка в DNA.
/me интересно, найдутся ли желающие читать страницу кода без описания ошибки?
Ответ отправил: n/a (статус: 2-ой класс)
Отправлен: 19.01.2006, 22:44
Отвечает: XMF
Здравствуйте, [TiER]!
--
ИМХО: write ('ср. ариф.',s/n:5:2);
тут s - real, n - int

попробуй подключить еще: users dos;
--
PS: Подключать CRT опасно, ибо на процесорах Р3+ програмы глючат ;)
Ответ отправил: XMF (статус: 3-ий класс)
Отправлен: 19.01.2006, 23:43
Отвечает: sir henry
Здравствуйте, [TiER]!
А что Вы хотели в своей программе сделать? :)
Если Вы про синтаксические ошибки, то компилятор Вам должен был их выдать, например:
- "PrАgram" - сами увидите? :)
- массив неправильно объявляете.
Если ошибки по логике программы, то сначала напишите, что у Вас программа должна делать, но не делает.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 20.01.2006, 05:52

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале 		Яндекс Rambler's Top100
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора		 Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus
Архив рассылки		 Отписаться Вебом Почтой
Вспомнить пароль
В избранное