12-вариант

Берілген топтағы фамилиялары бірдей студенттердің тізімін шығару.

Program m; uses crt; Const n=3;

Type struct=record

Name:string; Tname: string;

Godroj: integer; End;

Var a:array [1..n] of struct;

M:string, I,j,k,b:integer; Begin

For i:=1 to n do Begin

Write(‘studenttin_ati:’);Readln(a[i].name);

Write(‘top_ati:’);Readln(a[i].tname);

Write(‘studenttin tugan jili:’); Readln(a[i].godroj]; Writeln;end;

Writeln(‘topti_engiz’);Readln(m);

For i:=1 to n do For j:=i+1 to n do

If (a[i].tname=m) and (a[i].name=a[j].name)

Then begin Writeln(‘’, a[i].name,’’,a[i .tname,’’, a[i].godroj);

Writeln(‘’,a[j].name,’’,a[j].tname,’’,a[j].godroj); End;End.

15-вариант

Автомобиль туралы мәлімет берілген.Экранға автомобиль бағасын

Өсу реті бойынша шығару.

Program saken; Const n=10;

Type automobile=record

Fio:string Bagasi:integer;

Marka:string; Nomer: integer; End; Var auto:array[1..n] of automobile;

I,j:integer;C:automobile; Begin

For i:=1 to n do With auto[i] do

Begin Readln(fio); readln(bagasi);

Readln(marka); readln(nomer); End;

For i:=1 to n-1 do For j:=i+1 to n do

If auto[i].bagasi>auto[j].bagasi then

Begin

C:=auto[i]; Auto[i]:=auto[j]; Auto[j]:=c;

End; For i:=1 to n do With auto[i] do

Begin Writeln(fio); Writeln(bagasi);Writeln(marka);

Writeln(nomer); End;End.

14-вариант

Автомобильдер туралы мәлімет берілген.Йесінін аты-жөні,бағасы,автомоб-ң маркасы мен номері.

Program saken; uses crt;

Const n=3;

Type auto=record

Fio:string; Baga:integer;

Mar:string; Nomer:integer; End;

Var a:array [1..n] of auto;

I,j:integer; marka:string; c:auto

Begin For i:=1 to n do

With a[i] do

Begin writeln(‘’.i,’-malimetti engiz’);

Writeln(‘fio-‘);Readln(fio);

Writeln(‘baga-‘);Readln(baga);

Writeln(‘marka=’);Readln(mar);

Writeln(‘nomer-‘);Readln(nomer);

Writeln(‘-------‘); end;

Writeln(‘marka engizy’); readln(marka);

Writeln(‘Вывод’); For i:=1 to n do

With a[i] do If pos(marka,mar)<>0 thеn

Writeln(fio:25, baga:10, marka:20, nom:5);

End.

17-вариант

Жыл мезгілдері туралы мәлімет берілген.Әр мезгіл ол,күн,ай,жыл.Жыл мезгілдеріне сай уақытты шағару(көктем,жаз т.Б)

Program saken; Const n=3;

Type struct=record;

Kun:integer Ai:integer; Jil:integer;

Var a:array [1..n] of struct;

I,j,k,b, koktem,zhaz,kuz,kis:integer;

Begin For i:=1 to n do Begin

Writeln(‘datani engiz’);

Write(‘kun-‘);Read(a[i].kun);

Write(‘ai-‘);Read(a[i].ai);

Write(‘jil-‘);Read(a[i].jil);

Writeln; end;

If (a[i].kun<=31) then

For i:=1 to n do

If (a[i].ai>=3) and (a[i].ai<6) then

Begin Koktem:=a[i].ai;

Writeln(‘’,koktem,’’,a[i].kun,’’,a[i].jil);

End;For i:=1 to n do

If (a[i].ai>=6) and (a[i].ai<9) then

Begin Zhaz:=a[i].ai;

Writeln(‘’,zhaza[i].kun,’’,,a[i].jil);

End; For i:=1 to n do

If (a[i].ai>=9) and (a[i].ai<12) then

Begin Kuz:=a[i].ai;

Writeln(‘’,kuz,’’,a[i].kun,’’,a[i].jil);

End;

For i:=1 to n do

If (a[i].ai>=1) and (a[i].ai<3) and

(a[i].ai<12) then Begin Kis:=a[i].ai;

Writeln(‘’,kis,’’a[i].kun,’’,a[i].jil);

End;End.