2. Запишите значения элементов массива, сформированного следующим образом: For i:=1 to 11 do a [i] :=i*i+ 3; Var k, m: integer; Dat: array [1..10] of integer; 3. В таблицe Dat хранятся данные Begin измерений среднесуточной Dat [1]:= 12; Dat [2] := 15; температуры за 10 дней в градусах Dat [3] = 17; Dat [4]:= 15; (Dat [1] — данные за первый день, Dat [5]= 14; Dat [6] := 12; Dat [2] за второй и т.д.). Dat [7]:= 10; Dat [8] := 13; Определите какую задачу решает Dat [9] := 14; Dat [10] := 15; программа. Что будет выведено на m:= 0; экран После Выполнения for k:=1 to 10 do программы? if Dat [k]=15 then m:=m+ 1; writeln (m); End. .
A,b,c - стороны прямоугольного треугольника; d - радиус описанной окружности около прям. треуг. e - длинна окружности описанной около прямоуг. треугольника;
var a,b,c,d,e:Real; begin writeln ('Введите (через пробел) 2 катета прямоугольного треугольника: '); readln (a,b); //вводим 2 катета c:=SQRT((a*a)+(b*b)); //находим 3 сторону (гипотенузу) d:=0.5*c; //радиус описанной окружности около прям. треуг e:=2*3.14*d; //теперь находим длину окружности описанной около прям. треуг. writeln ('Длина окружности описанной около прямоугольного треугольника = ',e); end.
P.S. то что после // - это комментарий (в паскале он будет выделен другим цветом), это для того что бы было понятно, что сейчас делаем, если комментарии не нужны - их можно удалить, на правильность работы программы это никак не повлияет
![2. Запишите значения элементов массива, сформированного следующим образом: For i:=1 to 11 do a [i] :](/tpl/images/4132/4586/f72a9.jpg)
1.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin;
const
n = 4;
type
TFormT = class(TForm)
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
b: array[0..n-1, 0..n-1] of integer;
procedure FillArray;
public
end;
var
FormT: TFormT;
implementation
{$R *.dfm}
{ TForm2 }
procedure TFormT.Button1Click(Sender: TObject);
begin
memo1.Clear;
Label1.Caption := '';
FillArray;
end;
procedure TFormT.FillArray;
var
i, j, S : Integer;
P : Longint;
st : string;
begin
randomize;
P:=1;
S:=0;
for i:=0 to n-1 do begin
st:='';
for j:=0 to n-1 do begin
b[i, j]:= 1+ Random(10);
st := st + format('%2d ',[b[i, j]]);
if b[i, j] mod 2 <> 0 then begin
P := P * b[i, j];
S := S + b[i, j];
end;
end;
Memo1.Lines.Add(st);
end;
Label1.Caption :='Произведение=' + inttostr(p) +' Сумма=' + inttostr(s);
end;
end.