В есебі Саяхат
Сіздің досыңыз бір мемлекеттің N қаласы бойынша саяхатқа шығуға шешім қабылдады. Екі қаланың арасындағы жол бір күнді алады. Күнде ол бір қаладан бір қалаға көшіп жүреді (ол болған қаласына қайта оралады) Егер ол өзінің саяхатын бірінші қаладан бастаса К күннен кейін қай қалада бола алатынын анықтаңыз

Алгоритм идеясы:
Егер қала саны күн санынан аз немесе тең болса (N<=К) онда жауап ретінде N-нің өзін алуға болады. Болмаса (N<К) күндерді кесте ретінде ka[1..10000] аламыз да сол кестені қала нөмірлерімен (1, 2, … n) толтырамыз. N-ге жеткен соң 1-ші қаладан бастап жазамыз. Сонда соңғы күнге (кестедегі соңғы ұяшық i=k) cәйкес келетін қала нөмірі есептің жауабы болады.

program sayahat;
var i,j,k,n:integer;
ka:array[1..10000] of integer;
begin
write(‘neshe kala n=’); read(n);
writeln(‘neshe kun k=’); readln(k);

j:=1;
for i:=1 to k do
begin
if j<=n-1 then j:=j+1 else j:=1;
ka[i]:=j;
end;
writeln;
writeln(ka[i],’-kalada bolady’);
end.

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

Бұл есептің жауабы интернетте көп:

http://forum.pascal.net.ru/index.php?showtopic=3633

http://levvol.ru/ar2.php

С есебі. Түбір
Берілген А санының N дәрежелі түбірін табыңыз (яғни, Х-тің N-дәрежесі тең А шарты орындалатындай Х саны) Егер жауап бүтін емес сан болса, онда оны жуықтау ережесіне жуықтаңыз

Алгоритмдеу идеясы есептің шартында бар (қалың жазу).

program Koren_stepen;
var i,j,x,a,n:integer;
label 10;
begin
write(‘san engiz a= ‘); read(a);
write(‘tubir darejesi n= ‘); read(n);writeln;
for i:=1 to Round(a/2) do
begin
x:=i;
for j:= 1 to n-1 do x:=x*i;

if x=a then begin
writeln;writeln(a,’ sanynyn ‘,n,’ darejeli tubiri = ‘,i); goto 10; end;
end;
10:end.

Бұл программалардың басқа да нұсқаларын жазған болсаңыз осы жерге жарялауызды өтінем.Түбір туралы есепті логарифм амалын қолданып жазса, программа бұдан қысқа болуы мүмкін және жуықтау ережесін ескеруге болатын шығар. Мен жуықтау ережесін ескермедім. Осы мақаланың төменгі жағындағы жазу өрісіне өз нұсқаңызды көшіріп түсіріп, “пікірді жөнелту” дегенді басаңыз болды.

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

• ІІ-тур. Информатикадан 2011-2012 жылғы аудандық олимпиадасы, 2-этап.
• Информатика 2010-2011. Олимпиада есептері шығарылуымен.
• Pascal-да программалар: 2-лік->10 сан, 10-дық->2 сан, 4 амал, Қазақша жыл.
• Паскаль. «Бақытты билет», Бүтін санды жай көбейтінділерге бөлшектеу, ASCII таблицасын шығару, Фамилияларды сұрыптау, Хоар процедурасы
• Информатика-9. Символдық мәліметтермен жұмыс тәсілдері (2 сағ).
• Инф-9. Паскалда есеп шығару.
• Паскаль. Кіріс, шығыс файлдары
• Паскалдан жиі қолданыстағы тақырыптық есептер (40 есеп+шешуі).
• I-тур. Информатикадан 2011-2012 жылғы аудандық олимпиадасы, 2-этап, 5 сағат (2012 облыстық І-тур)..
• Гольдбах жорамалы. Паскальда программалау.