
- •Берілген топтағы фамилиялары бірдей студенттердің тізімін шығару.
- •Автомобильдер туралы мәлімет берілген.Йесінін аты-жөні,бағасы,автомоб-ң маркасы мен номері.
- •Жыл мезгілдері туралы мәлімет берілген.Әр мезгіл ол,күн,ай,жыл.Жыл мезгілдеріне сай уақытты шағару(көктем,жаз т.Б)
- •Атестация туралы мәлімет берілген.Студент аты-жөні,5 пәннің аты ж/е солардан алған баға.Барлық пәннен атистация алған студенттердің тізімін шығару.
- •Кітаптар туралы мәліметтер берілген.Фио автор,кітәптің аты,Баспаның аты,шыққан жылы,кітәпханаға келіп түскен жылы.Соңғы 5 жылда мир баспасынан шыққан кітәптардың тізімі.
- •Сессия туралы мәлімет берілген.Студенттің аты-жөні,пәннің аты мен әр пәннен алған бағалары.Жалпы балдың кемуі бойынша топ тізімін шығару.
- •Алдыңғы есептің шарты сақталады.Жалпы максимал балдан 2 балға ғана айырмашылығы бар студенттердің тізімін шығару.
- •Топ студенттері туралы мәліметтер берілген:аты-жөні,топ аты,студенттің туған жылы.Потоктағы фамилиялары бірдей студенттердің тізімін шығару.
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.