1. Вывести на экран сообщение «Hello World!».
2. Вычислите значение выражения по заданным a, b, c.
3. Вычислить гипотенузу прямоугольного треугольника c и величины двух прилежащих к ней углов a и b по известным катетам a и b.
Воспользуемся известными формулами:
Угол выразим в градусах.
4. Найти сумму и произведение 3 введенных с клавиатуры целых чисел
Паскаль Линейные программы.
Карточка № 1
1. Вывести на экран сообщение «Hello World!».
2. Вычислите значение выражения
3. Вычислить гипотенузу прямоугольного треугольника c и величины двух
по заданным a, b, c.
прилежащих к ней углов a и b по известным катетам a и b.
Воспользуемся известными формулами:
Угол выразим в градусах.
4. Найти сумму и произведение 3 введенных с клавиатуры целых чисел.
Паскаль .Линейные программы.
Карточка № 2
1. Сформировать число, представляющее собой реверсную (обратную в порядке
следования разрядов) запись заданного трехзначного числа. Например, для числа
341 таким будет 143.
2. Человек делает в магазине покупки. Определите сколько денег у него останется
после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B
руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.
3. Вычислить процент материала, идущего в отходы, если из куба ребра а был выточен
шар радиусом r. Проценты отхода могут быть найдены по формуле :
,
где
Паскаль .Линейные программы.
Карточка № 3
1. Составьте алгоритм и программу для определения сдачи после покупки в магазине
товара: перчаток стоимостью а руб., портфеля стоимостью б руб., галстука
стоимостью с руб. Исходная сумма, выделенная на покупку d руб. В случае
нехватки денег сдача получится отрицательной.
2. Написать программу расчета по заданной формуле:
и
.
3. Найти периметр:
а) прямоугольника, ширина и длина вводятся с клавиатуры;Паскаль .Линейные программы.
Карточка № 4
1. Вычислить значение выражений:
а) у=15х2+8х9;
2. Найти периметр пятиугольника, если длины его сторон a,b,c,d,f вводятся с
клавиатуры.
3. Вычислить значение выражения: у=5х3+16х2+18х29.
4. Найти периметр:
а) прямоугольника, ширина и длина вводятся с клавиатуры;
Паскаль .Линейные программы.
Карточка № 5
1. Вывести на экран три введенных с клавиатуры числа в порядке, обратном их вводу.
2. Составим алгоритм нахождения площади и периметра прямоугольника.
3. Найти среднее арифметическое 3х чисел.
4. Дана длина ребра куба а. Найти объем куба V=a3 и площадь его поверхности S=6*a2.
Паскаль .Линейные программы.
Карточка № 6
1. Даны два числа. Найти сумму, разность, произведение и частное их квадратов.
2. Поменять местами содержимое переменных А и В. Вывести на экран их новые
значения.
3. Сосчитать для переменных X, Y и Z сумму, произведение, сумму квадратов и
4. Вычислить значение выражений:
среднее арифметическое
а) у=15х2+8х9;
Паскаль .Линейные программы.
Карточка № 7
1. Написать программу для вычисления площади круга радиуса R (вводимого
оператором Read). Площадь круга вычисляется по формуле S=pi*R*R Где PI =
3.14159 константа определена в системе
2. Написать программу для вычисления площади трапеции по основанию А и В и
высоте Н (вводимых оператором Read). Площадь трапеции равна полусумме
оснований умноженной на высоту.
3. Вычислить значение выражения: у=5х3+16х2+18х29.
4. Человек делает в магазине покупки. Определите сколько денег у него останется
после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B
руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.Паскаль .Линейные программы.
Карточка № 8
1. Написать программу, которая описывает как целые переменные и вводит с
клавиатуры длины сторон прямоугольника (a и b), рассчитывает и выводит на экран
значение периметра (переменная p вещественного типа) с двумя знаками после
запятой.
2. Найти объем шара по его диаметру (вводимого оператором Read) ,если известно ,
что его обьем равен 4/3*PI*R^3. Где PI = 3.14159 константа определена в системе.
3. Написать программу для сложения трех чисел.
4. Вычислить значение выражения по формуле (все переменные принимают
действительные значения):
Паскаль .Линейные программы.
Карточка № 9
1. Написать программу, которая описывает как вещественные переменные и вводит с
клавиатуры скорость (v) и время (t) равномерного движения тела, рассчитывает и
выводит на экран значение расстояния (s), пройденного телом за это время, с 4
знаками после запятой.
2. Вычислить значение выражения по формуле (все переменные принимают
действительные значения):
3. Найти объем шара по его диаметру (вводимого оператором Read) ,если известно ,
что его обьем равен 4/3*PI*R^3. Где PI = 3.14159 константа определена в системе.
Паскаль .Линейные программы.
Карточка № 10
1.Дан радиус шара. Найти его объем.
2. Вычислить расстояние между двумя точками с данными координатами (x1, y1) и (x2, y2).
3.Заданы координаты трех вершин треугольника (x1, y1), (х2, y2), (x3, y3). Найти его
периметр и площадь.Program Pr11;
var v,t,s:real;
begin
read(v,t);
s:=v*t;
writeln('S=',s:7:4);
end.
Program Pr13;
var p:real;
a,b:integer;
begin
read(a,b);
p:=2*(a+b);
writeln('p',p:5:2);
end.
Решение
1. Написать программу, которая описывает
как вещественные переменные и вводит с
клавиатуры скорость (v) и время (t)
равномерного движения тела, рассчитывает
и выводит на экран значение расстояния (s),
пройденного телом за это время, с 4 знаками
после запятой.
3. Написать программу, которая описывает
как целые переменные и вводит с
клавиатуры длины сторон прямоугольника (a
и b), рассчитывает и выводит на экран
значение периметра
(переменная p
вещественного типа) с двумя знаками после
запятой.
Задача 9. Дан радиус шара. Найти его объем.
Program begin_9;
uses crt;
var r,V: real;
Begin
ClrScr;
Writeln('введите радиус r'); readln(r);
V:=4/3*PI*sqr(r)*r;writeln('объем равен',v:4:2);
Readln;
end.
Задача 1. Вывести на экран сообщение «Hello World!».
program HelloWorld;
begin
writeln('Hello World!')
end.
Обсудить решение на форуме
Задача2. Вывести на экран три введенных с клавиатуры числа в порядке, обратном
их вводу.
program WriteThree;
var
a, b, c: integer;
begin
readln(a, b, c);
writeln(c, ' ', b, ' ', a)
end.
Задача4. Сформировать число, представляющее собой реверсную (обратную в порядке следования разрядов)
запись заданного трехзначного числа. Например, для числа 341 таким будет 143.
program ReverseNum;
var
n, a, b, c: word;
begin
readln(n);
a := n mod 10;
n := n div 10;
b := n mod 10;
n := n div 10;
c := n;
n := 100 * a + 10 * b + c;
writeln(n)
end.
Program PROT; {Заголовок программы}
var {Раздел описания переменных }
a, r, Vk, Vot, Vsh, p : real; {Описания переменных}
begin {Ключевое слово начало программы}Write (‘Введите ребро куба a :’); {Выводит на экран ‘Введите ребро куба a :’}
ReadLn (a); {Ввод ребра куба с помощью процедуры ReadLn}
Write (‘Введите радиус шара r :’); {Выводит на экран ‘Введите радиус шара r :’}
ReadLn (r); {Ввод радиуса шара}
Vk : = a*a*a; {Вычисление объема куба }
Vsh := 4/3*Pi*r*r*r; {Вычисление объема шара}
Vot := Vk Vsh ; {Вычисление объема отходов}
p := Vot / Vk *100; {Нахождение процента материала, идущего в отходы}
WriteLn(‘Отходы составляют ’ , p ,’%’); {Выполняется вывод результатов вычисления}
5 этап. Написание программы.
Program pokupka;
Uses crt;
Var
a, b, d, den: real;
ostatok: real;
begin
clrscr;
write ('введите стоимость перчаток, портфеля и галстука ');
readln (a, b, d);
write ('введите количество имеющихся у вас денег ');
readln (den);
oststok := den a b c;
writeln ('после покупки у вас останется ', ostatok:5:2, 'руб. ');
readln;end.
Задача 7. Составьте алгоритм и программу для определения сдачи после покупки в
магазине товара: перчаток стоимостью а руб., портфеля стоимостью б руб., галстука
стоимостью с руб. Исходная сумма, выделенная на покупку d руб. В случае нехватки
денег сдача получится отрицательной.
uses crt;
var change,per,por,gal,cash:longint;
begin;
clrscr;
write('введите стоимость перчаток');
readln(per);
write('введите стоимость портфеля');
readln(por);
write('введите стоимость галстука');
readln(gal);
write('введите колво денег, имеущихся в наличии');
readln(cash);
change:= cash (per + por + gal);
writeln('Сдача ',change,'руб.');
end.