Да видим кой как програмира (pascal)

[DanielzZz Профил]

ReadKey (function) (WinCrt unit)

Reads a character from the keyboard.

Declaration

function ReadKey: Char;

Target

Windows, Real, Protected

Remarks

The character is not echoed to the screen.

Sample Code

ReadKey.PAS

Но не мога да разбера как точно да го въведа в сорса.

РЕМОНТ:и по тоя начин не става

Код: Избери целия код

program diskriminanta;
uses wincrt;
var a,b,c:real;
    ch:char;
begin;
writeln ('Òàçè ïðîãðàìà ìîæå äà èç÷èñëè Âàøàòà äèñêðèìèíàíòà');
writeln ('Ìîëÿ,âúâåäåòå 1âî ÷èñëî');
read (a);
writeln ('Ìîëÿ,âúâåäåòå âòîðî ÷èñëî');
read (b);
writeln ('Ìîëÿ,âúâåäåòå òðåòî ÷èñëî');
read (c);
writeln ('Âàøàòà äèñêðèìèíàíòà å:',(sqr(b)-4*a*c):6:20);
if (sqr(b)-4*a*c)<0 then
writeln ('Íÿìà ðåàëíè êîðåíè');
if (sqr(b)-4*a*c)=0 then
writeln ('Èñêàòå ëè äà èç÷èñëÿ êîðåíúò íà ó-íèåòî ? (Y çà ÄÀ,N çà ÍÅ)');
if (sqr(b)-4*a*c)>0 then
writeln ('Èñêàòå ëè äà èç÷èñëÿ êîðåíèòå íà ó-íèåòî? (Y çà ÄÀ,N çà ÍÅ)');
ReadKey;
if KeyPressed then writeln ('edi kakvo si');
end.

[Feanor Профил]

Нещо такова:

ch := ReadKey;
if ch = 'n' then ...
...
repeat until KeyPressed;
end.

[DanielzZz Профил]

Пак става същото
Оствави.Бах го в тъпия пискюл.
Мерси за -а иначе.

[Louis Профил]

абе вие тука да не правите атентат срещу форума нещо
баси .... от 2 страници чета и не вдявам нищо се на глухото око

[DanielzZz Профил]

И да вденеш нещо ще се чудиш как да стане номера както ние с Feanor

Аз в момента само стоя и

[Louis Профил]

И да вденеш нещо ще се чудиш как да стане номера както ние с Feanor

аа не мерси и без тва са се чудя ква глупост да измисля
отиам да се фърррлям от някъде

П.П. айде спираме че щи локнЪт тематЪ

[zodiak Профил]

Я пробвай това:

Код: Избери целия код

program Variables;
 
var

   c: Char;
 
begin
   c := ReadKey;
   repeat until KeyPressed;
   writeln(c);
end.


и виж дали ще ти сработи... ако не помъчи го малко и виж що не работи... няма невъзможни неща - има мързеливи програмисти

[sieg Профил]

абе да не би да вкарваш голямо Y, а го сравняваш с малко?
освен това нещо тия скоби около променливата не ме кефят - махни ги...
иначе самия readln е ок, възможно е обаче да стои нещо отнякъде в буфера... по принцип нагоре си модиицирай програмата да нае ползва read и ше избегнеш подобен проблем...

[DanielzZz Профил]

Паскал не прави разлика между малки и големи букви.
Как така да я модифицирам да не ползва read?А как да прочете променливите тогава?
Задължително е да има скоби около променливата.

[sieg Профил]

Паскал не прави разлика между малки и големи букви.
Как така да я модифицирам да не ползва read?А как да прочете променливите тогава?
Задължително е да има скоби около променливата.

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

[DanielzZz Профил]

Ми добре,значи хелпа са го писали канарчета ,така ли
Още повече,че без скоби на променливите debuger-a не иска да стартира програмата.

РЕМОНТ:Брех,оказа се,че си бил прав за CAPS-овете.СТАНА ! Мерси много !
Но защо в хелпа пише,че не ги различава?

РЕМОНТ2: А как да го наглася да приема и малки и големи букви?Щото ми дава 'operand types do not match the operator' ?

[bmwmania Профил]

И да вденеш нещо ще се чудиш как да стане номера както ние с Feanor

аа не мерси и без тва са се чудя ква глупост да измисля
отиам да се фърррлям от някъде

П.П. айде спираме че щи локнЪт тематЪ

Колега, ако ще се хвърляш от некаде, дай да те вода на Витиня да скачаш с бънджи Аз лично събота съм там.........

[sieg Профил]

Паскал не различава малки и големи букви от гледна точка на идентификаторите в програмата - имената на променлиив, процедури, функции и т.н. Данните - като string в случая - си се различават, разбира се - иначе няма как да стане.
А, може и аз да съм работил на по-стари версии(или по-нови), защото беше отдавна последният път като съм правил нещо, но по принцип if b=True then ; не дава(ше) грешка. Тия скоби са гламави.

[DanielzZz Профил]

Абе работят си те.Ама как да го направя да прави 1 и също нещо независимо дали са малки или ГОЛЕМИ буквите ?

[sieg Профил]

Абе работят си те.Ама как да го направя да прави 1 и също нещо независимо дали са малки или ГОЛЕМИ буквите ?

преобразувай и двете към малки или големи букви...
в хелпа виж коя беше функцията, по някакви ама много далечни спомени - ANSILowerCase или нещо подобно, ама наистина много отдавна беше за последно...
т.е., ако приемем че функцията е UpperCase, то сравнението би било:
if UpperCase(s1)=UpperCase(s2) then ...