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



бет21/21
Дата30.04.2020
өлшемі325 Kb.
#65197
1   ...   13   14   15   16   17   18   19   20   21
Байланысты:
kur -aqparat-ugymynyn-qoldanyluy-45

Пайдаланылған әдебиеттер.



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



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


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

Мир 1997


  1. Бешенков С.А. Лыскова В.Ю. «Информация и информационные процессы » Информатика и образование №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





Достарыңызбен бөлісу:
1   ...   13   14   15   16   17   18   19   20   21




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет