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

Тема в разделе "Pascal and Delphi", создана пользователем Psyho, 19 дек 2011.

  1. Psyho

    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
    Вывести данные на печать. Распечатать все символы стоящие после первой точки.
     
  2. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Первое
    наверное если у вас несколько значений, то вместо
    zapys : Tzap;
    нужно
    zapys : array[1..k_elem] of Tzap;

    Второе:

    close(f);

    reset(f);

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

Поделиться этой страницей