Ќазахстан республикасы білім жјне єылым министрлігі
жүктеу/скачать 325 Kb.
|
Ақпарат ұғымы
| Пайдаланылған әдебиеттер.
Асқаров Е.С. Балапанов Е.Қ. « Ғылыми зерттеудің негіздері » Алматы 2004 Балапанов Е.Қ. Бөрібаев Б., Дәулетқұлов А.Б. «Жаңа информациялық технологилар : информатикадан 30 сабақ » Алматы : ИНТ, 2004 Бауэр Ф.Л.Гооз Г. «Информатика »Москва, Мир 1997 Бешенков С.А. Лыскова В.Ю. «Информация и информационные процессы » Информатика и образование №6, 1998. 5. Бордовский Г.А. Исаев Ю.В. Морозов В.В. «Информатика в понятиях и терминах » Москва . Просвещение ,1991 6. Мозговой М.В. «Классика программирования : алгаритмы , языки, автоматы, компиляторы » Санкт-Петербург ,2006 7. Пестриков В., Маслобоев А. «DELPHI на примерах» Санкт-Петербург ,2005 8. Шеннон К « Работы по теории информации и кибернетике » Москва. 1963 9. Фридланд А.Я. «Основные ресурсы информатики» Москва , Профиздат 2005 Қосымша PROGRAM telefon; Uses crt; Type punkt=recort; Fam :string; name:string; nomer:string; adress:string; End; Var Abon:file of punkt; v:punkt; k:char; Begin Clrscr; Assing(abon,’D: /obuch/sprav’); Reset(abon); If ioresult <>0 then rewrite(abon); Repeat Writeln(‘введите фамилию абонента’); Readln(v.fam); Writeln(‘Введите имя абонента’); Readln(v.name); Writeln(‘ Введите номер телефона абонента’); Readln(v.nomer); Writeln(‘ Введите адрес абонента’); Readln(v. adress); Writeln(‘Будете продолжать ввод данных?(Y/N)’); Readln(k); Until k=’N’; Readln; End. Абоненттін адресін еңгіз Достык данғылы д.200 кв.32 Еңгізуді жалғастырасыз ба? (Иә/Жоқ) Иә Абоненттін фамилиясын енгіз Досова Абоненттін атын енгіз Айгүл Телефон нөмірін енгіз 22-22-22 Абоненттін адресін еңгіз Достык данғылы д.202 кв.55 Еңгізуді жалғастырасыз ба? (Иә/Жоқ) Иә Абоненттін фамилиясын енгіз Саитова Абоненттін атын енгіз Дана Телефон нөмірін енгіз 33-33-33 Абоненттін адресін еңгіз Абай данғылы д.114 кв.55 Еңгізуді жалғастырасыз ба? (Иә/Жоқ) Жоқ PROGRAM telsprav; Uses crt; Type punkr=record; Fam,name,nomer,adres: string; End; Var Abon:file of punkt; v:punkt; i:integer; fff:string; Begin Clrscr; Assign(abon,’D:/obuch/sprav’); Reset(abon); I:=0; Writeln(‘укажите фамилию абонента’); Readln(fff); Repeat Seek(abon,i); Read(abon,v); I:=i+1; If v.fam=fff then Begin Writeln(‘абонент ’, v.fam, ‘ ‘,v.name); Writeln(‘Проживает по адресу’,v.adres); Writeln(‘Телефон абонента’,v.nomer); End; Until eof (abon); Readln; End. Абоненттін фамилиясын көрсетініз Касымова Абонент Касымова Жанна Мына мекен жайда тұрады Абай данғылы 234 үй. 99 пәтер Абоненттін телефоны 44-44-44 жүктеу/скачать 325 Kb. Достарыңызбен бөлісу:
|