Предыдущая публикация
Savol javoblar .
savollarni nomerlab quysangiz yordam beramiz
Следующая публикация
savollarni nomerlab quysangiz yordam beramiz
https://www.youtube.com/watch?v=Y_0rBMRp-6g
https://www.youtube.com/watch?v=sZyqyGclnOU
https://www.youtube.com/watch?v=Ly0LV8QcV0g
Комментарии 77
Bir o‘lchovli butun turdagi jadval tavsifi: var B: array [10..100] of integer;
Bir o‘lchovli belgili turdagi jadval tavsifi: var A: array [7..21] of string;
Ikki o‘lchovli haqiqiy turdagi jadval tavsifi: var M: array [1..23,10..10] of real;
Masalan R^n fazoda koordinatalari bilan berilgan K ta gipperkublarning o'zaro ichma-ich joylashganligini tekshirish.
Procedure raq_sum(a:integer ; Var son : integer ) ;
Var
s,i:integer;
begin
s : = 0 ;
while( a > 0 ) do
begin
s : = s + (a mod 10 ) ;
a : = a div 10;
end;
son : = s ;
end;
Shu algoritmdan foydalanib o'ziz dasturni tugatishga harakat qiling.
// Bu procedurada son nomli birorta natural son kiritilsa,
// raqam_summasi o'zgaruvchisiga raqam summasini hisoblabyuklab qaytaradi
Procedure raq_sum ( son:integer;Var raqam_summasi:integer ) ;
Var
s,i:integer;
begin
s:=0;
while ( son > 0 ) do
begin
s: = s + ( son mod 10 ) ;
son : = son div 10 ;
end;
raqam_summasi: = s ;
end;
var
n,m,i,s:integer;
begin
writeln( 'N ni kiriting: ' ) ;
Readln( N );
writeln( ' M ni kiriting: ' ) ;
Readln( M ) ;
for i : = 1 to n do //1 dan n gacha sonlarni tekshirishimiz kerak
begin
raq_sum( i , s ) ; // i- sonni proceduraga murojaat qilib,
// s o'zgaruvchiga raqamlar yig'indisini yig'amiz.
if( s = m ) then Writeln( i,' da : ', s ) ;
end;
readln;
end.
k = 10^(m/9) ;
k = k*(m mod 9)+k-1 ;
sikldagi i ni qiymatini k dan boshlab sikl qadamini 9 qilinsa, dastur yuqoridagidek ~10 baravar tez bajariladi.
Bu ham eng optimal emas, umuman raq_sum prosedurasisiz ham yechish mumkin, Ya'ni har bir sonni raqamlarini hisoblamasdan. Matematik dasturlashga yorqin misol.
var a, b : string ;
begin
readln ( a ) ;
readln ( b ) ;
a = a+b ;
b = copy ( a, 1, length ( a ) - length ( b )) ;
a = copy ( a, length ( b ) 1, length ( a ) - length ( b ) ;
writeln ( a ) ;
writeln ( b ) ;
end.
begin
readln ( n );
s : = 0;
for i : = 1 to n do
s : = s + ( 2 * i - 1 );
writeln ( s ) ;
end.
optemallashtirish, ixchamlashlarni ko'ring dasturni yanada chiroyli qilaylik
var n, s: integer;
begin
readln ( n ); s = n*n;
writeln ( s );
end.
Agar a * a + b * b > c * c u holda o'tkir
Agar a * a + b * b = c * c u holda to'g'ri
Agar a * a + b * b > c * c u holda o'tmas
savol c gepatinuza eng katta tomon a, b kichik tomonligini qanday olamiz(bilamiz)?
if (b>a) and (b>c) then begin max=b b=c c=max end
uchunchi hol o'zi bajarilaveradi
bo'ladimi shu yozuv