San.in кіріс файлында берілген N натурал санға дейінгі барлық жәй сандарды тауып, нәтижені San.out шығыс файлында шығарыңдар.
Есепті шығарудың Turbo Pascal тіліндегі программасы:
program p1;
var f1,f2:text; N,I,j,s:integer;
begin
assign(f1, ’c:\san.in’); reset(f1); {файлды ашу}
assign(f2, ’c:\san.out’); rewrite(f2); {файлға жазу}
read(f1,N); {файлдан N-ді оқу}
for i:=1 to N do begin s:=0;
for j:= 1 to i do
if i mod 2=0 then s:=s+1; {санның бөлгіштерін санау}
if s=2 then writeln(f2,i);end; { жәй сандарды f2 файлына жазу}
close(f1); close(f2); {файлдарды жабу}
end.
Төмендегі есептердің Паскаль тілінде программасын құрыңдар.
Есеп.
Берілген N-ге дейінгі жай сандарды экранға шығаратын программа құрыңдар. Кіріс файлы hp1.in. Ол N-нің мәні болатын натурал санннан тұрады.(0< N<=100) Шығыс файлы hp1.out. N-нің жай бөлгіштерінен тұрады.
1)Кіріс файлы hp1.in. 2)Кіріс файлы hp1.in.
20 10
Шығыс файлы hp1.out. Шығыс файлы hp1.out.
2 2
3 3
5 5
7 7
11
13
17
19
Дәріс 7.
Тақырыбы: Құрылымдық типтерді түрлендіруге берілген олимпиадалық есептер.
Мазмұны:
Құрылымдық типтерді түрлендіруге берілген олимпиадалық есептерді программалау.
Құрылымдық типтерге мыналар жатады:
Құрылымдық типтерді түрлендіруге берілген төмендегі олимпиадалық есептерді программалауды қарастырамыз.
1- есеп:
N элементтен тұратын массив берілген. Массивтің барлық элементтерінің қосындысын тауып, массивтің әрбір элементін осы қосынды мен сәйкес элементтің айырымына алмастыру жүзеге асырылатын түрлендіру Конфуз деп аталады. Берілген массивке Конфуз амалын к рет қолдану нәтижесінде алынған массивтің ең үлкен және ең кіші элементтерінің айырмасын табыңдар. Конфузды процедурада ұйымдастыр.
2- есеп:
Массивтің элементтерін өсуі бойынша реттеу процедурасын қолданып, берілген матрицаның әрбір жолын элементтерінің өсуі бойынша реттеңдер.
Достарыңызбен бөлісу: |
