IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> програма, составить програму вычисления суммы 3х чисел
сообщение
Сообщение #1


Гость






помогите! Я не хрена не знаю этот pascal. дано задание: составить програму вычисления суммы 3х чисел, которые будут вести диалог с пользователем в таком виде:
введите 3 слагаемых
a=1
b=2
c=3
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Студент
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской
Реальное имя: Владимир

Репутация: -  3  +


Цитата(-красавица- @ 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.    {конец = )}



Вы это имели в виду или что-то другое, с окнами например?


--------------------
...Чего-то хотелось: не то конституции, не то севрюжины с хреном, не то кого-нибудь ободрать.
(М. Е. Салтыков-Щедрин)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


красавица, вот тебе несколько линков:
правила: 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.


Сообщение отредактировано: compiler -


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Студент
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской
Реальное имя: Владимир

Репутация: -  3  +


Цитата(compiler @ 12.05.2008 18:16) *


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


Нужен чтобы можно было использовать забытый мной clrscr =))


--------------------
...Чего-то хотелось: не то конституции, не то севрюжины с хреном, не то кого-нибудь ободрать.
(М. Е. Салтыков-Щедрин)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.10.2020 19:40
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name