forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)
-   -   ввод-вывод (http://forum.boolean.name/showthread.php?t=17266)

neon 08.09.2012 23:21

ввод-вывод
 
доброго времени суток!

написал на турбо паскале программку для работы

Код:

program dveri;
var
vl,shil,vd,shd,v50x30,v40x20,re,dre,pl: integer;
begin
writeln("высота = ");
readln(vl);
writeln("ширина = ");
readln(shil);
writeln("а рёбер сколько?");
readln(re);
shd=shil-(75+40);
shil=shil-60;
vd=vl-15;
dre=shd*re;
v50x30=vl*2+shil*2;
v20x40=vd*2+shd*2+dre;
pl=vl*shil;
writeln("профиль 50х30:");
writeln("2 x ",vl,"2 x ", shil);
wtiteln("профиль 40x20:");
writeln("2 x ", vd, 2+re, " x ", shd);
writeln("всего будет затрачено:");
writeln("50x30:");
writeln(v50x30);
writeln("40x20:");
writeln(v40x20);
writeln("площадь конструкции:");
writeln(pl);
end.

проблема в том, что в МП я ноль и факов по вводу-выводу я не нашел. у гугла вообще малая выдача по МП =(

ViNT 09.09.2012 00:13

Ответ: ввод-вывод
 
ReadLn заменить на TextField, вместо WriteLn выводить на Canvas с помощью DrawText. Все это детально с примерами описано в хелпе.

neon 09.09.2012 01:38

Ответ: ввод-вывод
 
Цитата:

Сообщение от ViNT (Сообщение 238081)
ReadLn заменить на TextField, вместо WriteLn выводить на Canvas с помощью DrawText. Все это детально с примерами описано в хелпе.

спасибо большое. а математические уравнения решаются так же как и в турбо паскале?

ViNT 09.09.2012 01:45

Ответ: ввод-вывод
 
Цитата:

Сообщение от neon (Сообщение 238082)
а математические уравнения решаются так же как и в турбо паскале?

В каком смысле? ТП решать уравнения не умеет. Вопрос в реализации алгоритмов, в синтаксисе математических выражений или в чем?

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

neon 09.09.2012 01:53

Ответ: ввод-вывод
 
Цитата:

Сообщение от ViNT (Сообщение 238083)
В каком смысле? ТП решать уравнения не умеет. Вопрос в реализации алгоритмов, в синтаксисе математических выражений или в чем?

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

если синтаксис такой же,то для вычисления площади
Код:

pl:=vl*shil;
drawText('pl')

?

ViNT 09.09.2012 01:59

Ответ: ввод-вывод
 
Присваивание выполняется так же, а в DrawText('pl') кавычки не нужны, такая команда выведет на экран строку "pl".
Для вывода значения переменной нужно использовать конструкцию типа
DrawText(''+pl), кавычки могут быть как пустыми, так и содержать строку, которая будет выведена перед числом.

neon 09.09.2012 02:02

Ответ: ввод-вывод
 
точно, кавычки лишние. засыпаю) спасибо вам, буду разбираться.

ViNT 09.09.2012 02:06

Ответ: ввод-вывод
 
Цитата:

Сообщение от neon (Сообщение 238087)
точно, кавычки лишние. засыпаю) спасибо вам, буду разбираться.

Просто без кавычек (как в паскале) не получится, будет ошибка типа данных. Нужно использовать именно конструкцию ''+pl или 'text'+pl.


Часовой пояс GMT +4, время: 15:20.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot