1 Тема від ringer17

(1 відповідей, залишених у Pascal/Delphi)

Добрий вечір.

Умова задачі: сформувати двонаправлений список із ланкою заголовком. Вставити перед кожною літерою "А" літеру "D".

Допоможіть знайти помилку, тому що після запуску програми вибиває помилку: "попитка разименовать нулевой указатель".

program lab13;
type
  zv2 = ^point2;

  point2 = record
    elem: char;
    next: zv2;
    priv: zv2
  end;

var
  vlan, vslov: zv2;
  sym: char;

  procedure vstav(lanka: zv2; buk: char);
  var
    q: zv2;
  begin
    new(q);
    q^.elem := buk;
    q^.next := lanka^.next;
    q^.priv := lanka^.next^.priv;
    lanka^.next^.priv := q;
    lanka^.next := q
  end;

begin
  writeln('vv symbols ');
  new(vslov);
  vslov^.next := vslov;
  vslov^.priv := vslov;
  repeat
    read(sym);
    vstav(vlan^.priv, sym);
  until sym = '.';

  vlan := vslov^.next;
  while vlan <> vslov do
  begin
    vlan := vslov;
    if vlan^.elem = 'A' then
      vstav(vlan^.priv, 'D');
    vlan := vlan^.next;
  end;

  writeln('result');
  vlan := vlan^.next;
  writeln;
  while vlan <> vslov do
  begin
    write(vlan^.elem);
    vlan := vlan^.next
  end;
  writeln;
end.

Перейти до форуму: Pascal/Delphi

2 Тема від ringer17

(1 відповідей, залишених у Pascal/Delphi)

Умова задачі:

сформувати динамічний рядок, елементами якого є цифри і знаки арифметичної дії. Вивести цей рядок на друк, перевірити чи коректно задані арифметичні операції.

Підкажіть, будь ласка, яка повинна бути умова для перевірки чи коректно задані арифметичні операції.

Перейти до форуму: Pascal/Delphi

3 Відповідь від ringer17

(3 відповідей, залишених у Pascal/Delphi)

у файлі є текст, якщо на початку рядка є 3 пробіли значить це абзац.

Перейти до форуму: Pascal/Delphi

4 Тема від ringer17

(3 відповідей, залишених у Pascal/Delphi)

Добрий вечір.

Потрібно написати задачу, яка б поміняла абзаци місцями, використовуючи процедуру.

Ось що вийшло, але програма не працює :(

Program lab8;
Var
F1, FT, FR :text;
Str: string;
L: Boolean;
Procedure Zamina (str2:string; var L2: Boolean);
var F2: text;
Begin
Readln (F2, str);
If ( str[1]=' ') and (str[2]=' ') and (str[3]=' ') then
Begin
Writeln (ft,str);
Readln(f2,str);
While (str[1]<> ' ') and (str[2]<>' ') and (str[3]<>' ') do
Begin
Writeln (ft, str);
Readln (F2,str);
End;
Begin
Close (ft);
Writeln (ft, str);
Readln (F2, str);
While (str[1]<> ' ') and (str[2]<>' ') and(str[3]<>' ') do
Begin
Writeln(fr,str);
Readln (f2,str);
End;
Reset (ft);
While not eof (ft) do
Begin
Readln (ft, str);
Writeln (fr, str);
End;
Close (ft);
While not eof (f2) do
Begin
Readln(f2,str);
Writeln(fr,str);
End;
L:= true;
End;
Begin

Assign (F1,'C:\111.txt');
Reset(f1);

Assign (Ft,'C:\222.txt');
Reset(ft);

Assign (Fr,'C:\333.txt');
Reset(fr);
 begin
L:= false;
Zamina(f1,L);
Writeln ('L=', L);
Close (f1);
Close (ft);
Close (fr);
end;
end;
end;
end.

Перейти до форуму: Pascal/Delphi

5 Тема від ringer17

(1 відповідей, залишених у Pascal/Delphi)

Добрий вечір!
Намагалась написати задачу :)
умова: у медичній картці кожного студента записано прізвище, ім'я, рік народження, ріст і вага. Потрібно визначити найвижчого і найвищого студнта.

Ось, що вийшло, але програма працює не коректно...Допопможіть, будь ласка!

program medkarta;
type
  stud = record
    pr, im: string[10];
    rikn:1900..2001;
    zrist:100..200;
    vaga:40..150;
    end;

  var
    kartka:array[1..4] of stud;
   maxv,maxz, max, max2,i,j:integer;


begin
   for i:= 1 to 4 do
    with kartka[i] do

  begin

   write('prizv  ');
   readln (kartka[i].pr);
   write('imja   ');
   readln (kartka[i].im);
   write ('vv rist');
   readln (kartka[i].zrist);
   write ('vv vagy');
   readln (kartka[i].vaga);
   write('rik narod ');
   readln(rikn);

  end ;


  for i:=1 to 4 do begin
   max:=kartka[1].vaga;
     maxv:= 1;
   if kartka[i].vaga > max then begin
    max:=kartka[i].vaga;
    maxv:= i;

 end;
end;

 for i:=1 to 4 do begin
  max2:=kartka[1].zrist;
   maxz:= 1;
  if kartka[i].zrist > max2 then begin
    max2:=kartka[i].zrist;
    maxz:= i;

 end;
end;
write(kartka[maxv].pr,'   ',kartka[maxv].zrist,'   ', kartka[maxv].vaga);
write(kartka[maxz].pr,'   ',kartka[maxz].zrist,'   ', kartka[maxz].vaga );


    end.

Перейти до форуму: Pascal/Delphi

6 Відповідь від ringer17

(8 відповідей, залишених у Pascal/Delphi)

дякую але не можна якось без цього : #13#10?просто ми не вчили такого

Перейти до форуму: Pascal/Delphi

7 Відповідь від ringer17

(8 відповідей, залишених у Pascal/Delphi)

відбувається читання з файлу

Перейти до форуму: Pascal/Delphi

8 Тема від ringer17

(8 відповідей, залишених у Pascal/Delphi)

Доброї ночі!

Допоможіть, будь ласка, написати програму . Я ніяк не можу зробити цю програму вже 3 тижні. Потрібно в тексті 2  абзаци поміняти місцями, абзаци розділені пустим рядочком.

Наперед вдячна!

Перейти до форуму: Pascal/Delphi