Pascal pomoc ze zdefiniowaniem zmiennej

[Pytoo]

Witam na wstępie chce powiedzieć iż to nie ma nic wspólnego z żadną pracą domową... uczę się programowania sam dla siebie

Kod: Zaznacz wszystko

writeln('do ilu znakow po przecinku ma byc ograniczenie?');
readln(b);
writeln('a= ',a:2:b);
writeln('przepisz powyzsza liczbe');
readln(v);

mam taki fragment kodu, jak zrobić by nie trzeba było przepisywać liczby a po skróceniu do a:2:b ? chodzi mi o to by zapisać jakoś a :2:b do v

[lilith]

Kod: Zaznacz wszystko

v:=a;
writeln(v);


przyznaję, że pascala dawno już na oczy nie widziałam, ale to chyba tak jakoś powinno być. readln(v) -> wczyta tobie z klawiatury daną liczbę i przypisze ją pod v.
v:=a -> tu liczbie v przypiszesz wartość, która była pod a. writeln(v) wypisze tobie tę liczbę, która jest pod v.

a btw. na twoim miejscu wzięłabym się za c lub nawet c++. pascal to przeżytek, chyba że chcesz sobie grę napisać akurat w pascalu

tylko właściwie ten akurat kawałek kodu twój chyba nie bardzo ma sens. bo co, nie wczytujesz wogóle 'a', i chcesz jakąś liczbę wczytaj, ale jaką, jakieś v, którego też nie używasz w programie. nawet nei wiem co ma przepisać pod to v. używać 3 różnych oznaczeń a wiadomo tylko ile wyniesie b.
BO zapis "a:2:b" to nie jest działanie a podzielic przez 2 i to podzielić przez b! tak przeznaczasz ilość bitów na wynik i ile miejsc po przecinku ma mieć ta liczba.

jeśli chcesz wykonać działanie dzielenia to dajesz :

Kod: Zaznacz wszystko

v:= (a/2)/b;
writeln(v);


i powinno zadziałać.

[Pytoo]

tak ale chodzi o to by z liczby np 0.4321332121 zrobilo się 0.4321 i to zapisało jako V bez przepisywania

uczę się pascala by poznać podstawy taki oldschool a potem c++

[lilith]

Kod: Zaznacz wszystko

uses crt;
var a,v,b:real;
begin
writeln('wczytaj a');
readln(a);
writeln('wczytaj b');
readln(b);
v:=a/2/b;
writeln('v= ',v:10:4);
end.


[eSpEY]

http://turbopascal.helion.pl/r-19.htm

Polecam lekturę.

uczę się pascala by poznać podstawy taki oldschool a potem c++

Zaczyna się od basica - łatwiej idzie - potem pascal nie potrzebny

[lilith]

dobra już czaję o co ci chodzi:

Kod: Zaznacz wszystko

uses crt;
var a,v,b:real;
x:integer;
begin
writeln('wczytaj x');
readln(x);
writeln('wczytaj a');
readln(a);
writeln('wczytaj b');
readln(b);
v:=a/2/b;
writeln('v= ',v:10:x);
readln;
end.


lub krócej:

Kod: Zaznacz wszystko

uses crt;
var a,v,b:real;
x:integer;
begin
writeln('wczytaj x,a,b');
readln(x,a,b);
v:=a/2/b;
writeln('v= ',v:10:x);
readln;
end.

najpierw sobie wczytujesz ten x czyli do ilu miejsc po przecinku ma zapisać a potem już sobie pobiera z pamięci


o teraz mi się przypomniało jak zrobić w taki sposób jak to chciałeś osiągnąć:

Kod: Zaznacz wszystko

uses crt;
var a,b:real;
x:integer;
begin
writeln('wczytaj x,a,b');
readln(x,a,b);
writeln(a/2/b:10:x);
readln;
end.

I O TO CHYBA CHODZIŁO :p

sory, ze tak mieszałam, ale pascala nie widziałam od 2006 roku teraz już jest dobrze

[Pytoo]

generalnie chodzi mi o to by v:=a:2:b to znaczy gdy liczba a równa się 0.234324234 czy jakiś inny longint i b równa się 3 to v=0.234

o to chodzi że to nie ma być dzielenie ale żeby v było skróconą liczbą a ktora będzie potrzebna do dalszych obliczen

[lilith]

masz to w ostatniej wersji mojego programu (ale z dzieleniem). a jak chcesz bez dzielenia to zamiast dzielenia walnij zwykłą liczbę. a typ longint to nadal typ całkowity tylko zawiera więcej liczb niż zwykły integer. jak chcesz po przecinku to musisz dać real bo to jest liczba zmiennoprzecinkowa. a może źle pamiętam, ale raczej powinno wywalić błąd przy longincie.

[Pytoo]

i jak nazwać ten wynik z tego twojego kodu jako v? Bo chodzi mi generalnie o to by używać liczby skróconej w dalszych obliczeniach np przy błędzie bezwzglednym liczbe przed skróceniem np 0.123456789 skrócić do 0.123 i odjać żeby wynik był 0.000456789

[lilith]

v to zaokrąglenie liczby 0.123456789 do x miejsc po przecinku, a odejmowania żadnego tam nie widziałam żeby wyszedł wynik 0.000456789. był jeszcze gdzieś wynik 0.234324234, ale nie podajesz wszystkich danych a przy dwóch niewiadomych bedzie nieskończenie wiele rozwiązań. więc już nie wiem co ma wyjść a co nie, bo nei znam twoich danych wejściowych.

widzę, że to jednak zadanie domowe jest ;] zazdroszczę tobie, bo nie miałam programowania szkole średniej ;]

[Pytoo]

nie jest to praca domowa... poza tym nie mam już informatyki tylko chce się tego nauczyć sam.
chce się dowiedzieć jak zaokrągloną liczbę a do b miejsca po przecinku zapisać jako inną liczbę v by użyć ja do dalszych działań jak przy błędach bezwzględnych czy względnych..

[lilith]

o masakro

Kod: Zaznacz wszystko

uses crt;    //dzięki temu możesz wczytać dane z klawiatury
var a,v:real;       //definiujesz zmienne
x:integer;          // to samo
begin                //początek programu
writeln('wczytaj a oraz x');     //wypisze na ekranie to co w ' '
readln(a,x);       //zapamięta to co podasz mu z klawiatury, musi być liczba
v:=a;     //pod v przypisze wartość a
writeln('v= ',v:10:x);    //wypisze 'v= to co zapisało pod v' . 10 to ile przeznaczasz na całą liczbę, x to do ilu miejsc po przecinku ma zaokrąglić liczbę v
readln;     //zobaczysz wynik, czarne okienko nie zniknie po wykonaniu programu, może być też readkey
end.

//koniec programu

gdzie v to ilość miejsc po przecinku. wystarczyło przerobić to dzielenie na zwykła liczbę. nei wiem ile razy mam jeszcze to napisać. zamiast b masz x, bo mi się poprawić nie chciało. czego tu jeszcze nie rozumiesz. a może ja źle rozumiem i źle robię a tobie chodzi o coś innego.

[Pytoo]

No dobrze i teraz chodzi mi o to, że nie wiem jak od
v odjąć v:10:x , bo samo w sobie v to miała być liczba, która ma kilka miejsc po przecinku i po skróceniu do x miejsc po przecinku należy odjąć ją od tej dluższej liczby, by sprawdzić o ile zmniejszy się wartość liczby po zaokrągleniu jej do x miejsc po przecinku.

[lilith]

no to masz coś na wzór tego:

Kod: Zaznacz wszystko

uses crt;
const a=0.311347574;
var b,c:real;
x,i,jakapotega:integer;
begin
writeln('ile miejsc po przecinku');
readln(x);
jakapotega:=1;
for i:=1 to x do
begin
jakapotega:=jakapotega*10;
i:=i+1;
end;
b:=round(a*jakapotega)/jakapotega;
writeln('a= ',a);
writeln('b= ',b);
writeln('wynik odejmowania:');
c:= a-b;
writeln('c= ',c);
readln;
end.


funkcja round zaokrągla do części całkowitej chyba a jak zaokrąglisz taką liczbę jaką sobie np ustawiłam to daje 0, więc pomnożyłam sobie tę liczbę rzeczywistą przez 10 do potęgi x, które to podajesz z klawy. a następnie podzieliłam przez to samo, żeby otrzymać tę obciętą liczbę.

mogłeś od razu napisać że o to tobie chodzi. teraz już powinno być git.

Autor postu otrzymał pochwałę