Задания 8 класс информатика. Организация линейных, разветвляющихся и циклических алгоритмов на языке программирования Паскаль Составитель учитель информатики
 Скачать 455.25 Kb.
|
|
Муниципальное бюджетное общеобразовательное учреждение Средняя общеобразовательная школа №4 Ступени открытого непрерывного образования Краткий сборник задач (с решением) по теме Организация линейных, разветвляющихся и циклических алгоритмов на языке программирования Паскаль Составитель учитель информатики МБОУ «СОШ №4 «СОНО» Инютина Анастасия Александровна г. Новокузнецк, г. 2 Содержание Задачи на линейные алгоритмы ................................................................................................. Решение некоторых линейных задач ......................................................................................... Задачи на разветвящиеся алгоритмы ......................................................................................... Решение ветвящихся задач ......................................................................................................... Задачи на циклические алгоритмы .......................................................................................... Решение циклических задач ..................................................................................................... 11 3 Задачи на линейные алгоритмы 1. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = abc и площадь поверхности S = 2(ab + bc + ac). 2. Найти значение переменных m и n по формуле, и получить общий ответ отношения m и n. 3. Даны два числа a, b, с. Найти их среднее арифметическое. 4. Найти произведение значений двух переменных и вывести результат на экран. 5. Найти длину окружности p заданного радиуса r. ( ). 6. Дана длина ребра куба. Найти площадь грани (S1=a 2 ), площадь полной поверхности (аи объем куба (V=a 3 ). 7. Даны числа a, b, c. Найти 8. Мальчик купил в магазине n порций мороженного по цене 1200 руби плиток шоколада по цене 3800 руб. Сколько всего потратил мальчик. 9. Составьте программу нахождения площади равнобедренной трапеции через стороны a, b, c 10. Найти радиусы внутренней и внешней окружности кольца. 11. Из поселка в город выехал мотоциклист со скоростью 60 км/ч. В тоже время ему навстречу выехал велосипедист со скоростью 15 км/ч. Они встретились через 2 часа. Составьте программу, которая выводит расстояние от города до поселка. 12. Вася и Петя ловили рыбу. У Васи хорошо клевало, у Пети хуже. Сколько рыбы они вместе поймали, если Петя поймал на 18 меньше, чем они поймали вместе и у одного из них на 14 меньше, чему другого. 13. Двое рабочих заработали вместе 900 рублей. Один работал 2 недели, а другой 4 недели. Сколько денег заработал каждый 14. Составите программу для вычисления площади боковой поверхности цилиндра (S = 2 π R h). 15. Составите программу для вычисления площадь поверхности шара (S = π D 2 ). 16. Найти разность, сумму и произведение трёх значений переменных. 17. Даны x, y, z. Вычислить a, b, если 4 Результат округлить дох знаков после запятой. Написать программу вычисления значений заданных арифметических выражений. Результат округлить дох знаков после запятой. где x = 1.542; y = -3.261; z = 80.005. 19. Даны действительные числа x и y. Получить Результат округлить дох знаков после запятой. Даны два действительных числа. Найти среднее арифметическое этих чисел и среднее геометрическое их модулей. Результат округлить дох знаков после запятой. 21. Смешано V1 литров воды температуры t1 с V2 литрами воды температуры t2. Найти объём и температуру образовавшейся смеси. 22. Найти катет прямоугольного треугольника, если известна гипотенуза и прилежащий к искомому катету угол. Результат округлить дох знаков после запятой. 23. Определить время падения камня на поверхности земли с высоты h. 24. Дана сторона равностороннего треугольника. Найти площадь этого треугольника. Результат округлить дох знаков после запятой. 25. Определить силу притяжения F между телами массы m1 и m2 , находящимся на расстоянии r друг от друга. Результат округлить дох знаков после запятой. 5 Решение некоторых линейных задач 1. program parallelipiped; var a,b,c: integer; var V,S: real; begin a:=6; b:=3; c:=9; V:=a*b*c; S:=2*(a*b+b*c+a*c); writeln (V); writeln (S); end. 2. program formula; var a,b,c,d,m,n: integer; begin a:=9; b:=3; c:=5; d:=2; m:=a+(b*c-d); n:=d-a*2; write (m); write (n); write (m/n); end. 3. program srednee arefmetichescoe; var a,b,c,d: integer; begin a:=8; b:=3; c:=5; writeln ((a+b+c)/3); end. 4. Program Myl_l ; Var a, b, r : Integer; Begin WriteLn (Введите два числа через пробел ReadLn (a, b); r:=a*b; WriteLn (Их произведение равно ', r); WriteLn (Нажмите End. 5. Program Okr; Var p, r : real; Begin WriteLn (Введите радиус ReadLn (r); p:=2*3.14*r; Write (Длинна окружности = ', p); ReadLn End. 6. Program Kub; var a: integer; S1, S2, V: real; begin readln (a); S1:= sqr(a); S2:= 6*sqr(a); V:=sqr(a)*a; writeln (Площадь грани куба = ', S1); writeln (Площадь полной поверхности куба = ', S2); writeln ('Объём куба = ', V); end. 7. Program formula; var a, b, c: integer; D: real; begin readln (a,b,c); D:=(sqr(b)+sqrt(c))/abs(a); writeln (Формула = ', D) end. 8. Program summa; var n, k: integer; A: real; begin readln (n,k); A:=(1200*n)+(3800*k); writeln (Мальчик потратил ', A) end. 6 9. Program formula_1; var a, b, c: integer; S: real; begin readln (a,b,c); S:=((a+b)/2)*(sqrt(sqr(c)-sqr(a-b)/4)); writeln (Формула = ', S) end. 10. Program formula_1; var r, k: integer; S: real; begin readln (r, k); S:=3,14*(sqr(r)-sqr(k)); writeln (Формула = ', S) end. 7 Задачи на разветвящиеся алгоритмы 1. Ввести число. Если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нему 10. 2. Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран. 3. Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел. 4. Ввести два числа. Вычесть из большего меньшее. 5. Ввести число. Если оно больше 10, разделить его на 2, если меньше или равно 10, то умножить на 5. 6. Ввести два числа. Если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза. 7. Ввести двухзначное число. Если сумма цифр числа четная, то увеличить число на 2 в противном случае уменьшить на 2. 8. Составить программу, которая потрем введенным вами числами определит, могут ли эти числа быть длинами сторон треугольника. 9. Дано целое число. Если оно является положительным то прибавить к нему 20, в противном случае вычесть из него 5. Вывести полученное число (Написать программу, начертить блок-схему в тетради. 10. Дано два числа. Если их сумма кратна 5, прибавить 1, иначе вычесть 2. 11. Ввести 2 числа. Если их произведение отрицательно, умножить его на 8 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран. Написать программу, начертить блок-схему в тетради. 12. Вести число. Если оно четное, разделить его на 4, если нечетное - умножить на 5 Написать программу, начертить блок-схему в тетради. 13. Ввести рост человека. Вывести на экран ВЫСОКИЙ, если его рост превышает 180 см, и НЕ ОЧЕНЬ ВЫСОКИЙ в противном случае (Написать программу, начертить блок-схему в тетради. 14. Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров он или болен (Написать программу, начертить блок-схему в тетради. 15. Составить программу, которая спрашивает возраст человека и, если ему 18 лети больше, сообщает Замечательно. Вы уже можете водить автомобиль, а в противном случае – К сожалению, водить автомобиль Вам рановато (Написать программу, начертить блок-схему в тетради. 16. Составить программу, которая запрашивает ввод трех значений температуры и проверяет, есть ли среди них температура таяния льда. Если такая температура введена, вывести на экран сообщение Введена температура таяния льда, иначе Такой температуры нет (Написать программу, начертить блок-схему в тетради. 8 17. Даны три стороны одного треугольника и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, те. имеют ли они равные площади. Если это не так, то вывести «Foul!!!» (Написать программу, начертить блок-схему в тетради. 18. Составьте программу подсчёта площади равнобедренного треугольника. Если площадь треугольника чётная, разделить её на 2, в противном случае вывести сообщение Не могу делить на 2!» (Написать программу, начертить блок-схему в тетради. 19. Написать программу вычисления у в зависимости от значениях при х < 0 y = 2*x2 при других х 20. 3. Написать программу вычисления у в зависимости от значениях при х > 0 y = x/6 при других х 21. Запросить радиус круга R и сторона квадрата А. Определить, поместится ли круг в квадрате. Круг поместится в квадрате, если диаметр круга меньше или равен стороне квадрата. 22. Составить программу, чтобы компьютер запросил имя пользователя и его год рождения, затем подсчитал возраст человека, в зависимости от года рождения. 23. Написать программу, контролирующую знание закона Ома. Обучаемый вводит формулу закона Ома в символьную переменную, которая далее сравнивается с правильным ответом, хранящимся в другой символьной переменной. Подсказка Закон Ома вычисляется по формуле V = IR, где V — напряжение, приложенное к участку цепи, I — сила тока, а R — электрическое сопротивление участка цепи. 24. Написать программу для определения подходящего возраста для вступления в брак, используя следующее соображение возраст девушки равен половине возраста мужчины плюс 7, возраст мужчины определяется соответственно как удвоенный возраст девушки минус 14. Данные для проверки работы программы задать самостоятельно. 25. Составить программу вычисления значений функции для любого х пожеланию пользователя 26. Написать программу вычисления значения функции у у = x2, если -2 <= x тогда y=2, у = 4 в остальных случаях 27. Наберите и отладьте программу imena (определение полного имени по короткому. После отладки проверьте ее при работе с именами Саша, Коля и Витя. 9 Решение ветвящихся задач 1. Program vet1; Var a:integer; Begin writeln (Введите значение переменной a'); Readln (a); If a>0 then a:=a-10 else a:=a+10; Writeln (Переменная a = ',a); End. 2. Program vet2; Var a,b,d:integer; Begin writeln (Введите значение переменных a и b'); Readln (a,b); d:=a*b; If d<0 then d:=d*(-2) else d:=d*3; Writeln (Переменная d = ',d); End. 3. Program vet3; Var a,b:integer; d:real; Begin writeln (Введите значение переменных a и b'); Readln (a,b); d:=a+b; If d mod 2=0 then d:=a*b else d:=a/b; Writeln (Переменная d = ',d); End. 4. Program vet4; Var a,b,d:integer; Begin writeln (Введите значение переменных a и b'); Readln (a,b); If a>b then d:=a-b else d:=b-a; Writeln (Переменная d = ',d); End. 5. Program vet5; Var a:real; Begin writeln (Введите значение переменной a'); Readln (a); If a<=10 then a:=a*5 else a:=a/2; Writeln (Переменная a = ',a); End. 6. Program vet6; Var a,b:integer; S:real; Begin writeln (Введите значение переменных a и b'); Readln (a,b); S:=a+b; If S>100 then S:=S/2 else S:=S*2; Writeln (Переменная S = ',S); End. 7. Program vet7; Var a,b,d,s:integer; Begin writeln (Введите значение переменной a'); Readln (a); b:= a div 10; d:= a mod 10; S:= b+d; If s mod 2=0 then a:=a+2 else a:=a-2; Writeln (Переменная d = ',d); End. 8. Program vet8; Var с Begin writeln (Введите значение переменных a, b и с Readln (a,b,c); If a>=b+c then Writeln (Нет) Else if с then Writeln (Нет) Else if c>=a+b then Writeln (Нет) Else Writeln (Да End. 10 Задачи на циклические алгоритмы Циклы с известным числом повторений 1. Вывести на экран 3 раза слово «Hello». Особенность одинаковые действия выполняются 3 раза. 2. Напечатать ряд из повторяющихся чисел 20 в виде 20 20 20 20 20 20 20 20 20 20 3. Вывести столбиком следующие числа 2.8 … 8.8 4. Напечатать числа следующим образом 10 10.4 11 11.4 . . . 25 25.4 5. Напечатать числа следующим образом 25 25.5 24.8 26 26.5 25.8 . . . 35 35.5 34.8 6. Напечатать столбиком все целые числа от 20 дои вычислить корни этих чисел. 7. Напечатать столбиком все целые числа от а до b (значения аи вводятся с клавиатуры. Циклы с предусловием 8. Составить программу вывода 10 целых чисел на экран. 9. Вычислить сумму ряда S = 1+1.5+2+2.5+3+3.5+…+ 30. 10. Вычислить сумму ряда , с точностью e = 0,1. 11. Мой богатый дядюшка подарил мне один доллар в мой первый день рождения. В каждый день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось. Написать программу, указывающую, к какому дню рождения подарок превысит 100$. Циклы с постусловием 12. Написать программу ввода неопределённого ряда целых чисел до тех пор, пока не будет введён 0. После ввода 0 программа должна вывести сообщение Программа закончена. Составить программу вывода 30 целых чисел на экран. Найти сумму ряда S = 15+16+17+...+n. 15. Составить программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N. Округлить результат до двух знаков после запятой. 11 Решение циклических задач 1. Program C2; var i: integer; begin for i:=1 to 10 do write(20,' ') end. 2. Program C3; var i: integer; begin for I:=2 to 8 do writeln(' ',I+0.8:0:1); end. 3. Program C4; var i: integer; begin for I:=10 to 25 do writeln(I,' ',I+0.4:0:1); end. 4. Program C5; var i: integer; begin for I:=25 to 35 do writeln(I,' ',I+0.4,' ',i+0.8:0:1); end. 5. Program C6; var i: integer; begin for I:=20 to 35 do writeln(I,' ',sqrt(i):0:1); end. 6. Program C7; var a,b,i:integer; begin readln(a,b); for i:=a to b do writeln(i) end. 9. program c2; var sum:real; n:real; BEGIN sum:=0; n:=1; while n < =30 do begin sum:=sum+n; n:=n+0.5; end; Сумма равна ',sum); END. 11. program c1; var dr,pod: integer; begin pod:=1; dr:=1; while pod<=100 do begin pod:=(pod*2)+dr; dr:=dr+1; end; Возраст ',dr); end. 12. Program N4; Var A: Integer; begin REPEAT Введите числа (0 - выход '); Readln(A); UNTIL A=0; Программа закончена ') END. 15. Program Summa; Var S:real; N:integer; Begin S:=0;N:=0; repeat N:=n+1; S:=s+1/n Until n>1000; Writeln(s:0:2); End. |