Re Үй тапсырмасы
Роботтехникамен айналысатын әрбір адам геометриялық фигура-
лардың қасиеттерін жақсы білуі керек. Төменде берілген тақырып
бойынша интернеттен ақпарат ізде. Берілген сұрақтар бойынша
3-слайдтан тұратын презентация дайында.
Тақырып
Ақпараттық ізденіс жасайтын тақырыптар
Геометриялық
фигуралардың
ерекшеліктері

Тең қабырғалы ұшбұрыштың қасиеттері
Шаршының қасиеттері
Алтыбұрыштың қасиеттері
Шеңберді градуспен өрнектеу
Шеңбердің ұзындығын есептеу
ДАМ ЛУЧШИЙ ОТВЕТ)

Re Үй тапсырмасы Роботтехникамен айналысатын әрбір адам геометриялық фигура- лардың қасиеттерін жақс

👇

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

Ответ:

angelinalitvine

01.08.2020

Задачки такого типа не имеют однозначного решения, можно предложить нескольео вариантов и все они будут правильные. Слишком мало членов дано.

Вот мои версии.

а. 1; 3; 6; 4; 11; 5; 16; 6 (на нечётных местах всё время +5, на чётных +1)

б. 9; 7; 10; 4; 11; 1; 12; -2; ... (на нечётных +1, на чётных -3)

в. 3; 2; 1; 6; 5; 4; 9; 8; 7; 12; 11; 10... (тройки n;n-1;n-2; первое число тройки - последовательные числа, кратные 3)

Могу предложить ещё несколько ДРУГИХ вариантов продолжения последовательностей и все они, повторюсь, будут ПРАВИЛЬНЫМИ.

Одно только замечание: ВСЕГДА нужно указывать алгоритм или формулу, по которой последовательность строится(продолжается).

4,5(70 оценок)

Ответ:

Zenkinadasha

01.08.2020

Type
tR = real;
tF = file of tR;

procedure SwapFile(fn1, fn2: string);
var
r: tR;
fin, fout: tF;
begin
Assign(fin, fn1); Reset(fin);
Assign(fout, fn2); Rewrite(fout);
while (not Eof(fin)) do begin Read(fin, r); Write(fout, r) end;
Close(fin); Close(fout)
end;

var
f1, f2, f3, f4, f5, fh: string;

begin
f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
f4 := 'f4.bin'; f5 := 'f5.bin'; fh := 'tmp.bin';
{ f2 <-> f4 }
SwapFile(f2, fh); SwapFile(f4, f2); SwapFile(fh, f4);
{ f5->h, f3->f5, f1->f3, h->f1 }
SwapFile(f5, fh); SwapFile(f3, f5); SwapFile(f1, f3); SwapFile(fh, f1)
end.

Для тестирования
Можно создать тестовые файлы с следующей программы:
type
tR = real;
tF = file of tR;

procedure WF(fn: string; m, n: integer);
var
fout: tF;
i: integer;
begin
Assign(fout, fn); Rewrite(fout);
for i := m to n do Write(fout, i / 2);
Close(fout)
end;

var
f1, f2, f3, f4, f5: string;

begin
f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
f4 := 'f4.bin'; f5 := 'f5.bin';
WF(f1, 3, 7); WF(f2, 11, 19); WF(f3, -6, 9); WF(f4, 0, 11); WF(f5, 14, 22);
end.

Далее можно просмотреть содержимое созданных файлов с следующей программы:
type
tR = real;
tF = file of tR;

procedure WF(fn: string);
var
fin: tF;
r: tR;
begin
Writeln(fn);
Assign(fin, fn); Reset(fin);
while (not Eof(fin)) do
begin Read(fin, r); Write(r:0:1, ' ') end;
Writeln;
Close(fin)
end;

var
f1, f2, f3, f4, f5: string;

begin
f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
f4 := 'f4.bin'; f5 := 'f5.bin';
WF(f1); WF(f2); WF(f3); WF(f4); WF(f5)
end.

Затем выполнить основную программу по перезаписи и снова запустить программу для просмотра обновленнных файлов.

4,7(22 оценок)

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

Стиль-и-уход-за-собой

29.07.2020

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

Стиль-и-уход-за-собой

13.07.2021

Как правильно мыть волосы: советы от профессионалов...

Дом-и-сад

11.07.2020

Как быстро и эффективно очистить вентиляционное отверстие для сушилки одежды?...

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