Смоделируйте в электронной таблице процесс определения силы тока (i) по закону ома i=u/r, где u напряжения, a r сопротивление. напишите формулу для вычисления, используя адреса ячеек

👇

Увидеть ответ

Открыть все ответы

Ответ:

Tumanovaad12

11.04.2021

Ф.И.Класс

Задание 1 Найди уравнения и реши их.

А) 35 + х

В) 68 — 33 = 35

С) х + 4 > 3

D) 17 + х = 29

E) х + 7 = 56

F) х = 18

Задание 2

Если синий карандаш толще красного, а красный толще голубого, то какой карандаш толще?

А) Голубой; В) Синий.

Задание 3

Мать для своих детей оставила дома конфеты. Первым пришел из школы брат, взял свою половину конфет и ушел гулять. Затем пришла сестра. Думая, что брат еще не брал конфет, она съела только половину оставшихся, после чего осталось еще 3 конфеты. Сколько было конфет вначале?

А) 14 В) 12 С) 10 D) 16

Задание 4

Подбери два слагаемых для числа 66 так, чтобы одно было больше другого в 2 раза.

Задание 5 Оля вырезала из бумаги 5 квадратов, 7 треугольников, а кругов в 2 раза больше, чем треугольников. Сколько всего Оля вырезала фигур?

Задание 6 Первое число 12, второе в 3 раза меньше, а третье в 4 раза больше, чем второе. Вычисли сумму этих трех чисел.

Задание 7

На часах было 11:45, когда начался мультфильм. Он длился 50 минут. Точно в середине просмотра пришла мама и позвала обедать. Какое время показывали часы в этот момент?

ОТВЕТ:

Задание 8 Речь пойдёт про единицы времени. Что можно узнать, данным произведением 60 х 60 х 24 х 7

ОТВЕТ:

Задание 9

Если Витя купит 3 пачки чипсов, то у него останется 4 тенге. А если бы он захотел купить 5 пачек, ему бы не хватило 20 тенге. Сколько денег у Вити?

Задание 10

Как с двух бидонов ёмкостью 5 л и 8 л отлить из молочной цистерны 7 л молока?

Ф.И.Класс

Задание 1 Найди уравнения и реши их.

А) 35 + х

В) 68 — 33 = 35

С) х + 4 > 3

D) 17 + х = 29

E) х + 7 = 56

F) х = 18

Задание 2

Если синий карандаш толще красного, а красный толще голубого, то какой карандаш толще?

А) Голубой; В) Синий.

Задание 3

А) 14 В) 12 С) 10 D) 16

Задание 4

Подбери два слагаемых для числа 66 так, чтобы одно было больше другого в 2 раза.

Задание 7

ОТВЕТ:

Задание 8 Речь пойдёт про единицы времени. Что можно узнать, данным произведением 60 х 60 х 24 х 7

ОТВЕТ:

Задание 9

Задание 10

Как с двух бидонов ёмкостью 5 л и 8 л отлить из молочной цистерны 7 л молока?

4,8(21 оценок)

Ответ:

ЮлияМезина

11.04.2021

Как один из примитивных вариантов

type
LibBook = record
    Book:string[50];
    Author:string[50];
    Publisher:string[30];
    PubYear:integer;
    City:string[30];
    Deleted:boolean
    end;
var
gf:file of LibBook;

function Create(pName:string):file of LibBook;
// Создает или обнуляет существующий файл библиотеки
// с полным именем pName (в имени можно указать и путь)
begin
var f:file of LibBook;
Rewrite(f,pName);
Result:=f;
f.Close
end;

procedure Insert(pLib:LibBook);
// Добавляет книгу в базу
begin
var n:=FileSize(gf);
Seek(gf,n);
Write(gf,pLib);
end;

procedure BookWrite(pn:integer;pLib:LibBook);
// вывод книги номер pn
begin
Writeln('*** Книга №',pn,' ***');
if pLib.Deleted=False then begin
    Writeln('Название: ',pLib.Book);
    Writeln('Автор: ',pLib.Author);
    Writeln('Издатель: ',pLib.Publisher);
    Writeln('Год выпуска: ',pLib.PubYear);
    Writeln('Город: ',pLib.City);
    end
else Writeln('=== У Д А Л Е Н А ===');
Writeln
end;

procedure View(pKol:integer:=0);
// Отображает содержимое библиотеки.
// Можно вывести не все, а только pKol первых записей
begin
var nB:=FileSize(gf);
if nb=0 then Writeln('Библиотека пустая')
else begin
    Seek(gf,0);
    Writeln('Книг в библиотеке: ',nB,NewLine);
    if pKol<>0 then nB:=min(pKol,nb);
    var Lib:LibBook;
    for var i:=1 to nB do begin
      Read(gf,Lib);
      BookWrite(i,Lib)
      end
    end
end;

function Delete(pNom:integer):boolean;
// Удаляет книгу с номером pNom и возвращает true.
// Возвращает false, если такой книги нет
begin
var nB:=FileSize(gf);
var Lib:LibBook;
if pNom-1>nB then begin
    Writeln('Книга №',pNom,' не найдена');
    Result:=False
    end
else begin
    Seek(gf,pNom-1);
    Read(gf,Lib);
    Lib.Deleted:=True;
    Seek(gf,pNom-1);
    Write(gf,Lib);
    Writeln('Книга №',pNom,' удалена');
    Result:=True
    end;
end;

procedure Find(ps:string);
// поиск книги по параметрам, заданным строкой
// Формат <код> пробел <значение>
begin
var n:=Ord(ps[1])-Ord('0');
Delete(ps,1,2);
var par:=ps;
var Lib:LibBook;
case n of
0:begin // по номеру книги
      var nb:=FileSize(gf);
      var fn:=par.ToInteger;
      if fn-1>nb then Writeln('Книги с таким номером нет')
      else begin
        Seek(gf,fn-1);
        Read(gf,Lib);
        BookWrite(fn,Lib)
        end
    end;
1:begin // по названию книги
      var nl:=par.Length; // для контекстного поиска
      Seek(gf,0);
      var i:=1;
      while not Eof(gf) do begin
        Read(gf,Lib);
        if Copy(Lib.Book,1,nl)=par then begin
          BookWrite(i,Lib); Exit
          end
        else Inc(i)
        end;
        Writeln('Поиск по названию книги ',par,' неуспешен')
    end;
2:begin // по автору книги
      var nl:=par.Length; // для контекстного поиска
      Seek(gf,0);
      var i:=1;
      while not Eof(gf) do begin
        Read(gf,Lib);
        if Copy(Lib.Author,1,nl)=par then begin
          BookWrite(i,Lib); Exit
          end
        else Inc(i)
        end;
        Writeln('Поиск по автору книги ',par,' неуспешен')
    end;
3:begin // по издательству
      var nl:=par.Length; // для контекстного поиска
      Seek(gf,0);
      var i:=1;
      while not Eof(gf) do begin
        Read(gf,Lib);
        if Copy(Lib.Publisher,1,nl)=par then begin
          BookWrite(i,Lib); Exit
          end
        else Inc(i)
        end;
        Writeln('Поиск по издательству книги ',par,' неуспешен')
    end;
4:begin // по году выпуска
      Seek(gf,0);
      var i:=1;
      var ipar:=par.ToInteger;
      while not Eof(gf) do begin
        Read(gf,Lib);
        if Lib.PubYear=ipar then begin
          BookWrite(i,Lib); Exit
          end
        else Inc(i)
        end;
        Writeln('Поиск по году издания ',par,' неуспешен')
    end;
5:begin // по городу
      var nl:=par.Length; // для контекстного поиска
      Seek(gf,0);
      var i:=1;
      while not Eof(gf) do begin
        Read(gf,Lib);
        if Copy(Lib.City,1,nl)=par then begin
          BookWrite(i,Lib); Exit
          end
        else Inc(i)
        end;
        Writeln('Поиск по городу ',par,' неуспешен')
    end;
else Writeln('Неверная строка поиска')
end
end;

const LibName='MyLib.lib';
begin
var MyBook:LibBook;
gf:=Create(LibName);
Reset(gf,LibName);
With MyBook do begin
    Book:='Первый учебник';
    Author:='Первый автор';
    Publisher:='Издательство 1';
    PubYear:=2010;;
    City:='Город 1'
    end;
Insert(MyBook);
With MyBook do begin
    Book:='Второй учебник';
    Author:='Второй автор';
    Publisher:='Издательство 2';
    PubYear:=2012;;
    City:='Город 2'
    end;
Insert(MyBook);
With MyBook do begin
    Book:='Третий учебник';
    Author:='Третий автор';
    Publisher:='Издательство 3';
    PubYear:=2006;;
    City:='Город 3'
    end;
Insert(MyBook);
View;
Delete(2);
View;
Find('0 3');
Find('1 Перв');
Find('2 Тре');
Find('3 Издательство 2');
Find('4 2006');
gf.Close
end.

4,4(61 оценок)

Это интересно:

Кулинария-и-гостеприимство

23.06.2020

Как заварить Кунг фу чай - лучший способ насладиться вкусом восточного чая...

Дом-и-сад

10.09.2020

Как установить в доме камеры наблюдения для системы безопасности...

Здоровье

12.11.2020

Молочница: Причины, проявления и лечение в домашних условиях...

Мир-работы