3 Задачи по паскалю

Тема в разделе "Delphi - FAQ", создана пользователем Platinum, 31 мар 2009.

Статус темы:
Закрыта.
  1. Platinum

    Platinum Гость

    Всем доброго времени суток.
    Нам по информатике задали написать 3 программы по паскалю

    1. Дана сторона квадрата а. Найти его периметр P=4*a. Найти его площадь S=a^2

    2. На числовой оси расположена 3 точки: А, В, С. Определить, какая из двух последних точек (В или С) расположена ближе к А, и вывести эту точку и ее расстояние от точки А.

    3. Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на Р процентов от имеющейся суммы (Р-вещественное число, 0<H<25). по данному Р определить, через сколько месяцев размер вкалада превысит 1100 руб., и вывести найденное количество месяцев К (целое число) и итоговый размер вклада S (вещественное).

    Я по информатике мало пенькаю
     
  2. dimat

    dimat Lotus team
    Lotus team

    Регистрация:
    31 июл 2008
    Сообщения:
    518
    Симпатии:
    0
    1.
    Код (Text):
    uses crt;
    var a:integer;
    begin
    clrscr;
    write('Vvedite a: ');
    readln(a);
    writeln('Perimetr= ', 4*a);
    writeln('S= ',a*a);
    readln;
    end.
    2.
    Код (Text):
    uses crt;
    var a,b,c:integer;
    begin
    clrscr;
    write('A= '); readln(a);
    write('B= '); readln(b);
    write('C= '); readln(c);
    if (b-a)>(c-a) then
    writeln('C, rastoyanie=',c-a)
    else writeln('B, rastoyanie=',b-a);
    readln;
    end.
    3.
    Код (Text):
    uses crt;
    var mes:integer;
    p,v:real;

    begin
    mes:=0;
    v:=1000;
    clrscr;
    write('Enter percent(p): '); readln(p);
    p:=p/100;
    while v<1100 do begin
    v:=v+v*p;
    inc(mes);
    end;
    writeln('mes = ',mes);
    writeln('sum = ',v:1:2);
    readln;
    end.
    Вроде так...
     
  3. Platinum

    Platinum Гость

    dimat спасибо большое!
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей