|
PROGRAM6187.PAS |
|
{* Математика *}{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }Case User Of- 'Параллельное соединение R' : Uses begin_20.pas; { Три сопротивления R1, R2 и R3 соединены параллельно. Найти сопротивление соединения R0. ... }
- 'Первая цифра натурального числа' : Uses firstcf.pas; { Найти первую цифру натурального числа. ... }
- 'Перевод десятичного числа в шестнадцатеричное' : Uses hex_dec.pas; { Перевод из десятичного числа в шестнадцатеричное ... }
- 'Перевод угла из радиан в градусы, минуты и секунды' : Uses z_radians2.pas; { Перевод угла из радиан в градусы, минуты и секунды ... }
- 'Перевод градусы в радианы' : Uses z_grads.pas; { Перевод градусы в радианы ... }
- 'Перестановка цифр' : Uses perest1.pas; { Перестановка первой и последней цифры в натуральном числе. ... }
- 'Пересчет из верст в километры и наоборот' : Uses lin_7.pas; { Пересчет из верст в километры и наоборот ... }
- 'Пересчет из фунтов в килограммы и наоборот' : Uses lin_8.pas; { Пересчет из фунтов в килограммы и наоборот ... }
- 'Периметр квадрата' : Uses perimetr1.pas; { Дана сторона квадрата a. Найдите его периметр P=4*a ... }
- 'Печать всех простых чисел до 500' : Uses sample06.pas; { Печать всех простых чисел до 500 ... }
- 'Печать всех совершенных чисел до 10000' : Uses sample05.pas; { Печать всех совершенных чисел до 10000 ... }
- 'Площадь квадпрата' : Uses kvadrapl.pas; { Дана сторона квадрата a. Найти его площадь S=a2. ... }
- 'Площадь кольца' : Uses prim_8.pas; { Найти площадь кольца по заданным внешнему и внутреннему радиусам. ... }
- 'Площадь поверхности и объем шара' : Uses vshar.pas; { Вычислить площадь поверхности и объем шара по
вводимому радиусу. ... }
- 'Площадь поверхности цилиндра' : Uses pas68246.pas; { Вычисление площади поверхности цилиндра ... }
- 'Площадь прямоугольник' : Uses pryampl.pas; { Даны стороны прямоугольник a и b. Найти его площадь S = a*b и периметр P = 2*(a + b). ... }
- 'Площадь прямоугольника из диагонали' : Uses begin_16.pas; { Даны координаты диагонали прямоугольника. Найти его площадь. ... }
- 'Площадь треугольника из его сторон' : Uses z_triangle3.pas; { Площадь треугольника из его сторон ... }
- 'Подсчет букв в слове' : Uses sample01.pas; { var s:string; r:real; i, j, n:integer;
begin r:=0; readln(s); for i:=1 to length(s) do begin n:=0; for j:=1 to length(s) do begin if s[i]=s[j] then inc(n); end; r:=r+1/n; ... }
- 'Подсчет суммы цифр числа' : Uses sample07.pas; { Подсчет суммы цифр числа ... }
- 'Подсчет цифр в числе' : Uses arif1.pas; { Подсчитать кол-во цифр в заданном натуральном числе ... }
- 'Поиск числа в векторе' : Uses Ppf.pas; { Программа показывает использование типа "функция" на примере поиска числа в векторе. ... }
- 'Положение точки относительно вектора' : Uses sample035.pas; { Положение точки относительно вектора ... }
- 'Поменять местами значения переменных X и Y' : Uses zamena01.pas; { Поменять местами значения переменных X и Y. ... }
- 'Последовательность 1+1/2+1/3+...+1/k' : Uses z_summa7.pas; { При каком количестве слагаемых последовательности их сумма 1+1/2+1/3+...+1/k превысит 5? ... }
- 'Последовательность Фибоначчи' : Uses z1.pas; { Последовательность записана в одну строку без пробелов. Например: 112358132134..... Требуется найти n-ую цифру данной последовательности. К примеру, двенадцатая цифра - 4 ... }
- 'Правильные треугольники' : Uses pravtr.pas; { Координаты точек правильных треугольников ... }
- 'Преобразование комплексного числа в тригонометрическую форму ' : Uses z_number14.pas; { Преобразование комплексного числа в тригонометрическую форму ... }
- 'Программа для перевода велечин' : Uses transl1.pas; { Вы вводите какое-то число, затем выбираете что вы ввели, а затем выбираете в какую величину надо перевести. Перевод величин производится по соответствующим формулам. Для ... }
- 'Продолжительность промежутка времени в часах, минутах, секундах' : Uses z_time3.pas; { Продолжительность промежутка времени в часах, минутах, секундах ... }
Else writeln( 'Ничего не выбрано!'); End;Program pas2984;
Program pas2984..
|