Учебник Turbo Pascal. Введение - Упражнения

Written on 08 Января 2009. Posted in Pascal

Упражнения

В упражнениях 1.1-1.8 приведены только разделы операторов программы и предполагается наличие в программе следующих описаний:

var
    i, j, k, m, n: Word;
    a, b, c: LongInt;
    s, x, y, z: Real;

He прибегая к помощи компьютера, определите результат выполнения каждой программы.

Упражнение 1.1

begin
    n := 0; 
    х := 1.0; 
    repeat 
        Inc(n); 
        х := 2.0 * х; 
    until х > 1.0е5;
    WriteLn(n, ' ', х);
    ReadLn; 
end.

Упражнение 1.2

begin
    S := 0.0; 
    n : = 1; 
    while n <= 100 do 
    begin
        x := 3.0 * n + 2.0; 
        x := 1.0/x; 
        S := S + x;
        Inc(n); 
    end;
    WriteLn(n, ' ', s); 
    ReadLn;
end.

Упражнение 1.3

begin
    S := 0; 
    n := 0; 
    while n < 100 do 
    begin
        Inc(n); 
        x := 3 * n + 2;
        x := 1.0/x; 
        S := S + x; 
    end;
    WriteLn(n, ' ', s);
    ReadLn; 
end.

Упражнение 1.4

begin
    n := 25; 
    a : = 1; 
    b : = 1;
    for j := 3 to n do
    begin
        с := b; 
        b := a + b; 
        a := c;
    end;
    WriteLn('F_', n, ' = ', b);
    ReadLn; 
end.

Упражнение 1.5

begin
    n := 25;
    a := 1;
    b ;= 1;
    for j := 2 to n do
    begin
        b := a + b;
        a := b;
    end;
    WriteLn('F(', n - 1, ') - ', b);
    ReadLn;
end.

Упражнение 1.6

begin
    x := Pi; 
    у := 0.0;
    for n := 1 to 20 do 
        у := у * x + n;
    WriteLn('G(', x, ') = ', y);
    ReadLn;
end.

Упражнение 1.7

begin
    С := 2; 
    s := 0;
    for n := 1 to 99 do
    begin
        с := 6 - с;
        у := n/(100 + n); 
        s := s + с * у;
    end;
    s := s + 0.5;
    WriteLn('I = ', s/300.0);
    ReadLn;
end.

Упражнение 1.8

begin
    for k := 1 to 100 do 
    begin
        j := 2 + k * k;
        m := 1;
        n := 1;
        while n <= j do
        begin
            if n = j then 
                WriteLn('(', k, ', ', m, ')'); 
                Inc(m);
                n := m * m * m; 
            end; 
        end;
    ReadLn; 
end.

В упражнениях 1.9-1.13 вам предлагается написать программы для решения соответствующих задач.

Упражнение 1.9

В настоящее время используются пять температурных шкал. Это шкалы Цельсия, Фаренгейта, Кельвина, Ренкина и международная термодинамическая шкала температур. Наиболее популярная из них — это шкала Цельсия, официально утвержденная в качестве международной шкалы в 1950 году. Шкала Фаренгейта используется в англоязычных странах. Опорные точки для этих шкал приведены в комментарии к программе 1.2. В шкале Кельвина за точку отсчета принят абсолютный ноль — это -273,15 °С, или -459,67 *F. В шкале Ренкина отсчет температуры также идет от абсолютного нуля, а один градус равен градусу по Фаренгейту. Точка замерзания воды по шкале Ренкина — 492 °R, а точка ее кипения — 672 °R. И, наконец, в 1933 году ученые приняли международную шкалу температур, в которой используются дополнительные опорные точки.

Дополните программу 1.2 таким образом, чтобы она выводила таблицу соответствия между температурными шкалами Цельсия, Фаренгейта, Кельвина и Ренкина.

Упражнение 1.10

Найдите все целочисленные решения неравенства х² - 4ху + у² < 100.

Упражнение 1.11

Выведите на экран таблицу квадратов целых чисел от 0 до 999. Таблица должна состоять из 100 строк по 10 значений в каждой строке.

Упражнение 1.12

Выведите таблицу из упражнения 11 в файл.

Упражнение 1.13

Напишите программу для печати таблицы из упражнения 11 на принтере.

Вперед >

форум pascal