Turbo Pascal көмек қажет

Сенімен отыратын адам табылмайтын шығар, сірә.
Ақылым сол, оқы, оқы, оқы.
ЗЫ: Бір күні Ақтөбедегі атақты бір хирургпен 1-ші курс стуендт-медиктермен кездесу болды. Сонда бір студент сіз қалай хирург болдыңыз, қандай ақыл айтасыз біздерге деді. Жаңағы хирургтың жауабы сол, «еңбек, еңбек» деп қайталай берді. Солай. Мұндай тек түсінбегеніңді сұра.
ЗЫ2: Осында бір Паскальды сүйетін адам бар))

Түсінбеген жеріңді ғана сұра.

мына жерден қарап көр, сабақтар және видеолар болуы керек: www.google.kz

Основы программирования turbo pascal osinin komegi tiip kalar. al negizinde en durisi bir kitapti komputerdin on jagina koip alup sol jaginada kofendi koip tunimen kod jazgan kezde gana uirenesin.Baskanin bari kosimsha akparattan baska sagan eshtene uirete koimas.

Мен өзім жалпы программалауды қалай үйрендім?! Дайын программаның кодын өзгерте бердім, өзімше өзгерте бердім, сөйтіп тез түсініп алдым. Бірақ алдымен теорияға «тойып» алу керек. Теориямен практиканы қатар алып журе алмайсың. Сондықтан да кітапты компьютердің жанына қою, меніңше дұрыс емес сияқты.

2 нақты сан берілген. Егер екеуі де теріс сандар болса, онда сандарды модульдерге ауыстыру керек. Егер тек біреуі теріс болса, онда екеуін де теріс санға көбейту керек. Егер екеуі де оң сан болса және [0.5; 2.0] аралықта жатпаса, сандарды 10 есе азайту керек. Олай болмаса сандардың түбірлерін табу керек.

program esep_1;
uses crt;
var a, b, a2, b2:real;
begin
clrscr;
writeln ('Eki nakti ainimali engiziniz: ');
readln(a, b);
if (a>0) and (b>0) then writeln(a,' ,',b,' sandari ong tangbali.') else
if (a<0) and (b<0) then writeln(a,' ,',b,' sandari teris tangbali, sondiktan modulderi: ', abs(a),' ,',abs(b)) else
if (a<0) or (b<0) then writeln(a,' ,',b,' sandarinin bireui teris tangbali, sondiktan teriske ainaldiramiz: ', a*(-1),' ,',b*(-1));
if (a>0.5) and (a<2) then writeln(a, ' sani 0.5..2 araligina kiredi') else writeln(a, ' sani 0.5..2 araligina kirmeidi, sondiktan 10 eseleimiz: ', a*10);
if (b>0.5) and (b<2) then writeln(b, ' sani 0.5..2 araligina kiredi') else writeln(b, ' sani 0.5..2 araligina kirmeidi, sondiktan 10 eseleimiz: ', b*10);
readln;
end.

Екінші есеп, бірінші есепке қатты ұқсайды екен, сондықтан екіншісін өзің үшін біріншісіне қарап шығаруге ештеңе кедергі емес)))

Паскаль болсын, кез-келген бағд. тілі бір біріне ұқсайды ғой, барлығына алгоритм құралады. Сондықтан, есепті шығармас бұрын параққа қолмен нәтижесін шығару үшін алгоритмін жазып алған лазым.
Кез келген есеп сәтті шығуы үшін, есептің шығарылуын түсініп, оны компьютер түсінетіндей етіп енгізу керек.
Жалпы, мынадай пыразы бар: Теория — загружает мозги, практика — путь к профессионализму. Сондықтан, есепті өзгертіп өзгертіп түсініп, әрі қарай қызықты болған операторларды гуглдеп жіберуге ештңең кедергі емес)