Домашние задания по Паскалю

Домашние задания по программированию на языке Паскаль записываем в комментариях

Расскажите друзьям!

Опубликовать в Мой Мир
Опубликовать в Одноклассники
Категории: Информатика

8 комментариев

  • Руслан:

    program q4 ;

    var d,L : real;

    begin
    writeln (‘Надо найти длину окруности L с радиусом d’);
    writeln (‘Введите радиус окружности d = ‘);
    read (d) ;
    writeln (‘Длина окружности L = ‘,3.14*d);
    end.

  • Руслан:

    program myfirstProgram;

    var a,b,S,P: real;

    begin
    writeln (‘Надо найти площадь и периметр прямоугольника со сторонами a и b’);
    writeln (‘Введите сторону прямоугольника a = ‘);
    read (a);
    writeln (‘Введите сторону прямоугольника b = ‘);
    read (b);
    writeln (‘Площадь прямоугольника S = ‘,a*b);
    writeln (‘Периметр прямоугольника P = ‘,2*(a+b));
    end.
    Программу написал Алим Абдулганиев

  • Селим Бекберов:

    program ex3;

    var
    a,b,S,P: single;

    begin
    writeln (‘Найдите площадь прямоуголника S=a*b и периметр P=2*(a+b)’);
    writeln (‘Введите сторону a = ‘);
    readln (a);

    writeln (‘Введите сторону b = ‘);
    readln (b);
    writeln (‘площадь прямоуголника S=a*b = ‘, a * b);
    writeln (‘периметр прямоуголника P=2*(a+b) = ‘, 2 *(a+b))

    end.

  • Бекберов Селим:

    program ex4;

    var
    L,п,d : real;

    begin
    writeln (‘Найдите длину окружности L= п*d’);
    writeln (‘Введите п = ‘);
    // pi=3.14
    readln (п);
    // d=6
    writeln (‘Введите d = ‘);
    readln (d);
    writeln (‘Диаметр окружности равен L = п*d = ‘,pi*d );

    end.

  • Руслан:

    program q8 ;
    var a,b : integer;

    begin
    writeln (‘Надо найти среднее арифметичиское a b’);
    writeln (‘Введите a и b = ‘);
    read (a, b);
    writeln (‘среднее арифметическое a = ‘, (a+b)/2);

    end.

  • Руслан:

    program e9;

    var a,b,c: integer;

    begin
    writeln (‘Надо найти корень из произведения a и b = c’);
    writeln (‘Введите два числа а и b’);
    read (a);
    read (b);
    writeln (‘c = ‘,sqrt(a*b));
    end.

  • Аджи Эльвина Рустемовна:

    Program If_4;

    var
    a, b, c, plus: integer;

    begin
    write(‘Введите три целых числа: ‘);
    readln(a, b, c);
    if a > 0 then Inc(plus);
    if b > 0 then Inc(plus);
    if c > 0 then Inc(plus);
    writeln(‘Количество положительных чисел: ‘, plus);
    end.

  • Аджи Эльвина Рустемовна:

    Program while_3
    var n,k,c,o:word;
    begin
    writeln(‘Введите 2 целых положительных числа:’);
    readln(n,k);
    c:=0;
    while n>=k do
    begin
    n:=n-k;
    c:=c+1;
    end;
    o:=n;
    write(‘Частное=’,c,’ остаток=’,o);
    end.

Добавить комментарий

*

code

This blog is kept spam free by WP-SpamFree.