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

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

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

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

Педагогика

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

Басқа пәндер

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

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

Басты бет » Паскаль туралы

Pascal-да программалар: 2-лік->10 сан, 10-дық->2 сан, 4 амал, Қазақша жыл.

Опубликовал inust в 20 Октябрь 2011 – 13:49Пікір жоқ
Бұл мақала 2669 рет оқылды, 7 рет бүгін

Барлық программа PascalABC -те тексерілген.

№1 Кез-келген ондық санды екілік санау жүйесіне келтіретін программа.
program ekilek_san;
var st,i:string;
j,k,x:integer;
begin
write(’10-dyk bytin san engiziniz ‘);
read(x);
repeat
str(x mod 2,i); {bir bity bolip alu}
x:=x div 2; {butin bolikti bolip alu}
st:=i+st; {bittar tizbegin kuru}
until x = 0;
writeln(‘bul san 2-lik juiede ‘,st);
readln;
end.

№2  Кез-келген екілік санды ондық санау жүйесіне келтіретін программа.

program ekilik_ondyk;
var st,i:string;
j,n:integer; s:real;
begin
write(’2-lik san engiziniz ‘);
read(st);
n:=length(st); s:=0;
for j:=1 to n do
begin
if st[j]=’1′ then s:=s+Power(2,(n-j));
end;
writeln(st,’ саны 10-дык жуйеде ‘,s);
readln;
end.

№3 Әртүрлі үш санға арифметикалық төрт амалды неше рет қолдануға болады?
program amaldarZ;
var i,j,s,a,b,c:integer;
otv:array[1..16] of real;
begin
write(‘Ҝш бҝтін сан енгіз ‘);
read(a,b,c);
otv[1]:=a+b+c;
otv[2]:=a+b-c;
otv[3]:=a+b*c;
otv[4]:=a+b/c;
otv[5]:=a-b+c;
otv[6]:=a-b-c;
otv[7]:=a-b*c;
otv[8]:=a-b/c;
оtv[9]:=a*b+c;
otv[10]:=a*b-c;
otv[11]:=a*b*c;
otv[12]:=a*b/c;
otv[13]:=a/b+c;
otv[14]:=a/b-c;
otv[15]:=a/b*c;
otv[16]:=a/b/c;
for i:=1 to 16 do
for j:=i to 16 do
if otv[i]=otv[j] then s:=s+1;
write(‘Јртҝрлі мјндер саны: ‘,s-3);
readln; readln;
end.

№4 Қазақша жылды анықтайтын программа. Сіз керекті жылды (мыс: 2011) енгізесіз.
program kazjyl_3723_104bet;
var f:text; f1:string;
k,i,n:integer;
a:array [1..12] of string;
begin
assign(f,’C:\tp7\pro2005\jyl.txt’);
reset(f);
for i:=1 to 12 do
begin readln(f,f1); a[i]:=f1; writeln(i,’ ‘,a[i]);end;
close(f);
write(‘ kai jyl kerek? ‘);
read(n);
k:=n mod 12;
if k=0 then i:=12 else i:=k-3;
if i=0 then i:=1;
writeln (n,’ - ‘,a[i]);
writeln(‘aiaktaldy ‘); readln; readln;
end.

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

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

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

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

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

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