Навигация
 
Главная
Для начинающих
Паскаль/Pascal
Bash

Визуальное программирование
• Visual Basic
• Delphi/Делфи
• C++/Си++/Си
• документация
• Компоненты

WEB программирование
• MySQL/мускул
• Web-дизайн
•• Шрифты
• PHP/Пхп
• Документация PHP
• JavaScript
•• библиотека jquery
•  Документация
Прочее

 
 
Поиск по сайту
 




 
 
О нас
  У нас Вы можете скачать исходники, скачать скрипты, найти исходники, исходники delphi, документация по JQeury, исходники си, учебник HTML  
 
Теги
  codeserfercom, Linux, nbspnbsp, Private, Visual, Возможность, Пример, Рассмотрим, Сегодня, Теперь, будет, данных, значение, который, может, можно, написать, например, очень, переменной, переменных, пользователя, помощью, программа, программирования, программы, просто, работы, разработки, решил, сделать, скрипт, строки, строку, также, только, функции, число, этого, языка

Показать все теги
 
 
Счетчики
 
 
 
Реклама
 
Ландшафтные работы фитодизайн интерьера устройство водоемов.
Выгодная прочистка канализации , есди у Вас есть коттедж
Популярные Отели греции, явиться современная греция туры цены.
 
 
Лучшие коды
   
   
 
Меняем значения переменных местами
 Категория: Паскаль | автор: Hackintosh | 8 апреля 2009 | Просмотров: 4377  



 
Как вы уже заметили мой коллега Vista опубликовал код, исполняющий взаимозамену значений переменных. Что ж. Предлагаю свой вариант. Для более простого оформления я решил написать его на Turbo Pascal (внимание! я не стал реализовывать функцию вывода потому как данное действие можно взаимозаменить элементарной логикой или калькулятором). Итак:
Program ChngVar;
var
a,b:real;
begin
a := a - b;
b:=b + a;
a:=b - a;
end.
 
 

Что-то не получается? Не понятна какая-то часть кода? Напишите комментарий об этом и мы обязательно Вам все объясним!
Обязательно напишите отзыв о программе / учебнике. Для выражения благодарностей есть кнопка:


Своё Спасибо, еще не выражали.
 
  Просьбы перезалить в комментариях принимаются
 
 (голосов: 3)
 
 
 
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
 
  Другие коды по теме:  
 
  • Поменять значения переменных A и B местами не используя третью переменную
  • Среда разработки Turbo Pascal 7.1
  • ChangeMySP. Меняем Service Pack системы
  • Доброкачественная инициализация переменных
  • Определение стоимости граммов по стоимости килограммов
  •  
    Комментарии (7) Распечатать




     Написал: Codeserfer
     8 апреля 2009 13:34 | ICQ: 100105500
     

    Группа: Администраторы
    Регистрация: 1.08.2008
    А у нас на сайте есть дистрибутив паскаля? А то в своих файлах не нашел сие чудо..
     
     Публикаций: 131 | Комментариев: 108


     Написал: Hackintosh
     8 апреля 2009 16:27 | ICQ: 755
     

    Группа: Администраторы
    Регистрация: 21.12.2008


    --------------------
     
     Публикаций: 37 | Комментариев: 34


     Написал: zhildima
     27 мая 2009 11:14 | ICQ: --
     

    Группа: Гости
    Регистрация: --
    спасибо за хорошую организацию труда
     
     Публикаций: 0 | Комментариев: 0


     Написал: nordioleg
     27 мая 2009 23:14 | ICQ: --
     

    Группа: Гости
    Регистрация: --
    Появилась классная мысль, но она требует поверхностной реорганизации моей мысли
     
     Публикаций: 0 | Комментариев: 0


     Написал: Volk
     31 января 2011 16:02 | ICQ: --
     

    Группа: Посетители
    Регистрация: 31.01.2011
    1) Не юзай грёбаный real. Точности по сравнению с single не даёт практически никакой, экономия памяти по сравнению с double тоже никакая, а обрабатывается real значительно медленнее.
    2) А что если на первом шаге переменная а настолько мала, или b настолько велика что a-b непредставимо типом real?

    Юзай битовый xor.
     
     Публикаций: 0 | Комментариев: 5


     Написал: Codeserfer
     1 февраля 2011 00:40 | ICQ: 100105500
     

    Группа: Администраторы
    Регистрация: 1.08.2008
    Volk,
    со вторым, согласен.. Можете привести свой пример?
     
     Публикаций: 131 | Комментариев: 108


     Написал: Volk
     2 февраля 2011 16:15 | ICQ: --
     

    Группа: Посетители
    Регистрация: 31.01.2011
    Codeserfer,
    Ну я ж подсказал, xor юзай:
    например:
    a = 101 (двоичная)
    b = 110 (двоичная)
    ===========================
    a := a XOR b; {101 XOR 110 = 011}
    b := b XOR a; {110 XOR 011 = 101}
    a := a XOR b; {011 XOR 101 = 110}
    ===========================

    Насчёт первого точно аргументировать немогу, ибо учил паскаль давно.
    Там в общем тонкость есть. Суть кажется в том, что сопроцессор не может напрямую работать с real. Приходится преобразовывать (что-то типа real=>double=>real).
    Эти тонкости как правило описываются в хороших НЕ_новых учебниках. Либо в самом начале (типа "Подготовка к работе"), либо в приложениях типа "Настройка компилятора и среды Turbo Pascal".
     
     Публикаций: 0 | Комментариев: 5


    © 2008 - 2010. Копирование материалов запрещено!
    Мой аккаунт
     
    Логин
    Пароль
     
     
     
    Опрос
     
    Чего нам не хватает?

    Ничего, все прекрасно и так!
    Другого дизайна
    Больше кодов
    Больше комментариев
    Посещаемости
    Дополнительных сервисов для удобства пользователей
    Другое (напишите, пожалуйста, что)
     
     
    Друзья
     
    serial, crack, keygen
    cool-archive.ru
    ABC-IT.lv - истиному ИТишнику!
     
     
    Архив кодов
      Август 2011 (1)
    Июль 2011 (4)
    Июнь 2011 (3)
    Апрель 2011 (2)
    Февраль 2011 (5)
    Январь 2011 (3)
     
     
     
    Реклама