Помощь - Поиск - Пользователи - Календарь
Полная версия: програма
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-красавица-
помогите! Я не хрена не знаю этот pascal. дано задание: составить програму вычисления суммы 3х чисел, которые будут вести диалог с пользователем в таком виде:
введите 3 слагаемых
a=1
b=2
c=3
mind abuse
Цитата(-красавица- @ 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
красавица, вот тебе несколько линков:
правила: http://forum.pascal.net.ru/rules.html
не помешает: русский язык для всех

теперь по теме.. честна говоря, лучше открой любой учебник и там, на первых страницах, будут разобраны такие программы...
как пример, могу показать такую:
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
Цитата(compiler @ 12.05.2008 18:16) *


upd
2mind_abuse
эх.. давно я не писал такие программы.. можешь _мне_ объяснить зачем подключён crt? без него программа не откомпилируется?


Нужен чтобы можно было использовать забытый мной clrscr =))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.