| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите переделать задачу из Pascal в Delphi
art © (2008-11-12 20:15:00)
program PPP;
uses crt
const A=10;
var x,y:real;
begin
clrscr;
write ('x=');
read ln (x);
if x <=3*A then y:=-A*exp(x-3*A) else
y:=-A-A*ln(x-3*A);
write ln ('x=', x:10:3,'y=', y:10:3);
read ln
end
PS. В Delphi не разбираюсь, можно сказать, первый раз вижу...
art (2008-11-13 21:06:00) [1]ЭЭЭЭ.... просто обратилась за помошью... Всем спасибо)))
Сергей М. (2008-11-13 20:48:00) [2]
> art © (13.11.08 20:44) [13]
Кудряво живешь, однако) ..
Один за тебя программу пишет, другие за тебя ей в Делфи портируют, а ты сидишь и знай себе в потолок поплевываешь)
art (2008-11-13 20:44:00) [3]репетитора
www (2008-11-13 20:43:00) [4]
> Есть только решение для паскаля
твое или репетитора?
art (2008-11-13 20:33:00) [5]хожу к репетитору. Делфи он не знает, только паскаль, задачу дали написать на делфи. Вот... Есть только решение для паскаля(((
Anatoly Podgoretsky (2008-11-13 10:15:00) [6]> Palladin (13.11.2008 10:01:09) [9]
Тоже в первый раз видит.
Palladin (2008-11-13 10:01:00) [7]
> PS. В Delphi не разбираюсь, можно сказать, первый раз вижу.
> ..
да ты и в паскале то не очень )
Anatoly Podgoretsky (2008-11-12 23:29:00) [8]> Andy BitOff (12.11.2008 23:02:06) [6]
Вопрос то про Дельфи, а не про Борланд Паскаль фор Виндоус.
Anatoly Podgoretsky (2008-11-12 23:28:00) [9]> art (12.11.2008 22:59:05) [5]
Значит у тебя пока не консольное приложения, советы видимо не читаешь, кроме точки.
Ты поставь указаную директиву или сделай это в настройках проекта.
Andy BitOff (2008-11-12 23:02:00) [10]Run-time error 105: File not open for output
This error occurs if you try to use standard input and output functions like Readln and Writeln without the Uses WinCRT; statement.
To correct this error, add Uses WinCRT; to your program.
© Borland Pascal Help (bpw.hlp).
art (2008-11-12 22:59:00) [11]все сделано... точку сами поставили после энд... только вот делфи теперь ругается: Runtime error 105 at 004060D9
Anatoly Podgoretsky (2008-11-12 22:18:00) [12]> Loginov Dmitry (12.11.2008 22:11:03) [3]
Оставьте, хоть что то ему для самостоятельной работы, а не только сдача работы предподователю.
Loginov Dmitry (2008-11-12 22:11:00) [13]Еще бы точку в конце после end.
Servy (2008-11-12 21:04:00) [14]> [1]
Туда еще {$APPTYPE CONSOLE} добавить неплохо бы. Ну и пробелы в именах функций убрать.
Anatoly Podgoretsky (2008-11-12 20:40:00) [15]
program PPP;
// uses crt
const A=10;
var x,y:real;
begin
// clrscr;
write ('x=');
read ln (x);
if x <=3*A then y:=-A*exp(x-3*A) else
y:=-A-A*ln(x-3*A);
write ln ('x=', x:10:3,'y=', y:10:3);
read ln
end
read ln пишется как readln
| |
