Задание 1. Нахождение суммы

Составить программу на языке Turbo Pascal для вычисления значения суммы .

1. Запустите Turbo Pascal.

2. В окне редактирования наберите текст программы:

Program Summa;

var i, n, s: integer;

begin

Writeln ('Введите значение n');

Read (n);

s:=0;

For i:=1 To n

Do s:=s+(i*i*i -1);

Writeln ('s=', s: 6);

end.

3. Запустите программу на выполнение.

4. Сохраните программу на диске.

5. Самостоятельно составьте программу нахождения суммы для произвольного значения n. (Проверка: для n = 15 сумма должна быть равна 3.3182289932Е+00 или 3.318).

Задание 2. Таблица перевода миль в километры

Составьте программу вывода на экран таблицы перевода милей в километры (1 миля = 1,603 км) для значений 1 миля, 2 мили, …, 10 миль.

Program Mile;

const k=1.603;

var mi: integer; km: real;

begin

writeln('Таблица перевода миль в км');

writeln;

for mi:=1 to 10 do

begin

km:=k*mi;

writeln(mi: 4, 'm = ', km: 6: 3,' км');

end

end.

Результаты, полученные после запуска программы, будут на экране выглядеть так:

Таблица перевода миль в км

1 m = 1.603 км

2 m = 3.206 км

3 m = 4.809 км

и т.д.