Pascal խնդիրներ

[Nnn]

Իսկ եթե գիտելիքները այդքան բանը պնդելուն հերիքում է, մի գուցե հարց տվողին նաև հուշեք, թե ի՞նչու սպիտի աշխատի:
Թեև հաշվի առնելով թե երբ է տրվել հարցը, կարծում եմ հարց տվողին արդե ոչ Ձեր նախորդ գրառումն է պետք, ոչ էլ բացատրությունը:

Ցավոք սրտի սխալվում եք: Դեռ չեմ գտել սխալս

---------- Ավելացվել է՝ 18:12 ---------- Սկզբնական գրառումը՝ 18:10 ----------

Պասկալից գիտելիքներս հերիքումա որ ասեմ «իհարկե ծրագիրը չպիտի աշխատի»... բայց կներեք, ենքան էլ գիտելիք չունեմ որ ծրագիրը գրեմ...

Իսկ կարող եք ասել թե ինչու չի աշխատում

[Ներսես_AM]

հարյուր տարի առաջ եմ պասկալով գրել, սենց բան գտա
http://books.google.com/books?id=XFa...rinter&f=false

պետք է անես մոտավոր սենց բան:

USES printer;

.....
Writeln(Lst, 'text printer tpi');
.....

Բայց համոզված չեմ որ կաշխատի: Ինչքան հիշում եմ սա աշխատում էի միայն հին տպիչների հետ որոնք միացվում էին LPT պորտի միջոցով, ու plug & play չէին: Առավել ևս հիմիկվա USB-ով տպիչները:

[Nnn]

հարյուր տարի առաջ եմ պասկալով գրել, սենց բան գտա
http://books.google.com/books?id=XFa...rinter&f=false

պետք է անես մոտավոր սենց բան:

USES printer;

.....
Writeln(Lst, 'text printer tpi');
.....

Բայց համոզված չեմ որ կաշխատի: Ինչքան հիշում եմ սա աշխատում էի միայն հին տպիչների հետ որոնք միացվում էին LPT պորտի միջոցով, ու plug & play չէին: Առավել ևս հիմիկվա USB-ով տպիչները:

հա ճիշտ ես, բայց հին տպիչ էլ ունեմ, ուղղակի համապատասխան շինա չունեմ

[n1djhayko]

Ժող ջան կխնդրեի կաազմել այս(տրված է a,b,c թվերը ասումա>եթե այդպիսի երկարություն ունեցող հատվածներով հնարավոր է կառուցել եռանկյունի ,ապա կարտածեն 'y=1',հակառակ դեպքում 'y=2' արտահայտությունը) խնդրի բլոկ սխեման և ծրագիրը

[BOBO]

var a,b,c:real;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
write("y=1") else write("y=2");
end.

[BOBO]

ավելի ճիշտ սենց

var a,b,c,y:real;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then y:=1 else y:=2;
write("y=",y)
end.

[Melin]

ժող. կարող եք մենյուի ծրագիր գրել?

[JoKer777]

Ցավոք սրտի սխալվում եք: Դեռ չեմ գտել սխալս

Իսկ կարող եք ասել թե ինչու չի աշխատում

Nnn ջան, հիմա անցնում ենք պասկալ, բայց դեռ տպիչններին չենք հասել.... երբ իմացա անպայման կգրեմ