P
Psyho
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
Вывести данные на печать. Распечатать все символы стоящие после первой точки.
Дано сплав малибдена в сплаве (действительный тип) модуль упругости (действительный тип). Вывести количество сплавов, для которых модуль упругости меньше 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
Вывести данные на печать. Распечатать все символы стоящие после первой точки.