Два прямоугольных треугольника заданы своими катетами. определить, у какого из них площадь больше (создать функцию для вычисления площади прямоугольного треугольника по его катетам).
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 function FS(a,b:real):=0.5*a*b; begin var a,b:real; Write('Катеты первого треугольника: '); Read(a,b); var S1:=FS(a,b); Write('Катеты второго треугольника: '); Read(a,b); var S2:=FS(a,b); if S1>S2 then Writeln('Площадь первого треугольника больше') else if S1<S2 then Writeln('Площадь второго треугольника больше') else Writeln('Площади треугольников равны') end.
Тестовое решение Катеты первого треугольника: 4.18 6 Катеты второго треугольника: 5.4 3.9 Площадь первого треугольника больше
CLS RANDOMIZE TIMER INPUT "N = ", N DIM D%(N) PRINT "D("; N; "):"; K = 0 FOR i = 1 TO N D%(i) = RND * (2 * N + 1) - N PRINT " "; D%(i); NEXT i PRINT INPUT "T = ", T FOR i = 1 TO N IF D%(i) = T THEN K = K + 1 END IF NEXT i PRINT "K = "; K END
2)
CLS RANDOMIZE TIMER DIM D%(14), C%(14) PRINT "D(14):"; K = 0 FOR i = 1 TO 14 D%(i) = RND * 41 - 20 PRINT " "; D%(i); IF D%(i) < 7 THEN K = K + 1 C%(K) = D%(i) END IF NEXT i PRINT PRINT "C("; K; "):"; FOR i = 1 TO K PRINT " "; C%(i); NEXT i END
Байт – это последовательность из восьми бит К расширениям графических файлов можно отнести gif, bmp, jpg3 К расширениям готовых к исполнению программ можно отнести exe, com, bat
Принтер – устройство кодирования (неверно, устройство вывода) Клавиатура – устройство ввода (верно) Монитор – устройство ввода(неверно, вывода) CD- ROM – устройство кодирования информации (неверно, ввода-вывода) Минимально необходимый набор устройств для работы компьютера содержит системный блок (не пустой, конечно))) ), монитор, клавиатуру. Манипулятор «мышь» это устройство ввода Постоянное запоминающее устройство служит для хранения программ начальной загрузки компьютера и тестирование его узлов. При отключении компьютера информация стирается из оперативной памяти. 10 - raskaz.txt 11. Чему равен 1 Мбайт? 1000000 байт (СИ) 1024 Кбайт (IEC) 12.для копирования надо выделить нужный фрагмент 13 не пачкать и не царапать! 14ю когда с файлами работаешь, если у тебя java работает - через браузер запросто, по сетке тоже можно поцепить 16. вирусы пишут специально, они умеют размножаться, заражают другие проги, портят файлы, калечат реестр, шифруют данные, заползают в загрузочные сектора. некоторые незаметно проникают и ожидают команды извне. а некоторые сами себя модифицируют 15. всеми перечисленными зависит от вируса. 17. Поставить файрволл и антивир и периодически обновлять базы данных. НИКОГДА не открывать подозрительные файлы из ненадежных источников. проверять антивиром флешки и полученные файлы перед открытием. делать бэкапы системы и копии важных данных. периодически сканировать комп антивиром.
function FS(a,b:real):=0.5*a*b;
begin
var a,b:real;
Write('Катеты первого треугольника: '); Read(a,b);
var S1:=FS(a,b);
Write('Катеты второго треугольника: '); Read(a,b);
var S2:=FS(a,b);
if S1>S2 then Writeln('Площадь первого треугольника больше')
else
if S1<S2 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.
Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше