си10
04.07.2020 16:16

По информатике 1 выразите пятью двойками число 1111.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
gusaka
23.11.2021 12:09

Объяснение нужны ответы Какие из записей являются верно записанными формулами в электронных таблицах?

1)== C2 + C8

2)?C1 + D1 * D2

3)D100 * D1 =

4)!= A1 + B5

5)=F1 + A1 * A2

6)!!B1 - C3

№2

Прикрепил фото с заданием

№3

В Openoffice.org Calc создали таблицу, заполнив ее ячейки так, как показано на рисунке. Какое число будет находиться в ячейке C1 после того, как будет нажата клавиша Enter?

Комментарий. Если у вас русскоязычная версия электронных таблиц, нужно считать, что вместо IF записано ЕСЛИ.

№4

В электронную таблицу занесли результаты тестирования учащихся по русскому языку и математике. На рисунке приведены первые строки получившейся таблицы.

В столбце A указаны фамилия и имя учащегося; в столбце B – район города, в котором расположена школа учащегося; в столбцах C, D – баллы, полученные соответственно по русскому языку и математике. По каждому предмету можно было набрать от 0 до 100 баллов.

Всего в электронную таблицу были занесены данные по 263 учащимся. Порядок записей в таблице произвольный. Откройте файл с данной электронной таблицей: /uploads/inner_file/file/9768/table2.xls. На основании данных, содержащихся в этой таблице, ответьте на во чему равна наименьшая сумма баллов по двум предметам среди учащихся Заречного района?

№5

Прикрепил фото с заданием

№7

прикрепил фото с заданием

0,0(0 оценок)
Ответ:
xgvhhdhs
18.10.2020 18:46

var G,F:file of integer;

   i,j,n:integer;

   s:integer;

   c,c1,c2:integer;

begin

writeln;

write('Vvedite n:');

readln(n);

Assign(G,'C:\g.txt');

Assign(F,'C:\f.txt');

Rewrite(F);

for i:=1 to n do

begin

c1:=1;

c2:=1;

for j:=1 to i+1 do begin

if j<i+1 then c1:=c1*2;

c2:=c2*3;

end;

c:=c1+c2;

write(F,c);

end;

Close(F);

Reset(F);

Rewrite(G);

s:=0;

while not Eof(f) do

begin

read(F,c);

if c>0 then c:=c*(-1);

write(G,c);

s:=s+c;

end;

write(G,s);

close(F);

close(G);

reset(G);

writeln('Komponenty fajla j:');

while not Eof(G) do

begin

read(G,c);

write(c);

end;

readln;

end.

Приклад.Виведення таблиці значень функції у файл.

Програма:

program file_of_values;

var

х : Real;

k : Word;

out_file : Text; {тип Text відповідає файлу. що складається із рядків тексту}

function F(x: Real): Real;  

begin

F := x/d.O + x);  

end;

begin

Assign(out_file, 'c:\user\ivanov\table.dat');

Rewrite(out_file);

x := 0.0;

WriteLn(out_file, 'Таблиця значень функції F(x) = x/(l + x)');

WriteLn(out_file);

WriteLn(out_file, 'x':9, 'F(x)':19);

WriteLn(out_file);

for k := 0 to 50 do  

begin

WriteLn(out_file, x:9:3, F(x):19:9);

x := x + 0.1:

if k mod 10 = 9 then WriteLn(out_file);  

end;

Close(out_file);  

end.

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