| Автор | С++ |
|---|
for (i=0;i<n;i++)
{
for (j=0;j<n;j++)
cout <<"max"<<a[i][j];
}
Тоже стрёмный код ))) |
для darthVLAD:
а ты пробывал мое?
не пошло?
я немогу тестировать
делал на бумаге
попробуй
что пойдет то и оставлю |
для Я_не_нюб:
где запись студентов в файл меняеш
for (int i=1;i<n;i++)
на
for (int i=0;i<n;i++)
и прога пашет как надо. |
У меня стоит С# , и на С++ я сейчас твои лабы не проверю (лень настраивать свойства Visual studio 2008)
Мне через 4.5 часа надо вставать на экзамен,поэтому я сейчас заниматься этим не буду ) Но если тебе удастся уговорить препода перенести здачу на завтра,то сегодня днём можешь скидывать в личку задания ))) |
| Мне на екзамен только через 12 часов, так что давай условия, попробую чтото написать )) |
для darthVLAD:
не
тогда ждем у кого есть С++ |
для Verdet:
ок, поменяй
скажы ответ))
у меня екзамен во вторник
но врятли я на него пойду)) |
для Я_не_нюб:
какой тебе ответ нужен? Прога пишет в файл те значения, что ты ей скармливаеш |
для Verdet:
у пункту 2 нужэн ответ
о_О |
для Я_не_нюб:
давай задание. фиг поймеш, что там тебе надо. |
#include <fstream.h>
#include <conio.h>
#include <iostream.h>
void main()
{
ofstream file1("tabl.txt");
clrscr();
float uncia,gram,krok;
int kil,n;
cout<<"vedit pochftkove znchennya unciy \n"<<"krok zminu ta kilkist ryadkiv v tablici\n";
cin >>uncia>>krok>>kil;
cout <<"________________"<<"\n";
cout <<"uncii grammy"<<"\n";
cout <<"________________"<<"\n";
for (n=1;n<=kil;n++)
{
gram=uncia*28;
cout <<uncia<<"\t"<<gram<<endl;
uncia+=krok;
file1<<"\nuncia"<<uncia<<"\ngram"<<gram;
}
cout<<"__________________"<<"\n";
file1.close();
getch();
}
запусти ето и скажи что получиться? |
еще тут
uses crt;
Type
FoI=file of integer;
var
WorkFile:FoI;
{----------------------------------------------------------------------------}
Procedure Vvod(var f:FoI);
var
i,n,znach:integer;
begin
clrscr;
write('Vvedite kolichestvo chisel v fajle: ');
readln(n);
writeln('Vvedite elementy fajla:');
rewrite(f);
for i:=1 to n do
begin
read(znach);
write(f,znach);
end;
close(f);
writeln('Konec vvoda,dlja prodolzenija nazmite lubyu knopky');
readkey;
end;
{----------------------------------------------------------------------------}
Procedure result(var f:FoI);
var
kol,s,znach:integer;
begin
clrscr;
kol:=0;
s:=1;
reset(f);
while not eof do
begin
read(f,znach);
if znach>0 then begin
inc(kol);
s:=s*znach;
end;
end;
if kol>0 then begin
writeln('Polozitelnih elementov faila ',kol,' shtyk');
writeln('Ih proizvedenie ravno ',s);
end
else writeln('V faile net polozitelnih elementov');
writeln('Dlja okonchanija raboty nazmite lubyu knopky');
readkey;
end;
{----------------------------------------------------------------------------}
begin
assign(WorkFile,'c:\Data.dat');
Vvod(WorkFile);
Result(WorkFile);
end.
єто паскаль
когда запускаю пишет - read disk error
что неправильно? |
vedit pochftkove znchennya unciy
krok zminu ta kilkist ryadkiv v tablici
4
2
7
________________
uncii grammy
________________
4 112
6 168
8 224
10 280
12 336
14 392
16 448
________________ |
|
для Я_не_нюб:
Вообше то C++ неплохо работает с кириллицей. Это не паскаль 10 лет назад. |
для diggy:
и че?
у меня не работает вообще С++
надо результаты вывести |
| + |
| + |
| я эти коды занёс в блокнот-чё дальше делать-куда сохранять? |
для --CMEPTb--:
у тебя с++ есть? |
