Санның коды берілген).
2-мысал негізінде «Санның үлкені» тақырыбында жоба жұмы-
if max <b then max:=b;
if max <c then max:=C;
4.32-сурет. Модульдік ортадағы
TM-
wоні .
ен-
ген
Практикалық жұмыс
IH
№ 1- тапсырма
да
р-
га
сын жасаңдар.
а
yar a, B, C, max: integer;
begin
readln (a, , c);
max:=a;
procedure TForm1.
Button1Click(Sender: TObject);
var a,b,c, max:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
C:=StrToInt(edit3.text);
max:=a;
if max <b then max:=b;
if max < c then max:=c;
edit4.text:=IntToStr(max);
writeln(max);
end.
end; ;
4.33-сурет. Визуалды ортадағы
программа коды
программа коды
// PascalABC.NET 3.0, сборка 1076
begin
var n:=ReadInteger('Введите количество элементов массива: ');
var a:=ArrRandom(n,1000,10000);
Write('Исходный массив: ',a,#13#10);
Write('Множество цифр из разряда сотен: ');
a.Select(x->(x mod 1000) div 100).Sorted.Distinct.Println(',')
end.
Тестовое решение:
Введите количество элементов массива: 8
Исходный массив: [9374,4420,8856,8274,7555,2461,8302,6325]
Множество цифр из разряда сотен: 2,3,4,5,8
2. "Школьный вариант"
// PascalABC.NET 3.0, сборка 1076
var
i,n:integer;
sd:set of 0..9;
a:array[1..50] of integer;
begin
Write('Введите количество элементов массива: '); Read(n);
Randomize;
Write('Исходный массив: ');
sd:=[];
for i:=1 to n do begin
a[i]:=Random(9001)+1000;
Write(a[i],' ');
Include(sd,(a[i] mod 1000) div 100)
end;
Writeln;
Write('Множество цифр из разряда сотен: ');
for i:=0 to 9 do
if i in sd then Write(i:2);
Writeln
end.
Тестовое решение:
Введите количество элементов массива: 8
Исходный массив: 5332 4215 7231 3399 6989 8904 7804 3517
Множество цифр из разряда сотен: 2 3 5 8 9