Пайдаланылған әдебиеттер.
Асқаров Е.С. Балапанов Е.Қ. « Ғылыми зерттеудің негіздері » Алматы 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
Достарыңызбен бөлісу: |