Программирование линейных алгоритмов. Самостоятельная работа по информатике в 9 классе.



МБОУ СОШ №2 г.Волгореченска, Костромской области














Самостоятельная работа
по информатике в 9 классе
по теме «Программирование линейных алгоритмов»
Turbo Pascal 7.0

10 задач












Подготовила:
учитель информатики
Юшко Любовь Леонидовна
(из опыта работы)


Самостоятельная работа
по теме «Программирование линейных алгоритмов»

Написать программу нахождения суммы двух чисел. Числа вводятся с клавиатуры.
Найти периметр треугольника. Длины сторон вводятся с клавиатуры.
Написать программу нахождения периметра и площади прямоугольника. Стороны прямоугольника вводятся с клавиатуры.
Написать программу нахождения периметра и площади квадрата. Сторона квадрата вводится с клавиатуры.
Написать программу нахождения площади прямоугольного треугольника. Длины катетов вводятся с клавиатуры.
Написать программу нахождения значения выражения у=(х2-13 EMBED Equation.3 1415):13 EMBED Equation.3 1415
Написать программу нахождения площади треугольника со сторонами по формуле Герона.
Написать программу нахождения суммы цифр двухзначного числа. Число водится с клавиатуры.
Написать программу нахождения суммы цифр двухзначного числа. Число водится с клавиатуры.
С клавиатуры вводятся скорости двух автомобилей. Какое расстояние будет между ними через 3 часа, если автомобили выехали из одного пункта в одном направлении. Напишите программу.



Ответы

1. Написать программу нахождения суммы двух чисел. Числа вводятся с клавиатуры.
program prog1;
uses CRT;
var a,b,s: integer;
begin
clrscr;
write('a=');
read(a);
write('b=');
read(b);
s:=a+b;
writeln('s=',s)
end.

2. Найти периметр треугольника. Длины сторон вводятся с клавиатуры
program prog2;
uses CRT;
var a,b,c,P: integer;
begin
clrscr;
write('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
P:=a+b+c;
writeln('P=',P)
end.







3. Написать программу нахождения периметра и площади прямоугольника. Стороны прямоугольника вводятся с клавиатуры.
program prog3;
uses CRT;
var a,b,S,P: integer;
begin
clrscr;
write('a=');
read(a);
write('b=');
read(b);
P:=(a+b)*2;
S:=a*b
·;
writeln('P=',P);
writeln('S=',S)
end.

4. Написать программу нахождения периметра и площади квадрата. Сторона квадрата вводится с клавиатуры.
program prog4;
uses CRT;
var a,S,P: integer;
begin
clrscr;
write('a=');
read(a);
P:=4*a;
S:=sqr(a);
writeln('P=',P);
writeln('S=',S)
end.







5. Написать программу нахождения площади прямоугольного треугольника. Длины катетов вводятся с клавиатуры.
program prog5;
uses CRT;
var a,b,S,P: real;
begin
clrscr;
write('a=');
read(a);
write('b=');
read(b);
S:=0.5*a*b;
writeln('S=',S:2:2)
end.

6. Написать программу нахождения значения выражения у=(х2-13 EMBED Equation.3 1415):13 EMBED Equation.3 1415
program prog6;
uses CRT;
var a,x,y: real;
begin
clrscr;
write('a=');
read(a);
write('x=');
read(x);
y:=(sqr(x)-sqrt(x*a))/abs(a);
writeln('y=',y:2:2)
end.

7. Написать программу нахождения площади треугольника со сторонами по формуле Герона.
program prog7;
uses CRT;
var a,b,c,p,s: real;
begin
clrscr;
read(a,b,c);
p:=0.5*(a+b+c);
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s:2:2)
end.




8. Написать программу нахождения суммы цифр двухзначного числа. Число водится с клавиатуры.
program prog8;
uses CRT;
var X,a,b,S: integer;
begin
clrscr;
write('x=');
read(x);
a:=x div 10;
b:=x mod 10;
S:=a+b;
write('S=',S)
end.

9. Написать программу нахождения суммы цифр двухзначного числа. Число водится с клавиатуры.
program prog9;
uses CRT;
var x,s: integer;
begin
clrscr;
read(x);
s:=(x mod 10)+(x div 100)+(x mod 10 mod 10);
write('s=',s)
end.

10. С клавиатуры вводятся скорости двух автомобилей. Какое расстояние будет между ними через 3 часа, если автомобили выехали из одного пункта в одном направлении. Напишите программу.
program prog10;
uses CRT;
var v1,v2,s1,s2,s: integer;
begin
clrscr;
read(v1,v2);
s1:=3*v1;
s2:=3*v2;
s:=abs(s1-s2);
write('s=',s)
end.




Литература:
Л.З. Шауцукова «Информатика»; И. Семакин, Л.Залогова, С.Русакова, Л.Шестакова, Базовый курс, учебник 7-9 классы; И.Д.Агеева, Занимательные материалы по информатике и математике. С.Н. Лукин Turbo Pascal 7.0


Приложенные файлы


Добавить комментарий