Расчеты на языке Паскаль
Программа по переводу массы в килограммы из тонн; возведение большего числа в квадрат и его распечатка на принтере; вычисление значений функции f(x); определение количества натуральных чисел из интервала от 100 до 500, сумма цифр которых равна 15.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | лабораторная работа |
| Язык | русский |
| Дата добавления | 08.09.2012 |
| Размер файла | 175,7 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
1. Дана масса в килограммах. Найти число тонн в ней
функция натуральный число программа
program kg;
var a, m:real;
begin
writeln ('введите массу (в кг)');
readln(a);
m:=a/1000;
writeln ('масса в тоннах= ', m);
end.
Результат:
введите массу (в кг)
55
масса в тоннах= 0.055
2. Ввести два числа. Большее из них возвести в квадрат и напечатать
program kv;
var a, b:real;
begin
writeln ('введите любые два числа');
readln (a, b);
if a>b then begin a:=sqr(a);
writeln ('', a); end
else if b>a then begin b:=sqr(b); writeln ('', b);
end;
end.
Результата:
введите любые два числа
7 12
144
3. Составить программу для вычисления значения функции f(x)
где
Program zn;
var k, x, f:real;
begin
writeln ('Введите x');
readln(x);
if (sin(x)>=0) then k:=sqr(x)
else k:=abs(x);
else f:=k*x;
writeln ('f(x)=', f);
end.
Введите x
7
f(x)=7
Введите x
4
f(x)=16
4. Определить количество натуральных чисел из интервала от 100 до 500, сумма цифр которых равна 15
program zada4a4;
var a:array [100..500] of integer;
i, k:integer;
begin
k:=0;
writeln ('Все числа:');
for i:=100 to 500 do
begin
if (i div 100 + i div 10 mod 10 + i mod 10)=15 then
begin
inc(k);
a[i]:=a[i]+i;
write (' ', a[i]:3);
end; end;
readln;
writeln ('Количество = ', k);
end.
Все числа:
159 168 177 186 195 249 258 267 276 285 294 339 348 357 366 375 384 393 429 438 447 456 465 474 483 492
Схема:
Размещено на Allbest.ru
Подобные документы
Описание подпрограммы SumDigit, находящей сумму цифр S целого числа N. Нахождение суммы цифр данных чисел, используя эту подпрограмму. Алгоритм и код программы, тестовые наборы. Вывод о ее работоспособности. Описание функции RingS вещественного типа.
лабораторная работа [514,5 K], добавлен 23.11.2014Перевод числа из десятичной системы счисления в двоичную. Результат выполнения в TURBO PASKAL заданных функций и операций. Программа вычисления значений функции на языке PASKAL, блок-схема. Вычисление суммы и произведения всех элементов массива.
контрольная работа [66,6 K], добавлен 15.02.2013Иерархическая структура производного типа данных в языке Паскаль. Определение массива как упорядоченного набора фиксированного количества некоторых значений. Сортировка одномерных и двумерных массивов методом простых обменов, простым выбором и включением.
курсовая работа [48,8 K], добавлен 27.11.2010Создание приложения, исполняющего трансляцию программы из языка Паскаль в язык Си: разработка алгоритма реализации задачи, описание необходимых констант, переменных, функций и операторов, представление листинга программы и распечатка результатов.
курсовая работа [305,9 K], добавлен 03.07.2011Факторизация натурального числа. Метод квадратичного решета. Факторизация с помощью эллиптических кривых. Реализация алгоритмов натуральных чисел и оценка их эффективности. Применение алгоритмов факторизации натуральных чисел в программной среде Maple.
курсовая работа [851,6 K], добавлен 25.06.2013Теория чисел как одно из направлений математики, изучающее свойства натуральных чисел. Разработка программы-калькулятора CalcKurs на языке программирования Pascal. Основные функции, реализованные в программе. Интерфейс программы, описание процедур.
курсовая работа [1,9 M], добавлен 03.06.2010Выбор метода проектирования транслятора с языка Паскаль на язык Си, разработка и кодирование алгоритма программы. Использование допустимых операторов в исходном тексте, определение типов переменных и синтаксиса логических и арифметических выражений.
курсовая работа [1,0 M], добавлен 03.07.2011Анализ заданной сложной функции и разработка структурной схемы алгоритма по её вычислению. Программирование отдельных блоков и структур алгоритма решаемой задачи на языке Паскаль. Полная программа в соответствии с алгоритмом. Результаты расчётов на ПК.
курсовая работа [59,2 K], добавлен 09.04.2012Процедура изучения программы нахождения большего из четырех чисел, основанной на использовании подпрограммы нахождения большего из двух чисел. Практические навыки работы в MS Excel. Структура и основы создания базы данных при использовании конструктора.
отчет по практике [22,4 K], добавлен 26.01.2011Ввод и вывод значений целого, вещественного, логического и перечисляемого типов. Табулирование функции на отрезке с заданным количеством точек. Рекурсивная функция - вычисление суммы, произведения, количества, минимума, максимума и проверка условия.
курсовая работа [75,6 K], добавлен 07.03.2010
