Задание Паскаль Линейные программы.

Паскаль Линейные программы. Карточка № 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.