2 Задачи На Паскале

  • Автор темы Psyho
  • Дата начала
P

Psyho

#1
1.Сформировать файл который в котором содержатся данные о сплава.
Дано сплав малибдена в сплаве (действительный тип) модуль упругости (действительный тип). Вывести количество сплавов, для которых модуль упругости меньше 3. Вот тут нужно исправить<!--shcode--><pre><code class='ва'>program lab21;
uses crt;
const
k_elem = 3;
type
Tzap = record
vmist_moliblenu :real;
modul_pruznosti : real;
end;
var
zapys : Tzap;
f : file of Tzap;
i : integer;

begin
assign(f, 'd:\SPIVROB.ZAP');
rewrite(f);
for i:=1 to k_elem do
with zapys do begin
WriteLn('vmist moliblenu:');
readln( vmist_moliblenu);

Write(' modul pruznosti? ');
readln(modul_pruznosti);
Write(f, zapys);
end;
close(f);

reset(f);

Writeln;
WriteLn(' Vyvedennja modula ,');

WriteLn(' ':4, ' pruznosti', ' ':16);

repeat
Read(f, zapys);
with zapys do
if modul_pruznosti<3 then
WriteLn( 'modul_pruznosti=',modul_pruznosti );
until eof(f);

Writeln;

end.[/CODE]
2.Дано натуральное число n и строка символов s1 .. sn
Вывести данные на печать. Распечатать все символы стоящие после первой точки.
 

nayke

Well-known member
04.08.2010
310
0
#2
1.Сформировать файл который в котором содержатся данные о сплава.
Дано сплав малибдена в сплаве (действительный тип) модуль упругости (действительный тип). Вывести количество сплавов, для которых модуль упругости меньше 3. Вот тут нужно исправить<!--shcode--><pre><code class='ва'>program lab21;
uses crt;
const
k_elem = 3;
type
Tzap = record
vmist_moliblenu :real;
modul_pruznosti : real;
end;
var
zapys : Tzap;
f : file of Tzap;
i : integer;

begin
assign(f, 'd:\SPIVROB.ZAP');
rewrite(f);
for i:=1 to k_elem do
with zapys do begin
WriteLn('vmist moliblenu:');
readln( vmist_moliblenu);

Write(' modul pruznosti? ');
readln(modul_pruznosti);
Write(f, zapys);
end;
close(f);

reset(f);

Writeln;
WriteLn(' Vyvedennja modula ,');

WriteLn(' ':4, ' pruznosti', ' ':16);

repeat
Read(f, zapys);
with zapys do
if modul_pruznosti<3 then
WriteLn( 'modul_pruznosti=',modul_pruznosti );
until eof(f);

Writeln;

end.[/CODE]
Первое
наверное если у вас несколько значений, то вместо
zapys : Tzap;
нужно
zapys : array[1..k_elem] of Tzap;

Второе:

close(f);

reset(f);

Ничего не забыли?
файл закрыли иснова к нему обращаетесь, думаю использование assign не помешало бы.