Ќазахстан республикасы білім жјне єылым министрлігі

1. 
   Асқаров Е.С. Балапанов Е.Қ. « Ғылыми зерттеудің негіздері » Алматы 2004
   

2. 
   Балапанов Е.Қ. Бөрібаев Б., Дәулетқұлов А.Б. «Жаңа информациялық технологилар : информатикадан 30 сабақ » Алматы : ИНТ, 2004
   

3. 
   Бауэр Ф.Л.Гооз Г. «Информатика »Москва,
   

4. 
   Бешенков С.А. Лыскова В.Ю. «Информация и информационные процессы » Информатика и образование №6, 1998.
   

5. Бордовский Г.А. Исаев Ю.В. Морозов В.В.

«Информатика в понятиях и терминах » Москва . Просвещение ,1991

6. Мозговой М.В. «Классика программирования : алгаритмы , языки, автоматы, компиляторы » Санкт-Петербург ,2006

7. Пестриков В., Маслобоев А. «DELPHI на примерах» Санкт-Петербург ,2005

8. Шеннон К « Работы по теории информации и

кибернетике » Москва. 1963

9. Фридланд А.Я. «Основные ресурсы информатики» Москва , Профиздат 2005

Uses crt;

Type punkt=recort;

Fam :string; name:string; nomer:string; adress:string;

End;

Var

Begin

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

Еңгізуді жалғастырасыз ба? (Иә/Жоқ)

Иә

Абоненттін фамилиясын енгіз

Абоненттін атын енгіз

Айгүл

Телефон нөмірін енгіз

Абоненттін адресін еңгіз

Достык данғылы д.202 кв.55

Еңгізуді жалғастырасыз ба? (Иә/Жоқ)

Иә

Абоненттін фамилиясын енгіз

Абоненттін атын енгіз

Дана

Телефон нөмірін енгіз

Абоненттін адресін еңгіз

Абай данғылы д.114 кв.55

Еңгізуді жалғастырасыз ба? (Иә/Жоқ)

Жоқ

PROGRAM telsprav;

Type punkr=record;

Fam,name,nomer,adres: string;

End;

Abon:file of punkt; v:punkt; i:integer; fff:string;

Begin

Clrscr;

Reset(abon);

I:=0;

Writeln(‘укажите фамилию абонента’);

Repeat

Read(abon,v);

I:=i+1;

If v.fam=fff then

Begin

Writeln(‘абонент ’, v.fam, ‘ ‘,v.name);

Writeln(‘Телефон абонента’,v.nomer);

End;

Until eof (abon);

End.

Касымова

Мына мекен жайда тұрады Абай данғылы 234 үй. 99 пәтер