|
08.09.2012, 23:21
|
#1
|
AnyKey`щик
Регистрация: 25.08.2012
Адрес: Украина
Сообщений: 4
Написано одно полезное сообщение
|
ввод-вывод
доброго времени суток!
написал на турбо паскале программку для работы
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.
проблема в том, что в МП я ноль и факов по вводу-выводу я не нашел. у гугла вообще малая выдача по МП =(
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
09.09.2012, 00:13
|
#2
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: ввод-вывод
ReadLn заменить на TextField, вместо WriteLn выводить на Canvas с помощью DrawText. Все это детально с примерами описано в хелпе.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
09.09.2012, 01:38
|
#3
|
AnyKey`щик
Регистрация: 25.08.2012
Адрес: Украина
Сообщений: 4
Написано одно полезное сообщение
|
Ответ: ввод-вывод
Сообщение от ViNT
ReadLn заменить на TextField, вместо WriteLn выводить на Canvas с помощью DrawText. Все это детально с примерами описано в хелпе.
|
спасибо большое. а математические уравнения решаются так же как и в турбо паскале?
|
(Offline)
|
|
09.09.2012, 01:45
|
#4
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: ввод-вывод
Сообщение от neon
а математические уравнения решаются так же как и в турбо паскале?
|
В каком смысле? ТП решать уравнения не умеет. Вопрос в реализации алгоритмов, в синтаксисе математических выражений или в чем?
Алгоритмы можно реализовать практически любые, синтаксис вычислений такой же, некоторые функции могут отличаться. Плюс для точных вычислений нужно использовать числа с плавающей точкой, хотя и там иногда глюки бывают.
|
(Offline)
|
|
09.09.2012, 01:53
|
#5
|
AnyKey`щик
Регистрация: 25.08.2012
Адрес: Украина
Сообщений: 4
Написано одно полезное сообщение
|
Ответ: ввод-вывод
Сообщение от ViNT
В каком смысле? ТП решать уравнения не умеет. Вопрос в реализации алгоритмов, в синтаксисе математических выражений или в чем?
Алгоритмы можно реализовать практически любые, синтаксис вычислений такой же, некоторые функции могут отличаться. Плюс для точных вычислений нужно использовать числа с плавающей точкой, хотя и там иногда глюки бывают.
|
если синтаксис такой же,то для вычисления площади
pl:=vl*shil;
drawText('pl')
?
|
(Offline)
|
|
09.09.2012, 01:59
|
#6
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: ввод-вывод
Присваивание выполняется так же, а в DrawText('pl') кавычки не нужны, такая команда выведет на экран строку "pl".
Для вывода значения переменной нужно использовать конструкцию типа
DrawText(''+pl), кавычки могут быть как пустыми, так и содержать строку, которая будет выведена перед числом.
|
(Offline)
|
|
09.09.2012, 02:02
|
#7
|
AnyKey`щик
Регистрация: 25.08.2012
Адрес: Украина
Сообщений: 4
Написано одно полезное сообщение
|
Ответ: ввод-вывод
точно, кавычки лишние. засыпаю) спасибо вам, буду разбираться.
|
(Offline)
|
|
09.09.2012, 02:06
|
#8
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: ввод-вывод
Сообщение от neon
точно, кавычки лишние. засыпаю) спасибо вам, буду разбираться.
|
Просто без кавычек (как в паскале) не получится, будет ошибка типа данных. Нужно использовать именно конструкцию ''+pl или 'text'+pl.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 21:53.
|