Задачи на повторение по теме Основы Турбо Паскаль

Задачи на повторение по теме «Основы программирования на языке Pascal».
1. Напишите программу вычисления площади круга.
Program krug;
Var pi,r,s:real;
Begin
Pi:=3.14;
Writeln(‘vvedite znachenie radiusa’);
Readln(r);
S:=pi*sqr(r);
Writeln(’ploshad kruga=’,s);
Readln;
End.
2. Составьте программу вычисления суммы цифр введенного с клавиатуры трехзначного
натурального числа.
Program summa;
Var a,b,c,d,s:integer;
Begin
Writeln(‘vvedite chislo’);
Readln(a);
B:=a div 100;( вычисление целой части от деления например 599 div 100, целая часть 5)
C:=a mod 100 div 10; (вычисление остатка от деления, например 205 mod 100 остаток 5)
D:=a mod 10;
S:=b+c+d;
Writeln(‘summa cifr=’,s);
Readln;
End.
3. Напишите программу, проверяющую является ли число введенное с клавиатуры
кратным 7.
Program kratnoe;
Var a:integer;
Begin
Writeln(‘vvedite chislo’);
Readln(a);
If a mod 7 = 0 then writeln(‘chislo kratno 7’) else
Writeln(‘chislo ne kratno 7’);
Readln;
End.
4. Напишите программу, которая дает словесное описание школьным оценкам. В
программе требуется использовать оператор множественного выбора.
Program ocenka;
Var a:integer;(char – символьный тип)
Begin
Writeln(‘vvedite ocenku’);
Readln(a);
Case a of
1: writeln(‘ploho’);
2: writeln(‘ne udovletvoritelno’);
3: writeln(’udovletvoritelno’);
4: writeln(’horosho’);
5: writeln(’otlichno’) else writeln(’takoi ocenki net’);
End;
Readln;
End.
5. Составьте программу, определяющую, пройдет ли график функции y  5x 2  7 x  2
через заданную точку с координатами (a,b).
Program functiya;
Var a,b:real;
Begin
Writeln(‘vvedite koordinati tochki’);
Readln(a,b);
If b=5*sqr(a)-7*a+2 then writeln(‘prohodit’) else
Writeln(‘ne prohodit’);
Readln;
End. ( через точку с координатами (2;8) проходит график функции)
6. С помощью while на пишите программу определения суммы всех нечетных чисел в
диапазоне от 1 до 99 включительно.
Program summa;
Var a,s:integer;
Begin
S:=0;
a:=1;
(используем цикл с предусловием)
While a<100 do (после оператора цикла выполняется только одна операция, если они не разделены
begin и end)
begin
If a mod 2 <> 0 then s:=s+1; (условный оператор, используется в программе когда надо выбрать из
двух и более альтернатив)
a:=a+1;(значение переменной, входящей в условие меняет свое значение на следущее)
end;
writeln(‘summa=’,s);
Readln;
End.
7. Составьте программу вычисления суммы всех двузначных чисел.
Program summa;
Var a,s:integer;
Begin
S:=0;
For a:=10 to 99 do (цикл с параметром или цикл со счетчиком)
S:=s+a;
Writeln(‘summa=’,s);
Readln;
End.
8. Создайте массив из пяти имен и выведите их на экран столбиком, начиная с
последней.
Program massiv;
Var m:array[1..5] of string; i:integer;
Begin
Writeln (‘vvedite imena’);
For i:=1 to 5 do
Readln(m[i]);
Writeln(‘poluchennii massiv’);
For i:=5 downto 1 do
Writeln(m[i]);
Readln;
End.
9. Введите с клавиатуры целочисленные элементы матрицы 3*3 и найдите
минимальный элемент в данном массиве.
Program massiv;
Var a:array[1..3,1..3] of integer; i,j,min:integer;
Begin
Writeln(‘vvedite elementi massiva’);
For i:=1 to 3 do
For j:=1 to 3 do
Readln (a[i,j]); (цикл в массиве используется для ввода элементов массива. Вывода элементов
массива, обработки элементов массива)
Min:=a[1,1];
For i:=1 to 3 do
For j:=1 to 3 do (вложенный цикл; для каждого значения первого цикла перебираются все значения
второго цикла)
If a[i,j]<min then min:=a[i,j];
Writeln(‘min=’,min);
Readln;
End.