Изучение языка программирования
Турбо Паскаль (Turbo Pascal)

На этом сайте можно: скачать среду программирвания Турбо Паскаль, изучить язык программирования Турбо Паскаль, а так же скачать программы на языке Турбо Паскаль!
Решенные задачи на языке Паскаль



Условие задач - из дисциплины "Программирование на языке высокого уровня"

Идет k-я секунда суток. Определить сколько полных часов - X и полных минут - Y прошло к этому моменту.

var
k,X,Y:integer;
BEGIN
write('Введите число секунд k=');
readln(k);
X:=k div 3600;
Y:=k div 60;
writeln;
writeln('Прошло ',X,' часов и ',Y,' минут');
readln;
END.

Заданы координаты двух точек (x1;y1) и (x2;y2). Определить лежат ли они на одной окружности с центром в начале координат.

var
x1,y1,x2,y2:integer;
BEGIN
writeln('Введите координаты первой точки:');
write('x1=');  readln(x1);
write('y1=');  readln(y1);
writeln('Введите координаты второй точки:');
write('x2=');  readln(x2);
write('y2=');  readln(y2);
writeln;
if sqrt(sqr(x1)+sqr(y1))=sqrt(sqr(x2)+sqr(y2)) then
 writeln('Точки лежат на одной окружности')
 else writeln('Точки не лежат на одной окружности');
readln;
END.
Первая точка лежит на окружности с радиусом R1, а вторая точка тоже лежит на какой-то окружности с радиусом R2. В условии проверяем если R1=R2, то эти две точки лежат на одной окружности. Радиус окружности находим из формулы: x2+y2=R2

С клавиатуры вводится средний балл сессии студента - S. Определить какую стипендию ему начислить: повышенную (S>=4.5), обычную (4<=S<4.5) или отказать в ней (S<4).

var
S:real;
BEGIN
write('Введите средний балл студента S=');
readln(S);
writeln;
if S>=4.5 then writeln('Стипендия студента - повышенная!') else
if S<4 then writeln('Стипендия студента - нулевая:(') else
 writeln('Стипендия студента - обыкновенная');
readln;
END.

Составить программу перевода величины силы: фунт-сила в ньютоны от 30 до 300 фунт-сила с шагом 30. 1 фунт-сила = 4.448 н.

var
i:integer;
BEGIN
writeln('Программа перевода величины фунт-сила в ньютоны');
i:=30;
repeat
writeln(i,' фунт-сила = ',i*4.448:7:3,' н');
i:=i+30;
until i>300;
readln;
END.