Program sport;
label 1,2,3,4;
var a: integer; s : string[16];
begin
write(‘sportchi nechanchi urinn oldi?’);
readln(a);
s ’sportchi medal olmagan’
case a of
1: s ’oltin’;
2: s ’kumush’;
3: s ’bronza’;
end;
writeln(s)
end.
Бу дастур учун компьютер қуйдаги натижаларни беради:
sportchi nechanchi urinn oldi? 5
sportchi m,edal olmagan
sportchi nechanchi urinn oldi?1
oltin
2-ТОПШИРИҚ. Турбо Паскалда шарти кейин берилувчи операторларидан фойдаланиб мустақил дастур тузинг.
3-ТОПШИРИҚ. Масалалар учун тузилган дастурларнинг алгоритмини тузинг.
№
|
Топшириқлар бўйича бажарилган ишларнинг қисқа:
|
Топшириқлар бўйича олинган натижалар баёни:
|
1
|
|
|
2
|
|
|
3
|
|
|
Бажарди: ___________________
Қабул қилди __________________________
Do'stlaringiz bilan baham: |