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