Спортлото ойыны

Мазмұны

Кіріспе 5

1. Құрылымды мәліметтер типі 7
1.1 Бір өлшемді массивтер 7
1.2. Массивтермен амалдар орындау 9
1.3. Массив элементтерімен амалдар орындау 9
1.4. Массив элементтерін енгізу және шығару 10
1.5 Массивтерді сұрыптау әдістері. 12
1.6. Ауыстырмалы сұрыптау («көпіршік» тәсілі) 12
1.7. Қойылымды сұрыптау 12
1.8. Таңдап алу арқылы сұрыптау 12
1.9. Екі өлшемді массивтер (матрица) 13

2. Спортлото ойыны 18

Қорытынды 19

Пайдаланылған әдебиеттер 21
Кіріспе
Спортлото ойыны адамдарға кеңінен танымал ойындардың бірі. Ойынның шарты бойынша 1-мен 36-ның арасындағы 5 санды адам енгізуі керек. Содан соң компьютер сол енгізілген 5 санды кездейсоқ ойлайды. Егер кездескен сандар болса сіздің ұтысыңыз есептеледі.
Теледидарларда көрсетілетін осы лотереялық ойында арнайы құрылғы кішкене шарларды кездейсоқ таңдап алады. Алдын ала таратылып берілген билеттерде жаңағы 5 санның кездескені болса, онда ұтыс еептеліп беріледі.
Бұл программаны қарапайым компьютерде ойнау үшін кішкене программа Паскаль тілінде жазылды. Жалпы Паскаль тілі программа құрушыларға өте ыңғайлы тіл. Оның логикалық құрылымы әр түрлі есептерді дәл шешуге көмегін тигізеді. Turbo Pascal тілін оқытып – үйретуден бастап, программалаудың қыр-сырын меңгертудің маңызы зор. Кез келген тілді үйрену оның алфавитінен басталады.
Turbo Pascal программалау тілінің де басқа тілдер сияқты, алфавиті бар. Программаның элементтерін жазуда қолдануға болатын символдар жиынтығын тілдін алфавиті дейміз.
Паскаль тілін 1970 жылы швейцарияның Цюрих қаласындағы жоғары техникалық училищесінің профессоры Никлаус Вирт ұсынған. Ол бұл тілді дүние жүзінде алғаш болып есептеу машинасын ойлап жасаған ұлы француз ғалымы Блез Паскальдің құрметімен атаған.
1979 жылы қабылданған стандартты Паскаль тілі басқа тілдерден қалыспайды. Сондықтан да қазіргі кезде Паскаль тілі кез-келген саладағы күрделі есептерді шешу үшін қолданады.
Қазіргі кездегі программалау тілінің арасында ең көп тараған тілдердің бірі Turbo Pascal универсалды программалау тілі. Бірақ оны жүйелік программаларда, транслятор, операциялық жүйелерді жазуда қолдану жақсы жетістіктер береді.
Паскаль тілін 1973 жылы швейцар математигі Никлаус Вирт жасап шығарады да, атақты француз математигі, физигі, философы және алғашқы есептеу машинасы - арифмометрді /1641/ жасаған Блез Паскальдің құрметіне "Паскаль" деп ат қойды.
Turbo Pascal тілінде жазылған программаның архитиктуралары әр түрлі компьютерлердің бірінен бірін ауыстыруға бір операциялық жүйенің екінші операторлық жүйеге ауыстыруға жеңіл. Сонымен қатар Turbo Pascal тіліндегі программалардың орындалу жылдамдығы біршама жоғары.
Turbo Pascal тілінің компиляторы қазіргі кездегі MSDOS, WINDOWS операциялық жүйеде жұмыс істей береді.
Паскаль тілін 1973 жылы швейцар математигі Никлаус Вирт жасап шығарады да, атақты француз математигі, физигі, философы және алғашқы есептеу машинасы - арифмометрді /1641/ жасаған Блез Паскальдің құрметіне "Паскаль" деп ат қойды.
Паскаль тілі оқып үйренуге жеңіл, түрлі салалық информациямен жұмыс істеуде нәтижелі болғандықтан, дүние жүзінде көп тараған тілдердің бірі болып табылады.
Паскаль тілі:
• алгоритм құрылымын сақтап құрылған;
• жоғары деңгейлі программалау тілдерінің жақсы қасиеттерін жинақтаған;
• қазіргі замандағы көптеген программалау тілдерінің негізі болып саналады;
Сондықтан бұл тілдің нақты ЭВМ - нің мүмкіндігіне байланысты бірнеше түрлері бар.
Біз өмір сүріп жатырған уақытымыз ақпараттық технологияның кеңінен даму кезі. Қазіргі кезде дүние жүзінде үш жүз миллионға жуық компьютер бар. Компьютер негізгі екі бөлікке бөлінеді: аппараттық бөлік және программалық бөлік. Компьютер программассыз ешқандай
Пайдаланылған әдебиеттер
1.Анохин.В.Е, Глинский.Я.Н, Ряжская.В.А ООО. “ДиаСофтЮп” 2001
2. Бурин.Е.А, Программирование на языке TURBO-PASCAL. Алматы 2000г .
3.Брябрин.В:М. “Программное обеспечение персональных ЭЕМ”. М “НАУКА”, 1990 г .
4. Гомцина.О.Л , Попов.И.И, ПартыкаГ.Л. Язык программирования
Москва Форум-Инфра –М 2008.
5. Култин.Н.Б, “ Программирование в TURBO PASCAL 7.0 и Delphi.” Санкт-Петербург.1997 год.
6. Климова.Л.М. PASCAL 7.0. Практическое программирование. Москва. 2000 год.
7. Марченко.А.И , Марченко.Л.А, TURBO PASCAL. Киев “Век+” 2000 год.
8. Немнюгин С:А Санк-Петербург “Питер” 2000 жыл
9. Перминов.О.Н “Язык программирования паскаль” - Москва “Радио и связь”, 1989.
        
        Мазмұны
Кіріспе 5
1. Құрылымды мәліметтер типі ... Бір ... ... ... ... амалдар орындау 9
1.3. Массив элементтерімен амалдар орындау ... ... ... ... және ... ... ... сұрыптау әдістері. 12
1.6. Ауыстырмалы ... ... ... ... ... сұрыптау 12
1.8. Таңдап алу ... ... ... Екі ... ... ... 13
2. Спортлото ойыны 18
Қорытынды 19
Пайдаланылған әдебиеттер ... ... ... ... ... ... ... Ойынның
шарты бойынша 1-мен 36-ның арасындағы 5 санды адам енгізуі керек. Содан соң
компьютер сол ... 5 ... ... ... Егер ... ... сіздің ұтысыңыз есептеледі.
Теледидарларда көрсетілетін осы лотереялық ойында арнайы құрылғы
кішкене шарларды кездейсоқ ... ... ... ала таратылып берілген
билеттерде жаңағы 5 санның кездескені болса, онда ұтыс еептеліп беріледі.
Бұл ... ... ... ... үшін ... ... ... жазылды. Жалпы Паскаль тілі ... ... ... тіл. Оның ... ... әр ... есептерді дәл шешуге көмегін
тигізеді. Turbo Pascal тілін оқытып – үйретуден бастап, программалаудың ... ... ... зор. Кез келген тілді үйрену оның алфавитінен
басталады.
Turbo Pascal ... ... де ... ... ... алфавиті
бар. Программаның элементтерін жазуда қолдануға болатын ... ... ... ... тілін 1970 жылы швейцарияның Цюрих қаласындағы жоғары
техникалық училищесінің профессоры Никлаус Вирт ... Ол бұл ... ... ... ... ... ... ойлап жасаған ұлы француз ғалымы Блез
Паскальдің құрметімен атаған.
1979 жылы қабылданған стандартты Паскаль тілі ... ... ... да ... ... Паскаль тілі кез-келген саладағы
күрделі есептерді шешу үшін қолданады.
Қазіргі кездегі программалау тілінің арасында ең көп ... бірі Turbo Pascal ... ... ... ... ... ... транслятор, операциялық жүйелерді жазуда қолдану
жақсы жетістіктер береді.
Паскаль тілін 1973 жылы ... ... ... ... ... да, ... ... математигі, физигі, ... ... ... ... - ... /1641/ жасаған Блез
Паскальдің ... ... деп ат ... Pascal ... ... программаның архитиктуралары әр түрлі
компьютерлердің бірінен бірін ауыстыруға бір ... ... ... жүйеге ауыстыруға жеңіл. Сонымен қатар Turbo Pascal ... ... ... ... жоғары.
Turbo Pascal тілінің компиляторы қазіргі кездегі MSDOS, WINDOWS
операциялық жүйеде жұмыс істей ... ... 1973 жылы ... ... ... Вирт
жасап шығарады да, ... ... ... ... ... ... есептеу машинасы - арифмометрді /1641/ жасаған Блез
Паскальдің ... ... деп ат ... тілі оқып ... ... ... ... жұмыс істеуде нәтижелі болғандықтан, дүние жүзінде
көп тараған ... бірі ... ... тілі:
• алгоритм құрылымын сақтап құрылған;
• жоғары ... ... ... ... жинақтаған;
• қазіргі замандағы ... ... ... ... ... бұл ... нақты ЭВМ - нің ... ... ... ... өмір сүріп жатырған уақытымыз ақпараттық технологияның кеңінен
даму кезі. Қазіргі кезде дүние жүзінде үш жүз ... жуық ... ... ... екі бөлікке бөлінеді: аппараттық бөлік және программалық
бөлік. Компьютер ... ... ... ... ... алмайды. Сондықтан компьютерлерге әртүрлі жұмыс ... ... ... ... ... ... содан кейін төменгі
дәрежелі программалау тілдерінде (Ассемблер) жазылды. Программаларды жазуды
оңайлату үшін жоғары дәрежелі программалау тілдері жазылды. ... ... ... ... Ада, Си т.с.с. Солардың ішінен кең тарағандарының
бірі Паскаль программалау тілі.
1. ... ... ... Бір ... ... саны ... ... бір типті индексті айнымалылардың
жиынтығын массив деп ... ... типі ... ... ... ... қолдану үшін, оларға белгілі бір ат беріледі.
Содан соң ... VAR ... TYPE ... ARRAY ... ... компьютердің жадынан массив элементтеріне орын бөледі. Жалпы
жазылу түрі төмендегідей:
TYPE "массив aтауы"=ARRAY[X1] ... ... ... ... ... - ... ... идентификатор, X, A, MAS т..б.
ARRAY - массив ұғымын білдіретін қызметші сөз.
OF - ... сөз (бұл ... ... білдіреді, мысалы бүтін
шамалардан)
Х1 - ... ... ... ... ... ... ... қолданылады.
Х2 - массив элементінің негіздік типі.
Бағдарламада массивтерді сипаттаудың бірнеше жолдары бар. ... ... ... бір ... ... ... ... кейін
айнымалылар бөлімінде массив атауын сол идентификатор ... ... ... ... ... ... де массивті толық сипаттап
кетуге де болады.
Turbo Pascal бағдарламаларында бір циклдің ішінде екінші ... ... ... цикл т.с.с. бір-біріне қабаттастырып ұйымдастыруға болады.
Егер бір циклдің денесінің құрамында басқа бір ... ... ... циклді
сыртқы цикл дейді. Ал цикл басқа бір циклдің құрамында болса, ондай циклді
ішкі цикл дейді. ... және ішкі ... ... ... ... ... ұқсайды. Тек қана мынадай ережені еске ... ... ... барлық операторлары сыртқы циклдің денесінде болуы
шарт". Цикл ішіндегі циклдердің орындалу тәртібі мынадай:
Алдымен сыртқы циклдің ... ... мәні ... ... ... ... тексеріледі, егер сыртқы циклдегі шарт
орындалса, онда басқару цикл денесіндегі ішкі ... ... ... параметрлерінің барлық мәндері бойынша ішкі циклдің
орындалуы толық тексерілгеннен кейін басқару сыртқы ... ... ... ... ... мәні ... ... циклдің
орындалуының шарты тексеріледі, егер сыртқы циклдегі шарт орындалса, онда
басқару қайтадан ішкі циклге беріледі.
Барлық циклдік ... ... ... Do, ... операторларынан кейін нүктелі үтір қойылмайтынын ескеру қажет. ... ... ... циклдің сыртындағы таңбаға көшіретін оператор
кездессе, онда циклдің қайталануы ... ... Егер ... ... басынан орындалмаса, онда цикл жүрмейді. REPEAT циклінде бағдарлама
орындалуы цикл соңындағы шартқа бармай ... цикл ... ... ... рет ... Цикл ... басқаруды цикл сыртына жіберетін шартсыз
көшу операторы тұрса, онда басқару Goto операторындағы ... бар ... ... ... цикл ерте ... ... ... бірнеше массивтің индекстері мен негіздік типтері
бірдей болса, онда оларды бір тізімге біріктіріп жазып сипаттауға ... ... ... ... сан ... А,В,С ... де компьютердің жадынан элемент бөлінген, сондықтан олар бір ... ... ... ... ... N=100; {N-элементтер саны}
TYPE Mas=Array[1..N] Of Real;
Element=(Ge,C,O,N,Na,K,Li,Cu,Zn);
Gaz=Array[Ge.. N] Of ... ... ... ... ... ... N=100;
VAR A,B,C:Array[1..N]Of Real;
D, E: Array [1.. 5] Of Char;
Mezgil:Array[ 1.. 10] Of ... ... Of ... 101] Of String;
Жоғарыда сипатталған массивтердің барлығының да элементтерінің бір
индексі бар. Бұндай массивтерді бір өлшемді массивтер ... бір ... ... ... көп ... ... де
кездеседі. Оларды индексінің санына қарай n - өлшемді массивтер деп атайды.
Солардың ... ... ... екі ... ... кеңінен
қолданылады. Оларды көбінесе матрицалар деп атайды. ... ... - ... ... ... ... ... білдіреді.
Екі өлшемді массивтердің типтер бөлімінде сипатталуы:
CONST N=100; М=100;
TYPE ... 1..M]Of ... A: ... ... ... ... бөлімінде сипатталуы:
CONST N=100; М=50;
VAR A:Array[1..N, 1..M]Of ... Array[1 ..3,1 ..7] Of ... ... ... орындау
Массивтердің өзімен жұмыс істеу үшін массивтің өз атауы қолданылады.
Массивтің өзі тек қана ... "тең ... және ... ... ғана
қатыса алады. Бұл амалдарға қатысатын массивтердің типтері мен элементтер
саны ... ... ... ... ... берілсе:
VAR X, Ү: Array[ 1..5]Of Byte;
Бұл массивтерге келесі амалдар қолданғанда:
Х=Ү - егер ... ... ... ... ... онда ... ... болады
ХҮ- егер массивтердің индекстері сәйкес элементтерінің кемінде
біреуі тең болмаса, онда нәтиже "ақиқат" болады
Х:=Ү - X ... Ү ... ... ... ... ... ... элементтері өзгеріссіз қалады.
1.3. Массив элементтерімен амалдар орындау
Массивті сипаттап болғаннан кейін, операторлар бөлімінде ... жай ... ... ... ... ... ... әр түрлі өрнектерде операндалар орнына, For, While, Repeat
операторларының параметрлерінде, логикалық ... ... ... ... ... ... ... массивтің әр элементі
массивтің аты мен индексі арқылы жазылады. ... ... ... ... Бір ескеретіні "индекс" және ... ... ... ... ... ... ... тек массивті
сипаттайтын бөліктерде ғана қолданылады. Ал "индекс" түсінігі операторлар
бөлігінде массив элементтерін ... ... ... ... ... ... ... Көбінесе өрнектердің қарапайым бір түрі
ретінде тұрақтылар мен ... ... ... да ... басқаша индексті айнымалылар деп атайды. Егер математикада
индекс жай жақшаға ... ... ... ... жазылса, Паскаль
бағдарламаларында массив индекстері тік жақшаларға алынып жазылады.
Массив элементтері бағдарламалардағы ... мен ... сол ... да, оң ... да ... ... ... негіздік типіне қолдануға болатын ... ... де ... ... ... (51, -15, 5.5, -8.1, 15, 0, 8) - А ... 7 ... тұрады,
элементтердің бағдарламада сипатталуы мен жазылуы:
VAR A:ARRAY{ 1.. 7] of Real;
А[ 1]=51; А[2]=-15; А[3]=5.5; А[4]=-8.1; А[5]= 15; А[6]=0; ... ... ... ... мен ... ... ... жазылады:
Ү: =5*А[ 1]+SQR(A[2]+A[3]); X:=COS(A[5])+Sin(A[5]);
Fork:=1 To 10 Do Begin
Read(A[k]); ... ... =80 Do Begin S: =S+A[k]; k: =k+1 End; ... ... ... ... және ... элементтерін енгізу және шығару цикл арқылы жүзеге асырылады.
Егер элементтерді ендіру үшін Read операторы ... онда ... ... жазылып ендіріледі. Ал Readln операторы қолданылса, онда ... жаңа ... ... ... K:=1 To N do ... Read(A[K]; K:=K+1
Until K>N;
..................................................
Readln(N); K:=1;
While K=N;
...................................
K: =1;
While K=7) And (A[K]< 15) Then N:=N+1; ... ... ... ... ... элементтерінің қосындысын табу:
S:=0; ……. If A[K]>10 Then ... ... S ... ... 5-тен кіші ... көбейтіндісін табу:
Р:=1; ……. If A[K] a[j+1] then begin
x := a[j];
a[j] := a[j+1];
a[j+1] := x;
end;
1.7. Қойылымды ... ... ... екі ... ... Олар ... S
жиынын құрайды. Келесі элемент алынып, сұрыпталған S жиынына сол жағындағы
элементтері одан кіші ... ал оң ... ... болып қойылады. Берілген
элементті жиынға тұрғызу орны – аралықты ... бөлу ... ... өз ... аяқтайды сол жағдайда, қашан N-ші орында тұрған элемент
өңделіп болады.
1.8. Таңдап алу арқылы сұрыптау
N элементтерден құралған массивінің ең үлкен ... ... (ол ... тұр ... ол N-ші орында тұрған ... ... ... бір шарт ... ... N p, яғни олар тең ... Қалған (N-1) элементтерден тағы да ең үлкені таңдап алынады да, N-1
орында тұрған ... ... Өз ... ... 1-ші және 2-ші
орындарда тұрған элементтер сұрыпталғаннан ... ғана өз ... ... үшін N-1 өтім керек болады екен. Осылай ең кіші ... ... ... болады.
for i := 1 to n-1 do begin
k := i; x := a[i];
for j := i+1 to n ... a[j] < x then ... := j;
x := ... := ... := ... Екі ... ... (матрица)
Екі өлшемді массив деп – элементі массивтің жол мен бағанында ... ... ... ... ... түрде матрицаның элементтері былай
белгіленеді A(I,J), мұндағы A – ... аты, I - ... ... ...... ... ... Pascal тілінде екі өлшемді немесе көпе өлшемді массивтермен
жұмыс істеу үшін, олар ... ... ... тиіс.
Екі өлшемді массивті немесе матрицаны екі түрлі ... ... : ... саны] of array[баған саны] of
;
II. : array[, ] of .
A [n, m] ... ... ... i |
| А ... |1 |2 |3 |... |n |
| j |1 | | | | | |
| |2 | | | | | |
| |. | | | | | |
| |.. | | | | | |
| |m | | | | | ... array [1..n, 1..m] of integer;
Екі өлшемді массивті енгізу:
FOR I := 1 TO N ... J := 1 TO M ... ... ... жиырма бес элементтен тұратын B[5, 5] екі ... ... ... ... ... ... кесте түрінде шығару
бағдарламамасы:
{$R}
PROGRAM MAS; ... ... ... ... ... = array [1..5, 1..5] of real; ... бойынша массив типі}
Var ... ... ... Mas; {Mas ... В - ... J: integer; {циклды басқару айнымалылары}
BEGIN ... ... ...... ... ... I := 1 TO 5 DO {I – ... циклі}
FOR I := J TO 5 DO {J – бойынша циклі}
READ(A[I, J]); {B[I, J] ... ... ... ... I := 1 TO 5 DO {I – ... ... I := J TO 5 DO {J – ... ... J], ‘ ‘); {B[I, J] ... элементін
дисплейге шығару операторы}
WRITELN;
END;
END. ... ... ... матрицада индекстердің ара қатынасы
I=J – матрицаның элементтері бас диагональ бойында ... - ... бас ... ... ... – элементтер қосалқы диагональ бойында орналасқан.
I+JN+I – элементтер қосалқы диагональдың астында орналасқан.
Массивтерді қолдану ережелері
Анализ ... ... екі ... жауап беру керек:
1) Берілген есепті шешу үшін массив керек пе?
2) Егер керек болса, онда оның ... ... ... ... ... ... ... сұрақтың мәні мынада: массивті тек қана ең ... ғана ... ... ... үш ... ... үлкею, яғни қиындау барысында, көп массивті қолдана
отырып, индекстері де өсе береді. ... ... саны де ... ... ... оқу ... түседі.
Массив үлкен көлемдерге өте тез жетеді және жадыдан көп орынды ... ... T(50, 50) ... 2500 ... ... ... 4 байт
орынды алып отырады. Сонда Т массиві 10 Кб ... ие. ... жады ... ... ... ... компьютерлік жүйелері әлсіз жадыларда.
Массивсіз есепті шешу ... ... ... өте көп уақыт
кетуіне әкеп соқтырады. Мысалы, Т(I,J):=4 меншіктеу операторы. Оны ... ... ... мәнде (I) табу үшін жадыға жүгініп, екінші мәнді табу
үшін, оған тағы да ... ... ... ... соң, оған 4 ... ... үшін жадыға үшінші рет жүгіну пайда болады.
Массивтің көлемі қандай болуы керек?
Мұндай сұрақ міндетті түрде ... ... ... массив дәл мәндермен
сипатталуы керек. Т массивінде алғашқыда белгісіз элементтер саны ... Ол 60 ... 80 ... ие бола ... Яғни ... ол ... артық
мәнге ие бола алмайды, осыдан былай жазсақ, 40 ұяшық босқа қалады. Бірақ,
егер берілген өлшемге бір орын ... ... онда ... біз оған ... ... сандардан тұратын N*M матрицасы берілген. Одан ең кіші
элементті және оның алатын орнын табыңдар. Мұндай элементтер бірнешеу
болса, онда ... ... ... орнын шығарыңдар.
Бұл есептің шешуінің бірнеше жолы бар. Айталық, массив элементтеріне
параллель баруға және бірнеше рет ... ... ... ... екі рет
қарап шығуды да ұйымдастырылуы да мүмкін. Бір қарағанда ең кіші ... егер ... ... ... ... онда ... ... шығарда
олардың орнын анықтаймыз.
PROGRAM MATTR 8:
CONST t=100; s=100;
VAR A :ARRAY [1..T,1..S] OF INTEGER;
N,M, ... ... ... ... санын енгіз’);
READLN (M);
FOR i=1 TO N DO
BEGIN
WRITELN (‘Сандарды бос орын арқылы енгіз’,M);
FOR j:=1 TO M ... ... i:=1 TO N ... j:=1 TO M ... MIN (A[i,j] ... im:=i; ... min =A[i,j] THEN ... k=1 THEN
BEGIN
WRITELN (‘матрицада бір ең кіші элемент =’,min);
WRITELN (‘B’,im,’жол,B’,jm,’бағана’)
END
ELSE
BEGIN
WRITELN (‘матрица’,k,’ ең кіші элемент =’,min);
FOR i:=im TO N DO
FOR j:=1 TO M ... ... THEN ... j)
END;
END.
Есепті шешу үшін:
* айнымалыларды сипаттаймыз;
* А массив ұзындығы мен ... ... ... енгіземіз
* массив элементтеріне қарап, ең кіші мәнін іздейміз және ... ... ... ең кіші ... ... ... ең кіші ... туралы информацияны шығару үшін:
* К-нің санына қарай не бір ғана ең кіші ... ... ... не А ... қайта қарауды ұйымдастырамыз;
Айнымалылар:
А – екі өлшемді массив;
N,M- массивтің жолдары мен ... ... ... ... ең кіші ... ... кіші ... жолы мен бағанасы;
MIN-ағымдағы минимум;
Осы есепті матрицаны бір қарап өтіп те шешуге болады. Мұндай ... екі ... ... ... ... Массивке ең кіші элементтердің
жолдары мен бағандардың мәні енгізіледі;
program MATTRS-2;
const t=100; s=100;
var A: ARRAY[1..t,1..S] of ... ... of ... ... ... ... ... санын енгіз’);
readln (M);
for i:=1 to N do
begin ... ... j:=1 to M ... ... i:=1 to N do
for j:=1 to M DO
if min >A[i,j] ... =A[i, ... min =A[i, j] ... K=1 then
begin
writln (' жол’,im,’бағана, jm);
end
else
begin
writln ... ... i:=1 to K ... ('жол',B[1,1], 'бағана', b[1,2])
end;
end.
Есепті шешу үшін:
* айнымалыларды сипаттаймыз;
* А массив ұзындығы мен массив элементтерінің мәнін енгіземіз
* ... ... ... ең кіші ... ... және көмекші В
массивтің индекс мәндерін есте сақтаймыз;
* ең кіші элементтер санын есептейміз;
* К-ға ... не бір ғана ең кіші ... ... ... ... не
барлық ең кіші элементтер туралы информацияны шығару үшін В ... ... ... – екі өлшемді массив;
В – көмекші массив;
N,M- массивтің жолдары мен бағаналар ... ... ... ең кіші элементтер саны;
IM,JN-ең кіші элементтің жолы мен бағанасы;
MIN-ағымдағы минимум;
2. Спортлото ойыны
Спортлото ойынын ойнау үшін ... 5 сан ... ... ... ... 5 санды ойлайды. Егер сіздің енгізген саныңыз
компьютер ойлаған сандарда ... онда ... ... ... ... программасын сипаттау:
Program SportLoto;
Uses crt;
Label
2,3,4,5;
Var a:Array[1..5] of Integer; //Компьютер ойлаған сан
b:Array[1..5] of Integer; ... ... ... ... ... ... енгізу
Write ('Tirazhdi oinau yshin 1-shi sandi engizizniz ');
ReadLn(b[1]);
Write ('Tirazhdi oinau yshin 2-shi sandi engizizniz ');
ReadLn(b[2]);
Write ('Tirazhdi oinau yshin 3-shi sandi ... ... oinau yshin 4-shi sandi ... ... oinau yshin 5-shi sandi ... ... ... Goto 2;
3:
n:=Random(35)+1;
if (a[1]n) and (a[2]n)
Then a[3]:=n
Else Goto 3;
4:
n:=Random(35)+1;
if (a[1]n) and (a[2] n) and (a[3]n)
Then a[4]:=n
Else Goto 4;
5:
n:=Random(35)+1;
if (a[1]n) and (a[2] n)and ... ... ... Goto ... ұқсамайтын сандарды ойлау аяқталды
//түскен сандарды шығару
Write('Tusken sandar ');
For i :=1 to 5 do Write (a[i]:4);
WriteLn;
{=========================================================}
//кездескен санды есептеу
n:=0;
For i:=1 to 5 ... j:=1 to 5 ... ... Then ... ('Siz ', n ,' sandi ... ... perneni basiniz');
Readkey;
End.
Қорытынды
60-70 жылдарда Н.Вирт ойлап шығарған Паскаль тілі қазіргі кезде ... кең ... ... ... ... Қазіргі кезде Паскаль тілі
қолданбалы программалар жазу үшін және жүйелі прораммалау тілі ретінде де
кеңінен қолданылады. Паскаль тілі ... ... ... ... және ... ... тілдерінен маңызды ерекшелігі ол құрылымдық
программалық идеясын өмірге біртіндеп енгізу. ... ... тағы ... ол ... ... концепциясының алгоритм түсінігімен қатар
программалаудың негізінде жатқан фундаментальды түсініктер қатарына кіруі.
Паскаль тілініњ шыѓу ... ... ... ... тіл ... жылдары шыќќан. Паскаль тілі осы АЛГОЛ-дыњ м±рагері болып
табылады. Б±нда ... жєне ... ... бар жєне АЛГОЛ тіліне
ќараѓанда м‰мкіндігі µте ... ... TURBO PASCAL тіл ... ... ... табылады. Сонымен ќатар программа ќ±рылуыныњ ... жєне ... ... ... бар. TURBO PASCAL
пайда болѓанѓа шейін б±л программалыќ µнім ( ... ... ... ... тартымды болу себебі, айтып кеткен зертеулер
көлеміндегі зерттелінетін процестер көп ... ... ... ... ... көмегімен сипатталады және осы зерттелінетін
процестердің нақты мәліметтерін алу үшін ... ... ... ... ... ... қажет.
Адамға тек, керекті түрлендірулер мен есептеулердің алгоритмдерін
сипаттаса болғаны, қалғанын есептеуіш ... өзі ... ... тек ... ... орындайды деп ойламау керек. Сонымен
қатар бұл машиналар ... ... ... және т.б. ... түрлендіре алады.
Алгоритмнің жазу ережесін есептеуіш машинада орындау өте қатал болып
табылады – автомат адам үшін ештеңе алдын ала ... ... ... ... ... ... тілі деп ... Ал
бағдарламамалаудың кейбір тілінде жазылған әрбір ... ... ... ... көп тараған қуатты бағдарламаалау жүйелерінің бірі –
Турбо Паскаль ... ... ... Бұл ... жүйесінің негізі
ретінде Паскаль бағдарламамалау тілінің компиляторы алынған, сонымен қатар
жүйе ... ... ... ... ... өңдегенде
ыңғайлы болу үшін сервистік қызмет көрсететін қабықша (орта) енгізілген.
Бұл ... ... ... жүзеге асыратын Паскаль бағдарламамалау
тілін - Турбо ... ... ... ал ... ... ... ... деп атау келісілген.
Енді бірер ауыз сөз тілдің тарихына тоқталатын болсақ ... ... ... ... ... Паскаль АЛГОЛ-дың ұрпағы болып
саналады. Оны өңдеген швециялық,жоғары техникалық ... ... Вирт ... Ол бұл ... дүние жүзінде алғаш есептеу машинасын
жасаған ұлы француз ғалымы Блез ... ... ... деп ... ... ... 70 ... басы болатын. АЛГОЛ-мен салыстырғанда
Паскаль түсінікті әрі өте жеңіл. АЛГОЛ-да жоқ болған нәрселердің барлығы
Паскальда бар. Онда ... ... ... ... және ... ... тұрғызылған процедуралары бар.
Турбо Паскаль Borland фирмасының кеңейтілген стандартты тілі болып
табылады,сонымен ... ... ... ... және ... өңдеу программасын қалыпты сақтайды. Турбо Паскаль 7.0 пайда
болғанша,бұл ... өнім жеті ... ... ... термині оның математикалық түсінігіне ісбеттес
қолданылады. Оның айырмашылығы Турбо Паскальда жиындар тек реттелген ... ... Кез ... ... ... ... (айнымалы немесе
типтелген тұрақтылар) базалық тип деп аталатын бір типке тиісті болу қажет.
Базалық типті жиынның максималды саны - оның ... деп ... ... ... тип ... ... 256 элементтен аспайтын реттелген
типтер қолданылуы мүмкін. Оның диапазоны [ 0..255] ... ... ... ... ... ... ... курстық жұмыста алдыма
қойылған тапсырманы орындауға Турбо ... ... ... шешім
қабылдадым. Жалпы бағдарлама сәтті шықты деп ... ... ... ... осы ... құруда көп жұмысымды жеңілдетті. ... ... ... ... ... өте ыңғайлы. Егер rаndomize ... ... ... ... бір ... ... ... Мұның
өзі де өте керек функция деп ойлаймын.
Пайдаланылған ... ... ... ООО. “ДиаСофтЮп” 2001
2. Бурин.Е.А, ... на ... ... ... ... ... обеспечение персональных ЭЕМ”. М “НАУКА”, 1990
г .
4. ... , ... ... Язык ... ... –М ... ... “ Программирование в TURBO PASCAL 7.0 и ... ... ... PASCAL 7.0. ... ... Москва.
2000 год.
7. Марченко.А.И , Марченко.Л.А, TURBO PASCAL. Киев ... 2000 ... ... С:А ... ... 2000 ... Перминов.О.Н “Язык программирования паскаль” - Москва “Радио и связь”,
1989.

Пән: Информатика
Жұмыс түрі: Реферат
Көлемі: 25 бет
Бұл жұмыстың бағасы: 500 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Жылқы спорты мен ат ойындары22 бет
Халықтың ұлттық және спорттық ойындары7 бет
Қазақтың ұлттық спорт ойындары27 бет
Ұлттық спорт түрлеріндегі ойын жаттығуларының маңызы23 бет
PR-дың әлемдік ірі спорт бәсекелерінде алатын орны60 бет
Алып стадионның ашылуы4 бет
Балалардың жас ерекшеліктеріне қарай балабақшадағы серуенді ұйымдастыру23 бет
Дене тәрбиесі жүйесіндегі қазақтың ұлттық ойындарының орны10 бет
Дене тәрбиесі қасиеттерін дамытуға арналған қимыл-қозғалыс ойындары20 бет
Мамангерлердің теоретикалық және практикалық дайындықтардың қазіргі заманға сай қалыптастыру, таңдаған маманына тұрақты қызығушылық қалыптастыру24 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь