Дана арифметическая прогрессии 2, 6, 10, записать пронрамму опрлеления номера первого члена прогрессии, превысившего заданное число в. вывести искомый номер и все члены прогрессии.
var count,a,b:integer; begin readln(b); count:=1; a:=2; repeat write(a:5); a:=a+4; count:=count+1; until a>b; writeln(a:5); writeln('Номер следующего члена прогреммии ',count); end.
uses Crt; const nn=1000; var i,n,mn:integer; a:array[1..nn] of integer; begin Randomize; ClrScr; Write('n='); Read(n); mn:=1000; for i:=1 to n do begin a[i]:=Random(199)-99; Write(a[i],' '); if a[i]<mn then mn:=a[i] end; Writeln; Writeln('Наим. элемент ',mn); ReadKey end.
uses Crt; var i,n,mn:integer; a:array of integer; begin Randomize; ClrScr; Write('n='); Read(n); SetLength(a,n); mn:=1000; for i:=0 to n-1 do begin a[i]:=Random(199)-99; Write(a[i],' '); if a[i]<mn then mn:=a[i] end; Writeln; Writeln('Наим. элемент ',mn); ReadKey end.
Выполнение приведено во вложении 2
// 3. PascalABC.NET 3.2, 2016г., современное решение
begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println; Writeln('Наим. элемент ',a.Min) end.
Выполнение приведено во вложении 3.
Сделать выводы каждый может сам...
Примечание: все решения сделаны в среде PascalABC.NET 3.2, который для уровня школьных задач можно считать совместимым на уровне исходного текста с вышеприведенными версиями паскалей.
Function ST(a,b,c:real):real; var p:real; begin p:=(a+b+c)/2; ST:=sqrt(p*(p-a)*(p-b)*(p-c)) end;
var a,s:array[1..3] of real; i,k:integer; begin Write('Введите длину стороны каждого треугольника: '); for i:=1 to 3 do begin Read(a[i]); s[i]:=ST(a[i],a[i],a[i]); end; if s[1]>s[2] then k:=1 else k:=2; if s[3]>s[k] then k:=3; Writeln('Треугольник номер ',k,' имеет наибольшую площадь') end.
Пример Введите длину стороны каждого треугольника: 6 7.3 4.18 Треугольник номер 2 имеет наибольшую площадь
var count,a,b:integer;
begin
readln(b);
count:=1;
a:=2;
repeat
write(a:5);
a:=a+4;
count:=count+1;
until a>b;
writeln(a:5);
writeln('Номер следующего члена прогреммии ',count);
end.