Lab1 (Лабораторные работы (В PAS-файлах))
Описание файла
Файл "Lab1" внутри архива находится в следующих папках: Лабы в PAS-файлах, Лабы. Документ из архива "Лабораторные работы (В PAS-файлах)", который расположен в категории "". Всё это находится в предмете "информационные технологии" из 2 семестр, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информационные технологии" в общих файлах.
Онлайн просмотр документа "Lab1"
Текст из документа "Lab1"
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ИНСТИТУТ РАДИОТЕХНИКИ, ЭЛЕКТРОНИКИ И
АВТОМАТИКИ
(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)
Кафедра РПУ
Лабораторная работа №1
Тема: “Арифметические операции и математические функции”
Вариант №18
Цель работы: получить навыки работы использования арифметических операций и стандартных математических функций на примере выполнения двух заданий.
работу выполнил
группа ВР
проверил: Давлетин Д.И.
Москва 2008
Задание 1. Составить программу выполняющую операции целостности арифметики.
Задание 2. Составить программу выполняющую вычисление математических функций.
Задание 1. Определить произведение двух чисел, первое из которых есть сумма второй и третьей цифр четырехзначного числа, а второе – первая цифра числа.
Задание 2.
2. Спецификация
3. Алгоритм
1. Задание1
Алгоритмы рисовал от руки.
2. Задание 2
4. Программа
Задание 1.
program p1;
uses crt;
var a,b:integer;
begin
clrscr;
write('Enter 4-x:');
read(a);
b:=(((a div 10) mod 10)+((a div 100) mod 10))*(a div 1000);
write('b=',b);
readkey
end.
Задание 2.
program p2;
uses crt;
var
a:integer;
b:extended;
Label
M1;
begin
clrscr;
M1:write('Enter X:');
read(a);
if a<=0 then
begin
writeln('X<0, Reshenii net');
goto M1;
end;
b:=(abs(sin(sqrt(10.5*a))))/(exp(ln(a*a)/3)-0.143)+2*pi*a;
writeln('Y=',b:5:5);
readkey
end.
5. Результаты
Вставить скрин