Решение задач на языке програмирования Pascal

Условия: Задача 1.

Ученик начал решать задачи данного урока программирования, когда электронные часы показывали h₁ часов и min₁ минут, а закончил, когда было h₂ часов и min₂ минут. Составьте программу, позволяющую определить, сколько времени (в часах и минутах) ученик решал эти задачи.

Решение:

Задача №1:

program zadacha1;

var

hn, hk, mn, mk, mmn, mmk: integer;

label 1, 2, 3, 4;

begin

1:

write('введите час начала (0-23 часа): ');

readln(hn);

if hn

if hn 23 then goto 1;

2:

write('введите минуту начала (0-59 минут): ');

readln(mn);

if mn

if mn 59 then goto 2;

3:

write('введите час окончания (0-23 часа): ');

readln(hk);

if hk

if hk 24 then goto 3;

if hk

4:

write('введите минуту окончания (0-59 минут): ');

readln(mk);

if mk

if mk 59 then goto 4;

mmn := hn * 60 + mn;

mmk := hk * 60 + mk;

if mmk

writeln('затраченое время: ', (mmk - mmn) div 60, ' часов ', (mmk - mmn) mod 60, ' минут.');

sleep(5000);

end.

Условие: Задача 2.

Используя оператор if, запрограммировать вычисление заданного выражения для данных типа Integer:

Решение:

Задача №2:

program zadacha2;

var

x: integer;

begin

write('введите X: ');

readln(x);

if x

if (0

if x 2 then writeln('F(x3)=', power(x, 2) - power(x, 3));

sleep(5000);

end.

Условие: Задача 3.

Написать на языке Паскаль алгоритм нахождения количества натуральных четырехзначных чисел, каждое из которых не делится ни на 2, ни на 3.

Задача №3:

program MyProgram;

var

a, b: integer;

begin

b := 0;

for a := 1000 to 9999 do

if ((a mod 2) 0) and ((a mod 3) 0) then b := b + 1;

writeln(b);

sleep(5000);

end.

Условие: Задача 4

Составить программу, позволяющую в одномерном массиве, состоящем из N вещественных элементов, вычислить количество элементов массива, не принадлежащих интервалу (a, b);

Задача №4:

(* Составить программу, позволяющую в одномерном массиве,

состоящем из N вещественных элементов,

вычислить количество элементов массива,

не принадлежащих интервалу (a, b); *)

program MyProgram;

const z=100; //колличество значений массива

var

arr: array[1..z] of integer;

i, j, a, b: integer;

label 1, 2;

begin

randomize; // запускаем генератор случайных чисел

for i := 1 to z do begin

arr[i] := Random(0, 1000); //заполняем массив случайными числами

writeln (arr[i]);

end;

writeln('сгенерирован массив из ', z, ' случайных значений от 0 до 999');

1:

write('введите минимальное значение диаппазона - а: '); //запрашиваем диаппазон интервала (а,б)

readln(a);

if aзащита от дурака

2:

writeln('введите максимальное значение диаппазона - b: '); // повторяем для значения б

readln(b);

if (a=b) or (b999) then goto 2;

for i:=1 to z do

if (arr[i]=a) and (arr[i]

write ('в данный диаппазон попадают чисел: ', j); //выводим результат

sleep(5000);

end.

Условие: Задача 5.

В двумерном массиве, состоящем из целочисленных элементов, поменять местами в каждой строке наибольший и наименьший элементы.

Задача №5:

(* В двумерном массиве, состоящем из целочисленных элементов,

поменять местами в каждой строке наибольший и наименьший элементы. *)

program MyProgram;

const

z = 10;

const

x = 10;

var

i, j, arrmin, arrmax, temp, jmin, jmax: integer;

arr: array[1..z, 1..x] of integer;

begin

randomize;

arrmin := 100;

arrmax := 0;

writeln('исходный массив');

for i := 1 to z do

begin

for j := 1 to x do

begin

arr[i, j] := Random(0, 100); //заполняем массив случайными числами

write(' ', arr[i, j]);

end;

writeln();

end;

for i := 1 to z do

begin

arrmin := 100;

arrmax := 0;

for j := 1 to x do

begin

if arrmin arr[i, j] then

begin

arrmin := arr[i, j];

jmin := j;

end;

if arrmax

begin

arrmax := arr[i, j];

jmax := j;

end;

end;

temp := arr[i, jmin];

arr[i, jmin] := arr[i, jmax];

arr[i, jmax] := temp;

end;

writeln('_______________________');

writeln('отсортированный массив');

for i := 1 to z do

begin

for j := 1 to x do

begin

write(' ', arr[i, j]);

end;

writeln();

end;

sleep(5000);

end.