Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 80.

Даны два целых числа. Поменять местами их значения.

{В Turbo Pascal 7.0 такой процедуры нет, поэтому мы создадим ее сами. Менять местами значения двух переменных можно двумя способами - через промежуточную переменную или без нее. Напишем процедуру, воспользовавшись первым способом.}



uses crt;
var a,b: integer;
procedure swap (var x,y: integer);
var z: integer;
begin
  z:=x;x:=y;y:=z;
end;

begin
  clrscr;
  write('a=b=');readln(a, b);
  swap(a,b);
  writeln('a=,b=',a, ' ' ,b);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru