климат 1. создайте таблицу размером 9 × 5. 2. преобразуйте таблицу к следующему виду : (файл будет прикреплен) 3. занесите в таблицу следующую информацию, представленную в текстовой форме (информация за 2004 г.): в марий-эл количество осадков в июле составило 79 мм. в пермской области средняя температура в июле была +18 град. в красноярском крае средняя температура в январе была –18 град. в московской области количество осадков в январе составило 45 мм. в оренбургской области средняя температура в январе была –11 град. в удмуртии количество осадков в июле составило 61 мм. в марий эл количество осадков в январе составило 26 мм. в оренбургской области средняя температура в июле была +21 град. в красноярском крае количество осадков в июле составило 55 мм. в оренбургской области количество осадков в январе составило 35 мм. в пермской области количество осадков в январе составило 52 мм. в марий эл средняя температура в январе была –10 град. в оренбургской области количество осадков в июле составило 89 мм. в московской области средняя температура в июле была +20 град. в удмуртии средняя температура в январе была –13 град. в красноярском крае количество осадков в январе составило 36 мм. в удмуртии средняя температура в июле была +19 град. в московской области количество осадков в июле составило 66 мм. в удмуртии количество осадков в январе составило 41 мм. в пермской области количество осадков в июле составило 45 мм. в марий эл средняя температура в июле была +20 град. в красноярском крае средняя температура в июле была +17 град. в пермской области средняя температура в январе была –14 град. в московской области средняя температура в январе была –8 град. 4. сохраните таблицу в личной папке под именем климат.

👇

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

Ответ:

Vlados22fhgff

01.06.2020

Program znanija;
const
PRICE_ONE_DISK = 10;
PRICE_TEN_DISK = 90;
EMPTY = 0;
INPUT_MONEY = 'Введите количество денег: ';
OUTPUT_PRICE = 'Купленно: ';
OUTPUT_ONE_DISK = ' - по одному диску';
OUTPUT_TEN_DISK = ' - по десять дисков';
OUTPUT_MANEY = 'Осталось денег: ';
CHAR_TABS = Chr(9);
var
sumMoney : integer;
countOneDisk : integer := 0;
countTenDisk : integer := 0;
begin
write(INPUT_MONEY);
read(sumMoney);

while((sumMoney - PRICE_TEN_DISK) >= EMPTY) do
begin
    inc(countTenDisk);
    sumMoney := sumMoney - PRICE_TEN_DISK;
end;

while((sumMoney - PRICE_ONE_DISK) >= EMPTY) do
begin
    inc(countOneDisk);
    sumMoney := sumMoney - PRICE_ONE_DISK;
end;

writeln(OUTPUT_PRICE);
writeln(CHAR_TABS, countTenDisk, OUTPUT_TEN_DISK);
writeln(CHAR_TABS, countOneDisk, OUTPUT_ONE_DISK);
writeln(OUTPUT_MANEY, sumMoney);
end.

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

Ответ:

володия

01.06.2020

Опишем формальную грамматику для разбора входной строки.
<символ> ::= <буква> | <знак>
<буква> ::= 'a' | 'b' | 'c' | ... | 'y' | 'z'
<знак> ::= '+' | '-'
<терм> ::= <буква> [ <терм> ]
<операнд> ::= [ <знак> ] <терм>
<строка> ::= <операнд> [ <операнд> ]

Ниже приведена программа на языке Pascal.ABC, реализующая разбор входной строки и её упрощение по правилам приведения подобных членов.

const
n = 30; {максимальное количество операндов, я так захотел!}
pm = ['+', '-']; {символы <знак>}
letter = ['a'..'z'];{символы <буква>}

type
tOper = record
    sgn: integer;
    vars: string
end;
tM = array[1..n] of tOper;
taSort = array[1..n] of string;{для сортировки}

var
s: string;
l, p: integer;
symb: set of char;

procedure GetSymbol(var c: string);
{
Сканирует строку s с позиции p и возвращает элемент <символ>
Продвигает курсор p к первому необработанному символу строки s
}
var
found: boolean;

begin
found := false;
c := '';
while (p <= l) and (not found) do
begin
    if s[p] in symb then begin
      found := true;
      c := s[p]
    end;
    p := p + 1
end
end;

procedure Sort(var a: taSort; kol: integer);
{Сортировка вставкой}
var
i, j: integer;
x: string;
flag: boolean;
begin
for i := 2 to kol do
begin
    x := a[i];
    j := i - 1;
    flag := False;
    while (j > 0) and (not flag) do
      if x < a[j] then
      begin
        a[j + 1] := a[j];
        j := j - 1
      end
      else flag := True;
    a[j + 1] := x
end
end;

function GetSign(c: char): integer;
begin
case c of
    '+': Result := 1;
    '-': Result := -1;
else Result := 0
end
end;

procedure GetOper(var oper: tOper);
{
Строит элемент <операнд> максимально возможной длины и упорядочивает
составляющие его символы в лексикографическом порядке.
Если операнд построить невозможно, в oper.vars помещается пустая строка.
Процедура обращается к процедурам GetSymbol и Sort.
}
var
i, n: integer;
c, c1: string;
ExitFlag: boolean;
a: taSort;

begin
c := '';
ExitFlag := false;
GetSymbol(c1); {попытаемся получить знак}
if c1[1] in pm then oper.sgn := GetSign(c1[1])
else begin
    oper.sgn := 1;
    c := c1
end;
repeat
    GetSymbol(c1);
    if c1 = '' then ExitFlag := true
    else if c1[1] in pm then begin
      p := p - 1;
      ExitFlag := true
    end
    else
      c := c + c1
until ExitFlag;
if c <> '' then
begin
    n := Length(c);
    for i := 1 to n do a[i] := c[i];
    Sort(a, n);
    c := '';
    for i := 1 to n do c := c + a[i];
    oper.vars := c
end
else oper.vars := ''
end;

procedure Add2M(var a: tM; c: tOper; var pn: integer);
{
Ищет среди элементов массива a.vars элемент, совпадающий с с.vars.
При нахождении алгебраически добавляет c.sgn к a[i].sgn, в противном случае
добавляет в массив новый элемент a[i], увеличивая pn на 1.
При вызове pn - количество элементов в массиве.
}
var
i: integer;
c1: string;
found: boolean;

begin
c1 := c.vars;
i := 1;
while (i <= pn) and (not found) do
begin
    found := (c1 = a[i].vars);
    if found then a[i].sgn := a[i].sgn + c.sgn
    else i := i + 1
end;
if not found then begin
    a[i].sgn := c.sgn;
    a[i].vars := c1;
    pn := pn + 1
end
end;

function Convert(k: integer): string;
begin
case k of
    -1: Result := '-';
    0: Result := '';
    1: Result := '+';
else begin
      Str( k, Result);
      if k > 0 then Result := '+' + Result
    end
end
end;

var
c, cz: string;
n1, i: integer;
opr: tOper;
a: tM;

begin
symb := pm + letter;
p := 1;
n1 := 0;
writeln('Введите исходное выражение');
readln(s);
s := LowerCase(s); {перевод символов в нижний регистр}
l := Length(s);
repeat
    GetOper(opr);
    Add2M(a, opr, n1)
until p > l;
if n1 > 0 then
begin
    cz := Convert(a[1].sgn);
    if cz = '+' then cz := '';
    if cz = '' then c := ''
    else c := cz + a[1].vars;
    for i := 2 to n1 do
    begin
      cz := Convert(a[i].sgn);
      if cz <> '' then c := c + cz + a[i].vars
    end
end
else c := '';
if c='' then c:='0';
if c[1]='+' then c:=copy(c,2,Length(c)-1);
writeln('Результат: ', c)
end.

Тестовое решение:

Введите исходное выражение
abc +    a+bca -acb+abc+abc +a
Результат: 3abc+2a

Введите исходное выражение
ab-bca+bc+cba+abc-ba+cba+da+adb+bad-db
Результат: 2abc+bc+ad+2abd-bd

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

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

Компьютеры-и-электроника

30.09.2020

Как заглушить беспроводную сеть: 5 способов защиты вашей Wi-Fi сети...

Финансы-и-бизнес

11.03.2020

Как создать инвестиционный план: шаг за шагом...

Хобби-и-рукоделие

20.03.2023

Легко создайте панно воспоминаний с помощью этих простых шагов...

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