Файл: 7 семестра практическая работа 1 Дисциплина Технология и методы программирования, часть 1 Номер варианта 1 Тема 1, 20, 21, 26, 36, 46 Выполнил(а) Бобровский Дорин Игоревич Группа ин418(2), 09. 03. 03 Прикладная информатика.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 25.10.2023
Просмотров: 91
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Автономная некоммерческая образовательная организация высшего образования«Сибирский институт бизнеса и информационных технологий»Зачетная работа№7 семестраПРАКТИЧЕСКАЯ РАБОТА №1Дисциплина: Технология и методы программирования, часть 1Номер варианта: №1Тема: 1, 20, 21, 26, 36, 46Выполнил(а): Бобровский Дорин ИгоревичГруппа ИН-418(2), 09.03.03 «Прикладная информатика»Проверил(а): _____________________________Омск 2023 г.Задание 1. Считая, что Земля – идеальная сфера с радиусом R ≈ 6350 км, определить расстояние до линии горизонта от точки с заданной высотой над Землей.constr=6350;varh,l: real;beginwrite('Введите значение высоты 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;beginreadln(y);if y/4=int(y/4) thenbeginif (y/100=int(y/100))and(y/400<>int(y/400)) thenwriteln('Не високосный') elsewriteln('Високосный';)endelse 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 долларов США в рубли по текущему курсу (значение курса вводится с клавиатуры)vari:integer;kurs:real;beginread(kurs);for i:=1 to 20 do writeln(i,'$ = ',kurs*i,' рублей');end.Задание 36. Заполнить массив из n элементов случайными целыми числами из интервала от а до b включительно.Vara,b,i,n : integer;mass:array of integer;BeginWriteln('Введите значения a,b,n');
Readln(a,b,n);SetLength(mass, n);for i:=0 to n-1 dobeginmass[i]:=Random(b-a+1)+a;write(' ', mass[i]);end;writeln('');for i:=0 to n-1 dobeginif mass[i] mod 2 = 0 thenwrite(' ', 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;
}
Readln(a,b,n);SetLength(mass, n);for i:=0 to n-1 dobeginmass[i]:=Random(b-a+1)+a;write(' ', mass[i]);end;writeln('');for i:=0 to n-1 dobeginif mass[i] mod 2 = 0 thenwrite(' ', 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;
}