2. В ячейках электронной таблицы записаны значения: A1=1, A2=4, B1=2 и В2=3. Какое число получится при вычислении по формулам а) =А1+A2/B1+в2 б) = (A1+А2) / (B1+B2) Почему результаты различаются? Место для ввода текста. 3. Какую формулу нужно записать в ячейку D1 электронной таблицы, чтобы вычислить зна- чение выражения А1 + B1 В2 а) D1 = А1 1+C2 т в1 б) D1 = А1 + с2 1+ 1+C3 4. Автомобиль сначала проехал 120 км за 2 часа, а потом ещё 170 км за 3 часа. Найти среднюю скорость автомобиля. Как вычислить среднюю скорость на всём маршруте в этой задаче? Место для ввода текста. Обозначьте расстояния на первом и втором участке как Si и S2, а время движения на этих участках – как ti и 12. Запишите («в буквах») формулу, по которой нужно вычислять среднюю скорость на всём маршруте: Vcp = Что получится, если найти среднюю скорость отдельно для каждого перегона, а потом найти среднее арифметическое из этих скоростей? уі = VI = Vcp = Верный ли это ответ к задаче? 5. В каких ячейках таблицы записаны значения расстояния и времени движения на первом и втором участке? A В С D 1-й участок: 1 Расстоя- 120 170 расстояние время Ние 2-й участок: 2 Время 2 3 расстояние время 3 Скорость Какую формулу нужно записать в ячейку сз для того, чтобы найти среднюю скорость движе. ния на всём пути?
Procedure TForm1.Button1Click(Sender: TObject); var i1,i2,i3 : Integer; kk : Integer; Chislo : Integer; begin Memo1.Clear; kk := 0; for i1 := 1 to 9 do for i2 := 0 to 9 do for i3 := 0 to 9 do if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then if ( Frac((i1+i2+i3)/7)=0 ) then begin Chislo := i1*100 + i2*10 + i3; if ( Frac(Chislo/7)=0 ) then begin Memo1.Lines.Append(inttostr(Chislo)); inc(kk); end; end; end;
//Pascal ABC.NET Версия 2.2 Сборка 790 var ma:array[1..10,1..10] of integer; ar:array[1..10] of integer; i,j,s:integer; begin; randomize; writeln('Matrix:'); for i:=1 to 10 do begin; writeln; for j:=1 to 10 do begin; ma[i,j]:=random(-10,10); write(ma[i,j]:5); if ma[i,j]<0 then ar[i]+=ma[i,j]; end; end; writeln; writeln('Final array:'); for i:=1 to 10 do writeln(ar[i]); end.
