10 Август 2011 – 18:58 | 40 пікір

Құрметті ИНФОРМАТИКТЕР!
Cайтымыз сіздердің арқаларыңызда, аз уақытта Қазақстандағы ең танымал сайттардың біріне айналып келеді. Кейбір қазақ тілді сайттар өз контенттерін біздің сайтқа қарап өзгертіп қолданушыларын да көбейтті. Біздің үлгімізбен біршама жаңа сайттар ашылды. Соған қарағанда Информатик …

Толығырақ »
Информатика

Бәрі информатикаға байланысты

Педагогика

Тәлім-тәрбиеге байланысты материалдар

Басқа пәндер

Ұстаздар шығармашылығы

Оқушылар шығармашылығы

Басты бет » Информатика, Паскаль туралы, Таңдаулы

Паскаль. Кіріс, шығыс файлдары

Опубликовал inust в 30 Декабрь 2011 – 21:182 пікір
Бұл мақала 951 рет оқылды, 33 рет бүгін

Миржан Темірбеков. Семей облысы, Өскемен қаласы

Ең алдымен информатика пәнінен олимпиадға қатыспас бұрын сіз текстік файлдармен жұмыс істеп үйренуіңіз керек, бұл қиын емес оны төмендегі мысалдан оқып көре аласыздар. Оны сіз олимпиадаға келмей тұрып пысықтап көріп тексеріп алғаныңыз жақсы. Егер олимпиадаға бірінші рет қатысқалы тұрсаңыз оны олимпиада архивтерінен, сайттарынан қарап қалай шешілетінін пысықтап қарап алғаныңыз абзал.

Сіздің программаңыз ешқандай жазуды экранға немесе клавишаны басуды, тағы да басқа қорытындыны тосып тұрмауы керек. Оны іске қосқанда ол ашылып қайта жабылып қалуы керек. Өйткені тапсырманы ол файлдан ашып оқып қорытындысын шығыс файлына жазады да жабылып қалады.

Ең қарапайым есептің шығарылуын қарастырайық. Мысалы a+b осы екі санның қосындысын табу керек болатын программа құру керек.

Мысал:

a.in a.out
5 1 6
6 5 11

Ең алдымен ол оңай есеп болсын қиын есеп болсын берілгенін жақсылап тусінгенше оқу керек. Сосын оның шығарылу формуласын және формасын құруымыз керек.

Мысалы ең қарапайым турмен шығарып аламыз:

program A;
var x, a,b: integer;
begin
Write(‘a,b=  ’); Readln(a.b);
X:=а+b;
Writeln(‘x=  ’, x)
end.

Қарапайым түрі осылай болады енді оны кіріс файлынан оқып, шығыс файлын жасап соның ішіне қорытындысын жазатын программаға айналдыруымыз керек.

program A;
var     F,G:text;        - кіріс, шығыс файлын текстік түрмен аламыз
x, a,b: integer;
begin
assign(f,’A.in’);         { f айнымалыны  a.in файлымен байланыстырамыз}
reset(f) ;                     { f айнымалымен байланысқан файлды оқу үшін ашамыз  }
read(f, a,b);              {f айнымалысымен байланысқан файлды ашып оқимыз}
close(f);                     {Файлды жабамыз}
X:=a+b;                     {Тапсырманы шешеміз }
assign(g,’a.out’);    { g айнымалысын a.out файлымен байланыстырамыз}
Rewrite(g);             { g айнымалымен байланысқан файлды жазу үшін ашамыз  }
Writeln (g,x) ;        {Файлға қорытындысын жазамыз}
close(g);                  {Файлды жабамыз}
end.

Кіріс файлы A.in ді сол программа жұмыс істеп тұрған жерге создать етеміз де оның ішіне сандарын жазып сақтап қоямыз. Ал a.out ты программа жазып шығарады да ішін ашып қорытындысын жазады.

Ұқсас тақырыптар:

2 пікір »

Оставьте комментарий

Добавьте комментарий ниже или обратную ссылку со своего сайта. Вы можете также подписаться на эти комментарии по RSS.

Всего хорошего. Не мусорите. Будьте в топе. Не спамьте.

Вы можете использовать коды HTML:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

На сайте используются Gravatar. Чтобы его получить зарегистрируйтесь Gravatar.