Презентация на тема: "Пример 1 :. За всеки от учениците в клас 25 известни имена и оценки (в точки) на пет теми е необходимо да се изчисли средно рейтинг на всеки ученик." - Препис:
1 януари Пример: За всяка една от клас ученици 25-познато име и оценки (в точки) по пет теми. Вие искате да се изчисли средно рейтинг на всеки ученик и да изберете човека като максималната Средната оценка. В този случай: Име - низ от 15 символа, оценка - цяло число, среден резултат - реално (действителна) номер. програма
2 Комбиниран тип данни (запис) записи - структуриран тип данни, който съдържа набор от обекти от различни видове компоненти, наречени обекти рекордни области. В записа, всяко поле има свое име. Средният ранг 5Otsenka 4Otsenka 3Otsenka 2Otsenka 1Familiya полета Записи
3 март Описание Запис Запис Наименование възрази имена, които съставят протокол и техните видове. Общ изглед: Type = Record. ;. ; .... Край;
4 Вид на зеницата = Запишете FAM: String [15]; В1, В2, В3, В4, В5: 2..5; SB: недвижими End; За нашата задача: ученик famb1b2b2b3b3b4b4b5b5 SB RECORD низ от 15 символа 2..5 недвижими тип полета име Тип запис Запис Запис
5 май, трябва да дефинирате Klaß масив, представляващ набор от записи, които да се съхраняват в паметта на компютъра информация за около всички 25 студенти от класа: Бележки: 1.Imena области, които съставляват запис, не трябва да се повтаря. 2. Всяка област на запис може да бъде от всякакъв вид (с изключение на файла), по-специално, тя може да бъде ре-запис. Var Klaß: Array [1..25] От зеницата;
Юни 6 Достъп до рекорда полета първи път: името на променливата и името на полето. Например, Klaß [2] .fam, Klaß [3] .sb, Klaß [1] .b4. Ето защо, за въвеждане на имена и оценяване на учениците, т.е. Array елементи могат да бъдат настроени така Klaß: защото: = 1 до 25 се Започнете Readln (Klaß [Ь] .fam); Readln (Klaß [Ь] .b1); Readln (Klaß [Ь] .b2); Readln (Klaß [Ь] .b3); Readln (Klaß [Ь] .b4); Readln (Klaß [Ь] .b5); Край;
07 юли Достъп до рекорда полета Метод 2: Използване на приложеното извлечение, което дава възможност за достъп до тези данни полета, както ако те бяха прости променливи. Неговата обща форма: В оператора може да бъде достъпен като се използва наименованието на съответното поле компоненти за запис: защото: = 1 до 25 общо с Klaß [Ь] се Започнете Readln (FAM); Readln (В1, В2, В3, В4, В5); Край; С Do
8 август програмни zapici; конст п = 10; m = 6; тип pupel = запис FAM: низ [15]; б: масив [1..m] на 2..5; SB: недвижими край; Var Klaß: масив [1..N] на pupel; И, Й: цяло число; sbmax: реален; Програма: Цел
На 9 септември Започнете защото: = 1 до п общо с Klaß [в] започвайте writeln (Въведете името и, т, рейтингите '); readln (FAM); за к: = 1 до m направи readln (б [й]); приключи;
= Тогава Sbmax sbmax: = Klaß [Ь] .sb; writeln (Фамилия ": 18, за гости", "" заглавие = "18 10 за I: = 1 до п общо с Klaß [Ь] направи започне SB: = 0; за к: = 1 до m направи SB: = SB + б [й] / m; край; sbmax: = 0, защото: = 1 до п направи, ако Klaß [Ь] .sb> = sbmax след sbmax: = Klaß [Ь] .sb; writeln (Фамилия ": 18 , гости '18, "клас =" link_thumb "> 10 октомври, за I: = 1 до п общо с Klaß [Ь] се започне SB: = 0; за к: = 1 до m направи SB: = SB + б [й] / m; край; sbmax: = 0, защото: = 1 до п направи, ако Klaß [Ь] .sb> = sbmax след sbmax: = Klaß [Ь] .sb; writeln (Фамилия ": 18, за гости '18' Sr.ball ": 15); writeln, защото: = 1 до п направи, ако Klaß [Ь] .sb = sbmax след това с Klaß [Ь] се започва записване (FAM: 20," - ") в продължение на J: = 1 до m направи записване (б [й]: 3); writeln ( "-", SB: 6: 3) край; readln; край = sbmax след sbmax: = Klaß [Ь] .sb ;. writeln (Фамилия ": 18, за гости" 18 "> = sbmax след sbmax: = Klaß [Ь] .sb; writeln (Фамилия": 18, за гости "18" Sr.ball ": 15); writeln , защото: = 1 до п направи, ако Klaß [Ь] .sb = sbmax след това с Klaß [Ь] се започва записване (FAM: 20, "-"), за к: = 1 до m направи записване (б [й ]: 3); writeln ( " - ", SB: 6: 3) край; readln; край"> = sbmax след sbmax: = Klaß [Ь] .sb; writeln (Последна. "18, гости" 18 "," заглавие = "10 защото : = 1 до п общо с Klaß [Ь] се започне SB: = 0; за к: = 1 до m направи SB: = SB + б [й] / m; приключи; sbmax: = 0; за I: = 1 до п направи, ако Klaß [Ь] .sb> = sbmax след sbmax: = Klaß [Ь] .sb; writeln (Фамилия ": 18, за гости" 18 "> = sbmax след sbmax: = Klaß [Ь] .sb; writeln (Фамилия": 18, гости '18, "заглавие =" 10 за I: = 1 до п общо с Klaß [Ь] се започне SB: = 0; за к: = 1 до m направи SB: = SB + б [й] / m; край; sbmax: = 0, защото: = 1 до п направи, ако Klaß [Ь] .sb> = sbmax след sbmax: = Klaß [Ь] .sb; writeln (Фамилия ": 18 марка": 18 ">
Ноември 11 Задачи: 1. Това на ученици влезе от файла. 2.Vyvesti на информацията на екрана, за ученика, "Фамилия". 3.Vyvesti имената на екрана на студенти с оценка 5 за първите две дисциплини. 4.Raspechatat студенти назоват с максимална средна оценка. 5.Rassortirovat учениците спускащи среден успех.
Пример 12. месец декември. Определяне датата на утрешния ден. Нека датата е вписан, както следва: Вид година =; месец = 1..12; ден = 1..31; данни = Запис у: година; m: месец; г: дни; приключи; Var DAT, следващите: данни; Първото число - един ден, а вторият - един месец, една трета - година.
13 13 Функция Leap (гг: година): Булева; Започнете скок: = (гг мод 4 = 0) и (гг мод); Край; Функция Dmonth (мм: месец; гг: година): ден; Започнете дело мм на 1,3,5,7,8,10,12: dmonth: = 31; 4,6,9,11: dmonth: = 30; 2: ако Leap (гг) След Dmonth: = 29 Иначе Dmonth: = 28; Край;
15 15 Започнете Writeln (Въведете текущата дата, месец, година); Readln (dat.d, dat.m, dat.y); Утре (DAT, следващ); Writeln (Утре); Writeln (next.d next.m. next.y.); readln; Край.
16 16 Цели: въведете датата (дд мм гггг). Намерете: 1. Дата на предходния ден; 2. датата, която ще излезе през м дни; 3. датата на това е за М дни до днес; 4. Броят на дните, които са преминали от t1 до момента t2; 5. В деня от седмицата, който падна на дата t1, ако знаете, че на първия ден от нашата ера е понеделник.