Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ програма

Автор: -красавица- 12.05.2008 20:54

помогите! Я не хрена не знаю этот 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('a=');    
readln(a);      {ввод a}
writeln('b=');
readln(b);      {ввод b}
writeln('c=');
readln(c);      {ввод c}  

sum:=a+b+c;  {считаем сумму}

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 =))