Задачи на повторение по теме «Основы программирования
на языке Pascal».
- Напишите
программу вычисления площади круга.
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.
- Напишите
программу, проверяющую является ли число введенное с клавиатуры кратным 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.
- Напишите
программу, которая дает словесное описание школьным оценкам. В программе
требуется использовать оператор множественного выбора.
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.
- Составьте
программу, определяющую, пройдет ли график функции через
заданную точку с координатами (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) проходит график
функции)
- С помощью 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.
- Составьте
программу вычисления суммы всех двузначных чисел.
Program summa;
Var a,s:integer;
Begin
S:=0;
For a:=10 to 99 do (цикл с параметром или цикл со счетчиком)
S:=s+a;
Writeln(‘summa=’,s);
Readln;
End.
- Создайте
массив из пяти имен и выведите их на экран столбиком, начиная с последней.
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 и найдите минимальный
элемент в данном массиве.
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.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.