katmik04
27.07.2022 07:48

1. Что такое электронные таблицы, для чего они предназначены

2. Что можно записывать в ячейки электронной таблицы

3. Какой будет содержимое B2, если в неё скопировать формулу “=A1+$B1” из ячейки A2

4. Какую логическую функцию надо использовать в формуле, что бы получить результат зависящий от содержимого(значения) других ячеек

5. Что такое математическая модель и как ее построить в электронных таблицах

6. Чем отличается график от диаграммы

7. Как построить диаграмму или график по данным электронной таблицы

8. Напишите формулу для нахождения среднего значения в диапазоне ячеек от A1 до F10

9. Постройте таблицу для расчета температуры кипения воды в зависимости от атмосферного давления, если известно, что Т=179,47*P^0,24, где давление берётся в Мпа (в пределах от 0,1 МПа до 22 МПа). Нормальное давление 760 мм рт. ст. (или 1 атм)= 101325Па. Постройте график изменения температуры кипения от 100000Па до 200000Па.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Snoowker
13.06.2020 23:14
Uses GraphABC;
var tnk:array of Point;
begin
  Window.Title := 'Танк атакует';
  var y := 200;
  Brush.Color := clGreen;
  LockDrawing;
  tnk:=new Point[4];
  for var x := 70 to 500 do  begin
    Window.Clear(clWhite);
    Rectangle(x,y,x+100,y+50);
    Rectangle(x-25,y+50,x+125,y+75);
    tnk[0].X:=x-45;
    tnk[0].Y:=y+75;
    tnk[1].X:=x-30;
    tnk[1].Y:=y+120;
    tnk[2].X:=x+100;
    tnk[2].Y:=y+120;
    tnk[3].X:=x+145;
    tnk[3].Y:=y+75;
    Rectangle(x+100,y+10,x+225,y+25);
    FillPolygon(tnk);
    Redraw;
    Sleep(3);
  end;
end.
0,0(0 оценок)
Ответ:
торежан1
12.06.2020 00:28
//Pascal ABC.NET v3.0 сборка 1111

type
 ty=set of char;

Const
 t:ty=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'];

Var
 f:text;
 s:string;
 i,slo,ks:integer;
 k:real;
begin
 assign(f,'text.in');
 reset(f);
 while not Eof(f) do read(f,s);
 close(f);
 slo:=0;
 ks:=0;
 for i:=1 to length(s) do
 if s[i] in t then inc(slo) else
  begin;
   k:=k+slo;
   inc(ks);
   slo:=0;
  end;
 if s[length(s)] in t then
  begin;
   inc(ks);
   k:=k+slo;
  end;
 k:=k/ks;
 assign(f,'text.out');
 rewrite(f);
 write(f,k);
 close(f);
 end. 

Пример ввода(text.in):
SIMPLE text
Пример вывода(text.out):
5
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота