имя поля 1>: ;
…
< имя поля N >: <тип>;End
- Главная
- Разное
- Бизнес и предпринимательство
- Образование
- Развлечения
- Государство
- Спорт
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Религиоведение
- Черчение
- Физкультура
- ИЗО
- Психология
- Социология
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Что такое findslide.org?
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Обратная связь
Email: Нажмите что бы посмотреть
Презентация на тему Урок презентация по теме Комбинированный тип данных языка Паскаль (10 класс)
Содержание
- 2. Комбинированный тип данныхType = record
- 3. Пример, данные о результатах экзаменов, полученных учеником
- 4. Описание этого раделаVar ema: results;Величина комбинированного типа называется записью.
- 5. На экзаменационном листе содержатся сведения о результатах
- 6. BeginAssign (f1, ’10_klass.txt’);Assign (f2, ’bes.txtt’);Reset(f1);Rewrite(f2);Readln (f1);Readln (f1);For
- 7. For i:=1 to 30 do if (list[i].rus=5)
- 8. Скачать презентацию
- 9. Похожие презентации
Комбинированный тип данныхType = record < имя поля 1>: ; … < имя поля N >: ;End
![For i:=1 to 30 do if (list[i].rus=5) and (list[i].alg=5) and (list[i].fhiz=5) then](/img/tmb/7/634032/24f4504f5d4e4d9143cc07885584b91e-720x.jpg "Урок презентация по теме Комбинированный тип данных языка Паскаль (10 класс)")
Слайд 3 Пример, данные о результатах экзаменов, полученных учеником по
трем предметам
Type results= record
Family: string[15];
rus: 2..5;alg: 2..5;
phiz: 2..5;
End;
Слайд 5 На экзаменационном листе содержатся сведения о результатах экзаменов,
сданных 30 учениками класса. Ввести эти данные в компьютер.
Program
examen;Type results= record
Fam: string[15];
rus: 2..5;
alg: 2..5;
phiz: 2..5;
End;
Var list: array [1..30] of results;
i: integer; f1, f2: text;
Слайд 6
Begin
Assign (f1, ’10_klass.txt’);
Assign (f2, ’bes.txtt’);
Reset(f1);
Rewrite(f2);
Readln (f1);
Readln (f1);
For i:=1
to 30 do
Readln (f1, list[i].Fam, list[i].rus, list[i].alg, list[i]. fhiz);
Слайд 7
For i:=1 to 30 do
if (list[i].rus=5) and
(list[i].alg=5) and (list[i].fhiz=5) then
begin
writeln (list[i].Fam);
writeln (f2, list[i].Fam);end;
Close(f1);
Close(f2);
end.
