Задача на Pascal...?

[vifka]

Да се състави програма на Паскал, която извежда в две колони всяко цяло число от интервала [2;20] и неговия квадратен корен...Благодаря предварително

[Реклама]

[Vladi_mnt]

program Zad;
Uses Crt;
var i: Byte;
begin
ClrScr;
for i:=2 to 20 do
begin
write(i:2);
writeln(' ',sqrt(i):5:3);
end;
end.

[vifka]

Благодаря ти!!!

[Vladi_mnt]

Дай ми глас: цъкни на плюсчето при аватара ми, после "Дай" или "продължи" или там, какото е и после на "Кликнете here за да дадете точки" . Опитай се да го направиш и ще съм ти благодарен

[vifka]

Готово Това е най-малкото, което мога да направя....въпреки, че не ми тръгна програмата Личи си, че разбирам от тия неща

[Vladi_mnt]

Е, ако не ти тръгва, махаш Uses Crt; и ClrScr; и ако пак не трагне ме викаш дома да си оправя кашата И, за инфо, би ли ми казала каква версия Паскал/Делфи ползвате? Аз ще съм ти благодарен

[vifka]

Аз още от първият път ги махнах, защото не знам за какво служат.... А уж трябва да я обеснявам на даскалката иии....както и да е..Версията е Turbo Pascal.7.0 ... май ще трябва да идваш

[Vladi_mnt]

Мммммм...... понякога се чудя на учителите.... Всмисъл и аз когато бачках със Турбо седмака, тогава аз не можех да компилирам една програма и изобщо, тая версия ми се струва скапана... Работил съм с нея и не останах с добро впечатление... А пък нашия класен (НАЙ-ДОБРИЯ ДАСКАЛ поне за на'щ'то даскало ) си е инсталирал Borland Pascal в кабинета, и да ви се похваля, няма грешка

[vifka]

Е, радвай се...Поне ще научиш нещата както трябва...Нашата е супер зле, ама няма да коментирам, защото до колкото разбрах, тя също си решава някви задачи тук

[Vladi_mnt]

добър даскал, нема що...
Това беше шега, разбира се, моля за извинение ако това грешно признание падне пред очите на уважаемата ти госпожа, vifke

[VeNuM]

Програмата не ти тругва, защото трябва да сложиш readln преди end.
Ето така трябва да стане:
program Zad;
Uses Crt;
var i: Byte;
begin
ClrScr;
for i:=2 to 20 do
begin
write(i:2);
writeln(' ',sqrt(i):5:3);
end;
readln;
end.

[Vladi_mnt]

Е, човек, при мене бачка и без readln, но това е защото съм на Borland Pascal 7, a как е на турбото - не знам много добре: нали казах: ядосвах се с него, ядосвах се, и накрая зае*ах турбото и почнах на борланда.
И оттогава неам проблеми

[Реклама]

[VeNuM]

При мен така се оправя аз съм със Turbo Pascal

[Vladi_mnt]

ама въпросът ми е: "Защо?", т.е. защо трябва да присътва в турбото

[VeNuM]

Защото компилатора стартира програмата и потребителят трябва да натисне Enter за да излезе, а ако го няма readln направо излиза.

[Vladi_mnt]

Ема то си има клавишна комбинация Alt+F5 само за извеждане на резултата в Паскал, ако говориш за това....

[Vladi_mnt]

[Vladi_mnt]

[Vladi_mnt]

Успява ли програмата да се компилира напълно??

[VeNuM]

Да успява да се компилира но не реазултатът изчезва много бързо. Клавишната комбинация я имма само при компилатора, а потребителят няма какво да прави и за това е нужно readln.

[vifka]

[Vladi_mnt]

[Реклама]

[VeNuM]

А пробва ли както аз ти казах?

[Vladi_mnt]

Нямам турбо паскал... затова питам, защото ако имах всичко това щях да го направя и да публикувам резултатите със съответните критики...

[VeNuM]

А vifka ти пробва ли?

[vifka]

Утре ще и я представям, тя отложи доста срока...Иначе програмата ми тръгна не знам и аз как махнах функцийте, които не знам за какво служат и не знам кво натиснах ама ми изписа каквото трябваше, без грешки Ако искаш ще ти я напиша както я направих или мога направо да ти я пратя

[Vladi_mnt]

[vifka]

program Zadacha;
var i: integer;
begin
for i:=2 to 20 do
begin
write(i:2);
writeln(' ',sqrt(i):5:3);
readln;
end;
end.

[Vladi_mnt]

[Vladi_mnt]

Ако не ти се получава нещо - прат и ми скайпа си на ЛС (лично съобщение)