Задачи на повторение (9 класс)

Задачи на повторение по теме «Основы программирования на языке 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.

3. Напишите программу, которая дает словесное описание школьным оценкам. В программе требуется использовать оператор множественного выбора.

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.

3. Составьте программу, определяющую, пройдет ли график функции через заданную точку с координатами (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) проходит график функции)

3. С помощью 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.

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

Program summa;

Var a,s:integer;

Begin

S:=0;

For a:=10 to 99 do (цикл с параметром или цикл со счетчиком)

S:=s+a;

Writeln('summa=',s);

Readln;

End.

3. Создайте массив из пяти имен и выведите их на экран столбиком, начиная с последней.

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.

3. Введите с клавиатуры целочисленные элементы матрицы 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]

Writeln('min=',min);

Readln;

End.