• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы Platinum
  • Дата начала
Статус
Закрыто для дальнейших ответов.
P

Platinum

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

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

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

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

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

dimat

Well-known member
31.07.2008
508
0
BIT
0
1.
Код:
uses crt;
var a:integer;
begin
clrscr;
write('Vvedite a: ');
readln(a);
writeln('Perimetr= ', 4*a);
writeln('S= ',a*a);
readln;
end.

2.
Код:
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.
Код:
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.

Вроде так...
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!