помогите! Я не хрена не знаю этот pascal. дано задание: составить програму вычисления суммы 3х чисел, которые будут вести диалог с пользователем в таком виде: введите 3 слагаемых a=1 b=2 c=3
Автор: mind abuse 12.05.2008 21:16
Цитата(-красавица- @ 12.05.2008 17:54)
помогите! Я не хрена не знаю этот pascal. дано задание: составить програму вычисления суммы 3х чисел, которые будут вести диалог с пользователем в таком виде: введите 3 слагаемых a=1 b=2 c=3
Если модераторы не закроют, то
Код
program t1; uses crt; var sum,a,b,c: integer; {описание типа использующихся в программе переменных, тип integer - целочисленные}
begin {начало программы} writeln('Input 3 items');
writeln('Sum of items is ', sum); {"Сумма слагаемых равна", выводим сумму на экран} end. {конец = )}
Вы это имели в виду или что-то другое, с окнами например?
Автор: compiler 12.05.2008 21:16
красавица, вот тебе несколько линков: правила: http://forum.pascal.net.ru/rules.html не помешает: http://gramota.ru/
теперь по теме.. честна говоря, лучше открой любой учебник и там, на первых страницах, будут разобраны такие программы... как пример, могу показать такую:
var { в этом разделе мы объявляем переменные} a, b : integer; { собственно переменные, тип integer указывает на то что они целочисленные} begin { тело программы или основная часть } writeln('Это супе-пупер программа!'); { вывод строчки на экран } readln(a); { чтение переменной } readln(b); writeln(a-b); { вывод разницы } end.
перед end. можешь добавить readln..
upd 2mind_abuse эх.. давно я не писал такие программы.. можешь _мне_ объяснить зачем подключён crt? без него программа не откомпилируется? 2красавица я думаю, тебе полезно будет знать, что после выполнения вывода/ввода каретка не обязательно переводится. посмотри:
begin write('Привет!'); write('Как дела?'); writeln; writeln('Привет!'); writeln('Как дела?'); end.
Автор: mind abuse 12.05.2008 21:44
Цитата(compiler @ 12.05.2008 18:16)
upd 2mind_abuse эх.. давно я не писал такие программы.. можешь _мне_ объяснить зачем подключён crt? без него программа не откомпилируется?
Нужен чтобы можно было использовать забытый мной clrscr =))