76 ПРАКТИЧНА РОБОТА № 3 «Побудова інформаційних моделей у різних програмних середовищах» Увага! Під час роботи з комп'ютером дотримуйтеся вимог безпеки життєді. яльності та санітарно-гігієнічних норм. Завдання. Створіть інформаційну модель для вивчення вимірювальних приладів на уроках фізики. 1. Зобразіть у текстовому процесорі структурну модель для вивчення вимірюваль- них приладів. Відобразіть у моделі призначення приладів (для вимірювання часу: метроном, секундомір, годинник; для вимірювання лінійних розмірів: лі- нійка; для вимірювання об'єму: мензурка), їхні назви, одиниці вимірювання від- повідних фізичних величин. Збережіть отриманий документ у вашій папці у фай- лi з іменем практична 3.docx. 2. Створіть презентацію Вимірювальні прилади: 1. Розмістіть на першому слайді заголовок Вимірювальні прилади та підзаголо- вок - ваше прізвище та ім'я. 2. Скопіюйте з текстового документа структурну модель вимірювальних прила- дів і вставте її на другий слайд презентації. 3. На третьому слайді презентації створіть математичну модель для визначення кількості секунд в інтервалі часу, якщо відома його тривалість як сума годин і хвилин. 4. Збережіть отриману презентацію у вашій папці у файлі з іменем практич- на 3.pptx. 7 клас памагите

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

гаагмгмг

30.05.2020 04:25

Вариант безопасности нарушил ученик. Каковы последствия нарушения техники безопасности в данном случае? [2]учащийся, решив показать свои глубокие познания своей однокласснице,...

Анастасия4487

10.02.2022 19:32

Авторское право бывает......

Ольга5555555555

18.02.2021 20:36

без спама правильный ответ иначе...

Никитка90909

09.07.2022 12:25

Написать программы, используя различные виды циклов. При таких операторов как for, while, do while - для каждого оператора свое решение Вычислить: а) (1+sin0.1)(1+sin0.2)...(1+sin10);...

epoluektova

20.11.2021 07:58

Для натурального числа k напечатать фразу мы нашли в лесу k грибов ,согласовав окончание сдова гриб с числом k. Язык: Пайтон ( не Паскаль что изучают в школе)...

DrZIP1st

16.07.2020 11:01

Построить логичную схему для функции...

justnastya1

19.05.2021 20:55

Выбери верные ответы. достоинства растровой графики: 1. масштабирование (в частности, увеличения) изображения без потери качества. 2. неточная передача цветовых переходов....

spfpspfpspdps

19.05.2021 20:55

3. дано целое трёхзначное число а. b)входные данные а=345. определите выходные 4. назовите код программы начало(в овале) (стрелка вниз) a+5(параллелепипед) (стрелка вниз)...

2112x2n3t

24.11.2022 03:06

Диалог на тему поход в кино подготовка к экзаменам...

mrpetrov289

24.11.2022 03:06

Сделать практическую по теме опричнина* вся информация есть в 1 и 2 листке . надо заполнить таблицу по информации,которая предложена после нее. заранее !...

Ответ:

ekaterinka21041

26.12.2020 02:21

Var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real;

procedure nod( var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real; );
var a:array[1..6] of real;
i : integer;
begin
dv1:=100;
tr1:=100;
pt1:=100;
for i:= low(a) to high (a) do begin
readln(a[i]);
repeat
if( (a[i] mod 2) =0) then begin
a[i]:=a[i]/2;
dv:=dv+1;
end
else if( ( a[i] mod 3)=0) then begin
a[i]:=a[i]/3;
tr:=tr+1;
end
else if ( ( a[i] mod 5)=0) then begin
a[i]:=a[i]/5;
pt:=pt+1;
end;

untill(a=1);
if dvif trif ptdv:=0;
tr:=0;
pt:=0;
end;
if dv1>0 then dv2:=dv1*2 else dv2:=1;
if tr1>0 then tr2:=tr1*3 else tr2:=1;
if pt1>0 then pt2:=pt1*5 else pt2:=1;
nod:=dv2*tr2*pt2;
writeln(nod);
end;
begin
nod( dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 );
end.

end;

0,0(0 оценок)

Ответ:

Galel227

20.06.2022 20:30

Задача №1
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
Var n, i: integer;
Begin
writeln ('Введите число');
readln(n);
writeln('Делители числа:');
for i := 1 to n div 2 do
if (n mod i) = 0 then begin
    write(i,' ');
end;
End.

Задача №2 (алгоритм не очень шустрый, но работает и понятный)
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var
a, b, x, y, nod: integer;

begin
writeln('Введите a,b');
readln(a, b);
x := a;y := b;
while x <> y do
    if x > y
      then x := x - y
    else y := y - x;
nod := x;
writeln('NOD(', a, ',', b, ')=', nod);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку