 |
|
|
Elektronika.lt portalo forumas
Jūs esate neprisijungęs lankytojas. Norint dalyvauti diskusijose, būtina užsiregistruoti ir prisijungti prie forumo.
Prisijungę galėsite kurti naujas temas, atsakyti į kitų užduotus klausimus, balsuoti forumo apklausose.
Administracija pasilieka teisę pašalinti pasisakymus bei dalyvius,
kurie nesilaiko forumo taisyklių.
Pastebėjus nusižengimus, prašome pranešti.
Dabar yra 2025 01 30, 20:50. Visos datos yra GMT + 2 valandos.
|
|
|
 |
Forumas » Mokslai » is paskalo i c++
|
Jūs negalite rašyti naujų pranešimų į šį forumą
Jūs negalite atsakinėti į pranešimus šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite ištrinti savo pranešimų šiame forume
Jūs negalite dalyvauti apklausose šiame forume
|
|
|
|
 |
is paskalo i c++ |
 Parašytas: 2013 02 06, 21:58 |
  |
|
|
|
reikia pagalbos is paskalio i c++
[program U1;
const duom_failas = 'duom1.txt';
const rez_failas = 'rez1.txt';
type t_mas = array[1..100] of real;
procedure Skaitymas(var m : t_mas; var n : integer);
var f : text;
i,j,k : integer;
laik : real;
begin
assign(f,duom_failas);
reset(f);
readln(f,n); //Sužinom masyvo dydį
if(n > 100) then n:=100;
for i:=1 to n do
begin
m[i]:=0;/
read(f,k); /
if(k > 50) then k:=50;
for j:=1 to k do
begin
read(f,laik);
m[i]:=m[i]+1/laik;
end;
end;
end;
function Skaiciavimas(m : t_mas; n : integer) : real;
var i : integer;
suma : real;
begin
suma:=0;//Nustatom pradinę reikšmę
for i:=1 to n do
begin
suma:=suma+1/m[i];
end;
Skaiciavimas:=suma;
end;
procedure Rasymas(ats : real);
var f : text;
begin
assign(f,rez_failas);
rewrite(f);
writeln(f,ats:6:2);
close(f);
end;
i
var m : t_mas;
n : integer;
begin
Skaitymas(m,n);
Rasymas(Skaiciavimas(m,n));
end.] |
|
|
|
|
|
|
|
is paskalo i c++ |
| Parašytas: 2013 02 06, 22:23 |
|
|
|
|
| Citata: |
| reikia pagalbos is paskalio i c++ |
Nuuu ir kame problemos?
Apie iostream klasę esi girdėjęs? Lįsk į google ir ieškok. Tikrai rasi, jei mokėsi paklausti, o jei ne, tai ne. |
|
|
|
|
|
|
|
is paskalo i c++ |
| Parašytas: 2013 02 09, 12:35 |
|
|
|
|
#include <iostream>
#include <fstream>
#include <string>
using namespace std;
FILE *FD,*FR;
int m[50];
int n;
main(void)
{
float f;
int i,j,k ;
float laik ;
{
FD=fopen("duom1.txt","r");
>>f>>n;//(f,n); Sužinom masyvo dydį
if(n > 100)
{n=100;
}
for i=1 , n=i
{
m[i]=0;//Nustatom pradinę reikšmę
FR>>(f,k); //Sužinom kiek eilutėje bus elementų
if(k > 50)
{k=50;
}
for j=1 ,k=j
{
Input>>(f,laik);
m[i]=m[i]+1/laik;
}
}
}
void Skaiciavimas(m[]; int n
int i ;
float suma ;
{
suma=0;//Nustatom pradinę reikšmę
for i=1,n=I;
{
suma=suma+1/m[i];
}
Skaiciavimas=suma;
}
//----------------------------Rašymo procedūra
Rasymas(int ats );
file *f ;
}
FR=fopen("rez1.txt","w");
fprintf (f,ats,6,2);
fclose (f);
}
//Mūsų kintamieji
int m[];
int n
{
Skaitymas(m,n);
Rasymas(Skaiciavimas(m,n));
}
bet neveika |
|
|
|
|
|
|
|
is paskalo i c++ |
| Parašytas: 2013 02 09, 12:41 |
|
|
|
|
Tai, o ką kompiliatorius sako? Tau nė motais?
Užuot išradinėjęs dviratį galėjai susirasti jau veikiančių pavyzdžių:
reading txt C++ į googlę įvesk ir pačia pirma nuoroda pasinaudok. |
|
|
|
|
|
|
is paskalo i c++ |
| Parašytas: 2013 02 10, 20:34 |
|
|
|
|
| writeln(r:2:3) kaip uzrasiti i c++ |
|
|
|
|
|
|
is paskalo i c++ |
| Parašytas: 2013 02 10, 21:10 |
|
|
|
|
| nba00 rašo: |
| writeln(r:2:3) kaip uzrasiti i c++ |
Žodžiais pasakyk ką turi padaryti šita funkcija. |
|
|
|
|
|
|
is paskalo i c++ |
| Parašytas: 2013 02 10, 21:19 |
|
|
|
|
int i,j,n,k;
float l,r,rezist;
ifstream myReadFile;
myReadFile.open("duom1.txt");
myReadFile>>n;
r=0;
for (i = 1; i <= n; i++)
l=0;
myReadFile>>k;
for (j = 1; j <= k; j++)
myReadFile>>rezist;
l=l+(1/rezist);
r=r+(1/l);
ofstream outputFile("rez1.txt")-
outputFile <<r;// writeln(r:2:3) kaip uzrasiti c++ kalba kos(r:4:2)
return 0;
} |
|
|
|
|
|
|
 |
Google paieška forume |
|
|
|
Naujos temos forume |
|
|
FS25 Tractors
Farming Simulator 25 Mods,
FS25 Maps,
FS25 Trucks |
|
ETS2 Mods
ETS2 Trucks,
ETS2 Bus,
Euro Truck Simulator 2 Mods
|
|
FS22 Tractors
Farming Simulator 22 Mods,
FS22 Maps,
FS25 Mods |
|
VAT calculator
VAT number check,
What is VAT,
How much is VAT |
|
LEGO
Mänguköök,
mudelautod,
nukuvanker |
|
Thermal monocular
Thermal vision camera,
Night vision ar scope,
Night vision spotting scope |
|
FS25 Mods
FS25 Harvesters,
FS25 Tractors Mods,
FS25 Maps Mods |
|
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija |
|
FS25 Mods
FS25 Maps,
FS25 Cheats,
FS25 Install Mods |
|
GTA 6 Weapons
GTA 6 Characters,
GTA 6 Map,
GTA 6 Vehicles |
|
FS25 Mods
Farming Simulator 25 Mods,
FS25 Maps |
|
ATS Trailers
American Truck Simulator Mods,
ATS Trucks,
ATS Maps |
|
|
 |
