Turbo Pascal

[Пух]

unit komp;

interface
uses crt;
type mas=array [0..50] of integer;
procedure sly(n:integer; var a:mas);
function geo(n:integer;a:mas):real;


implementation
procedure sly(n:integer; var a:mas);
const b=10; c=44;
var j:integer;
begin
for j:=1 to n do a[j]:=b+random(c-b);
end;

function geo(n:integer;a:mas):real;
var s:real; i:integer;
begin
s:=1;
for i:=1 to n do
S:=s*a;
geo:=exp(i*ln(s));
end;
end.

tessio@tessio-desktop ~ $ fpc komp.pas
Free Pascal Compiler version 2.4.0-2 [2010/03/06] for i386
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for i386
Compiling komp.pas
26 lines compiled, 0.0 sec

компилятор умные вещи иногда пишет.

если ты в интерфейсе описал function geo(n:integer;a:mas):real; то и в реализации тоже так же само нужно писать (а не менять "а" на "х").

 

[Storm_10]

компилятор умные вещи иногда пишет.

если ты в интерфейсе описал function geo(n:integer;a:mas):real; то и в реализации тоже так же само нужно писать (а не менять "а" на "х").

я это увидел, всё равно всем спс

 

[Storm_10]

нужна помощь по паскалю, я не понимаю почему начитает читать в файле с 2 компоненты или как это назвать в общем 2 переменною, а 1 пропускает =/

You must be registered for see images

uses crt;
type
tovaroobig0=record;
nazva:string;
cina:real;
end;

var
i:integer;
tovaroobig:array [1..3] of tovaroobig0;
t:text;
begin
assign (t,'n.txt');
rewrite (t);
for i:=1 to 3 do begin
write ('#',i,' Nazva: ');
readln (tovaroobig.nazva);
write (t,tovaroobig.cina);

write ('Cina: ');
readln (tovaroobig.cina);
write (t,tovaroobig.cina);

end;
close (t);

reset(t);
for i:=1 to 3 do begin
write ('#',i,' Nazva: ');
read (t,tovaroobig.nazva);
write (tovaroobig.cina);

write ('Cina: ');
read (t,tovaroobig.cina);
write (tovaroobig.cina);

end;
close(t);
readkey;
end.

 

[dreamer]

нужна помощь по паскалю, я не понимаю почему начитает читать в файле с 2 компоненты или как это назвать в общем 2 переменною, а 1 пропускает =/

You must be registered for see images

А в этих двух строках тебя ничего не смущает?

readln (tovaroobig[i].nazva);
write (t,tovaroobig[i].cina);

 

[Пух]

причем 2 раза по тексту программы... первый раз при записи в файл, второй раз при чтении с файла.

 

[Storm_10]

ой йо йо = // отэто потупил, извиняюсь, спасибо...
ещё вопросы:

какого типа должен быть файл чтобы можно было в него записать типы данных рекорд ?
как сделать чтобы считалась нужная переменная из типа рекорд, а не вся строка с остальными переменными в файле?

 

[Пух]

Насколько я помню, файл должен быть типизированным

Типизированный файл - это последовательность компонент любого заданного типа (кроме типа "файл"). Доступ к компонентам файла осуществляется по их порядковым номерам. Компоненты нумеруются, начиная с 0. После открытия файла указатель (номер текущей компоненты) стоит в его начале на нулевом компоненте. После каждого чтения или записи указатель сдвигается к следующему компоненту.

В твоем случае, тип данных у тебя будет запись(record). Считываешь запись полностью, а потом с считанной записи получаешь доступ к нужному полю и делаешь с ним всё что угодно.

 

[Storm_10]

Насколько я помню, файл должен быть типизированным


В твоем случае, тип данных у тебя будет запись(record). Считываешь запись полностью, а потом с считанной записи получаешь доступ к нужному полю и делаешь с ним всё что угодно.

:| у меня в типизированный файл должны записываться и стирнг, и риал, и байт, я поставил в строке "file of record" и у меня ошибка что к рекорду нельзя приписать тип байт... но если и получиться считать и записать в типизированный файл рекорд, то как информацию из буфера считаную из файла разделить по нужным категориям типа цена, название, номер

 

[Пух]

type
tovaroobig0=record;
nazva:string;
cina:real;
blabla:byte;
end;
var
tovaroobig:array [1..3] of tovaroobig0;

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

 

[Storm_10]

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

переменные у меня так же описаны, но как записать в типизированный (какой тип данных ему присваивать? если у меня рекорд) файл и правильно считать с него, у меня не получается это сделать

You must be registered for see links

Всё что нужно для работы с файлами, в том числе и типизированными.

спасибо,Пух, почитаю