Составить программы в Turbo Pascal. 1Дано три точки A, B,C на числовой оси. Найти длинну отрезка AC и BC и их сумму. 2Задано четыре целых числа a, b,c, d

1 Январь 0001



Составить программы в Turbo Pascal. 1)Дано три точки A,B,C на числовой оси.Найти длинну отрезка AC и BC и их сумму. 2)Задано четыре целых числа a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.

  • первое

    program proga;

    uses crt;

    var



    a,b,c,x,y,z:integer;

    begin

    clrscr; 

    writeln(‘Введите значения точек’);

     readln(a);  readln(b); readln(c); 

    x=b-c;

    y=c-b;

    z=x+y;

    readln;

    end.

    второе

    program proga;

    uses crt;

    var

    a,b,c,x,y,z:integer;

    begin

    clrscr; 

     writeln(‘Введите 4 числа’);

     readln(a);  readln(b); readln(c);   readln(x); readln(y);  

    z=a*b*c*y*x;

    if z>300 then

    writeln(‘произведение этих чисел больше 300′)

    else

     writeln(‘произведение этих чисел меньше 300′) ;

    readln;

    end.

    и соответственно третье

    program proga;

    uses crt;

    var

    a:integer;

    begin

    clrscr; 

     writeln(‘Введите число’);

     readln(a);

    if a>0 then

    a=a+1;

    writeln(a) 

    else

    if a<0 then

    a=a-2;

    writeln(a) 

     else

    writeln(‘вы ввели 0′);

    readln;

    end.

     

     

     

     

     

     

     



     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     









Информатика

Комментарии закрыты.