1. Внимательно читаете задачу. Вникаете в смысл. Выясняете, все ли термины известны и понятны. Детально представляете себе ситуацию задачи или как идет прощесс, описанный в задаче.
2. Записываете данные.
3. Записываете, что нужно найти.
4. Вспоминаете все возможные соотношения и формулы, связывающие параметры, данные в задаче, с тем параметром, который нужно найти.
5. Решаете задание в общем виде - это значит выводите формулу, в которой известны все величины, кроме искогомого. Подставляете известные значения в формулу и вычисляете. Можно делать вычисления и постадийно - это уж как вам удобно.
6. Проверяете размерности. В конечную формулу вместо числовых значений подставляются размерности соответствующих величин. Если конечная размерность не соответствует размерности искомого, значит нужно искать ошибку. Если соответсвует, то это еще не полная гарантия, что ответ правильный.
7. Проверка. Решаем обратную задачу: считаем, что какое-либо из первоначальных данных неизвестно, и на основании найденного ответа вычисляем этот "условно неизвестный параметр". Если результат вычислений совпадает в данными, значит задача решена верно. Если нет - ищите ошибку.
Var ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer;
function prost(a:integer):boolean; var i:integer; b:boolean; begin b:=true; for i:=2 to a div 2 do if a mod i=0 then begin; b:=false; break; end; if a=1 then b:=false; prost:=b; end;
begin; randomize; k:=0; for i:=1 to n do begin; ar[i]:=random(101); write(ar[i]:4); end; writeln; for i:=1 to n do if prost(ar[i]) then begin; inc(k); ar2[k]:=ar[i]; write(ar2[k]:4); end; end.
//Блок-схемы в приложении //Pascal ABC.NET v3.0 сборка 1111
//1 Var a,p,s:real; begin readln(a); p:=a*4; s:=a*a; writeln('P=',p); writeln('S=',s); end.
//2 Var a,b:integer; begin read(a,b); if a>b then writeln(b); if a=b then writeln('='); if a<b then writeln(a); end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся. Ваш, Глеб 'I3artle' Косырев}
1. Внимательно читаете задачу. Вникаете в смысл. Выясняете, все ли термины известны и понятны. Детально представляете себе ситуацию задачи или как идет прощесс, описанный в задаче.
2. Записываете данные.
3. Записываете, что нужно найти.
4. Вспоминаете все возможные соотношения и формулы, связывающие параметры, данные в задаче, с тем параметром, который нужно найти.
5. Решаете задание в общем виде - это значит выводите формулу, в которой известны все величины, кроме искогомого. Подставляете известные значения в формулу и вычисляете. Можно делать вычисления и постадийно - это уж как вам удобно.
6. Проверяете размерности. В конечную формулу вместо числовых значений подставляются размерности соответствующих величин. Если конечная размерность не соответствует размерности искомого, значит нужно искать ошибку. Если соответсвует, то это еще не полная гарантия, что ответ правильный.
7. Проверка. Решаем обратную задачу: считаем, что какое-либо из первоначальных данных неизвестно, и на основании найденного ответа вычисляем этот "условно неизвестный параметр". Если результат вычислений совпадает в данными, значит задача решена верно. Если нет - ищите ошибку.