Обработка программ в среде Delphi, разработка консольных приложений (Лабораторная работа № 1)

ЛАБОРАТОРНАЯ РАБОТА 1

ОБРАБОТКА ПРОГРАММ В СРЕДЕ DELPHI,РАЗРАБОТКА КОНСОЛЬНЫХ ПРИЛОЖЕНИЙ.

Выполнила:Карасевич А.А

             Гр. Ф-15у

Цель работы: первоначальное знакомство с возможностями и

правилами работы в  среде DELPHI

Расчитать последовательное и параллельное сопротивление проводников

Program Project2;

         {$APPTYPE CONSOLE}

         Uses    SysUtils;

         {  Лабораторная работа 1.

          Изучение интегрированной среды Турбо-Паскаль.

           Задача 1. Вычисление результирующего сопротивления

           При параллельном и последовательном соединении проводников

         Составила Карасевич Анастасия гр.ф-15у}

         Var

          r1,r2: real;

          paral,posled:real;

         Begin

          (*vvod ishodnyh dannyh*)

           Writeln('Programma  vychisliaet  rezultiruushee  soprotivlenie');

           Writeln(' pri soedinenii dvuh provodnikov');

           Write('Zadaite soprotivlenie 1-go provodnika (Om) ');

           Readln(r1);

           Write('Zadaite soprotivlenie 2-go provodnika (Om) ');

           Readln(r2);

          (*vypolnenie vychisleniy*)

           posled:=r1+r2;

           paral:=r1*r2/(r1+r2);

          (*vyvod rezultatov*)

           Writeln;

           Writeln('  Rezultiryushee soprotivlenie:');

           Writeln('pri posledovatelnom soedinenii= ',posled:8:2,' Ом');

           Writeln('  pri parallelnom soedinenii = ',paral:8:2,' Ом');

           Readln;

         End.

Вывод:  В ходе данной работы я познакомилась с первоначальными возможностями и правилами работы в среде DELPHI.