Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите решить задачу с процедурой
Напишите программу, состоящую из трех процедур и основной программы. Первая процедура организует ввод двух целых чисел X и Y, вторая проверяет их сумму, третья выводи результат. Используйте эти процедуры в основной программе. Используйте X и Y как глобальные переменные.
1 | Автор: Lara_Kos | 2012-12-07, 19:13   |  Репутация: [ + 0 ]
Quote (Lara_Kos)
вторая проверяет их сумму,


проверяет на что?)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-12-09, 17:05   |  Репутация: [ + 211 ]
не проверяет, а вычисляет, извиняюсь)))
3 | Автор: Lara_Kos | 2012-12-10, 19:40   |  Репутация: [ + 0 ]
var
sum,x,y:integer;
procedure ReadXandY();
begin
read(x,y);
end;
procedure SumXandY();
begin
sum:=x+y;
end;
procedure Result();
begin
writeln('X = ', x);
writeln('Y = ', y);
writeln('X + Y = ', sum);
end;
begin
ReadXandY();
SumXandY();
Result();
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:). Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-12-10, 20:00   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: