Файл: 7 семестра практическая работа 1 Дисциплина Технология и методы программирования, часть 1 Номер варианта 1 Тема 1, 20, 21, 26, 36, 46 Выполнил(а) Бобровский Дорин Игоревич Группа ин418(2), 09. 03. 03 Прикладная информатика.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 25.10.2023
Просмотров: 34
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Автономная некоммерческая образовательная организация высшего образования
«Сибирский институт бизнеса и информационных технологий»
Зачетная работа
№7 семестра
ПРАКТИЧЕСКАЯ РАБОТА №1
Дисциплина: Технология и методы программирования, часть 1
Номер варианта: №1
Тема: 1, 20, 21, 26, 36, 46
Выполнил(а): Бобровский Дорин Игоревич
Группа ИН-418(2), 09.03.03 «Прикладная информатика»
Проверил(а): _____________________________
Омск 2023 г.
Задание 1. Считая, что Земля – идеальная сфера с радиусом R ≈ 6350 км,
определить расстояние до линии горизонта от точки с заданной высотой над Землей.
const
r=6350;
var
h,l: real;
begin
write('Введите значение высоты h (км): ');
readln(h);
writeln('До линии горизонта ',sqrt(sqr(r+h)-sqr(r)):0:3,' км');
readln;
end.
Задание 20. Год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400, например 1700, 1800 и 1900 –невисокосные года, 2000 – високосный. Дано натуральное число n. Определить, является ли високосным год с таким номером.
programm LeapYear;
var y: integer;
begin
readln(y);
if y/4=int(y/4) then
begin
if (y/100=int(y/100))and(y/400<>int(y/400)) then
writeln('Не високосный') else
writeln('Високосный';)
end
else writeln('Не високосный')
end;
Задание 21. Известен вес боксера-любителя (в кг, в виде вещественного числа). Известно, что вес таков, что боксер может быть отнесен к одной из трех весовых категорий: 1) легкий вес – до 60 кг; 2) первый полусредний вес – до 64 кг; 3) полусредний вес – до 69 кг. Определить, в какой категории будет выступать данный боксер.
m = int(input())
if m<=59:
print('Легкий вес')
elif m>=60 and m<=63:
print('Первый полусредний вес')
elif m>=64 and m<=68:
print('Полусредний вес')
Задание 26. Напечатать таблицу перевода 1, 2, ... 20 долларов США в рубли по текущему курсу (значение курса вводится с клавиатуры)
var
i:integer;
kurs:real;
begin
read(kurs);
for i:=1 to 20 do writeln(i,'$ = ',kurs*i,' рублей');
end.
Задание 36. Заполнить массив из n элементов случайными целыми числами из интервала от а до b включительно.
Var
a,b,i,n : integer;
mass:array of integer;
Begin
Writeln('Введите значения a,b,n');
Readln(a,b,n);
SetLength(mass, n);
for i:=0 to n-1 do
begin
mass[i]:=Random(b-a+1)+a;
write(' ', mass[i]);
end;
writeln('');
for i:=0 to n-1 do
begin
if mass[i] mod 2 = 0 then
write(' ', mass[i]);
end;
End.
Задание 46. Даны два слова. Верно ли, что первое слово начинается на ту же букву, на которую заканчивается второе слово?
#include
int main()
{
char* str1 = "qwerty";
char* str2 = "ytrewq";
if (str1[0] == str2[strlen(str2) - 1])
std::cout << "true\n";
else
std::cout << "false\n";
system("pause");
return 0;
}