Ссылочный тип данных. Динамическая память - Pascal ABC

  1. Создайте файл состоящий из записей содержащих поля: 1) номер 2) фамилия 3) телефон. Организуйте вывод на экран монитора номера телефона по введённой с клавиатуры фамилии. Помогите сделать через указатель


textual

Код:

uses crt;
type ukz=^abn;
     abn=record
         nom:integer;
         fam:string[20];
         tel:string[11];
         end;
var f:file of abn;
    n,i:integer;
    a:ukz;
    fm:string[20];
begin
assign(f,'data');
rewrite(f);
writeln('Сколько абонентов записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  writeln('Абонент ',i);
  new(a);
  write('Номер: ');readln(a^.nom);
  write('Телефон: ');readln(a^.tel);
  write('Фамилия: ');readln(a^.fam);
  write(f,a^);
 end;
writeln('Введите фамилию для поиска');
readln(fm);
i:=0;
seek(f,0);
while not eof(f) do
 begin
  read(f,a^);
  if a^.fam=fm then
   begin
    i:=1;
    writeln(a^.tel);
   end;
 end;
close(f);
if i=0 then write('Абонента с такой фамилией нет')
end.


Похожие ответы
  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 program l7; var F1,F2:text;     R,K:real;     i:byte;     begin assign(F1,'E:\file1.txt'); rewrite(F1); assign(F2,'E:\file2.txt'); rewrite(F2); for i:=1 to 50 do begin R:=random(50); writeln(F1,R); end; begin repeat begin readln(F1,R); if R mod 2 = 1 then K:=sqr(R); writeln(F2,R); end; until K<50; end; close(F1); close(F2); end.

  1. Доброго времени суток! Необходима помощь: нужно организовать ввод данных в типизированный файл (.dat ) с возможность вывода их ( данных ) в виде таблицы через оный.Код:

  1. мне надо сделать такое задание на паскале : Определите тип треугольника (остроугольный, тупоугольный, прямоугольный) с данными сторонами. Формат входных данных: Даны три натуральных числа – стороны треугольника. Формат выходных данных: Необходимо вывести одно из слов: rectangular для прямоугольного треугольника, acute для остроугольного треугольника, obtuse для тупоугольного треугольника или impossible, если входные числа не образуют треугольника. Пример: Ввод - 3 4 5 Вывод - rectangular вот моя прога :

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 uses crt; var a,b,d:integer; k:string; begin; randomize;  repeat  clrscr;  a:=random(50);  if a=1  then begin   writeln('Начало русской государственности');   readln(k)   end   else   if a=2  then begin   writeln('Правление Рюрика');   readln(k) end   else           (if )    a(=1 and k='860' then begin writeln('ответ правильный');    else writeln('ответ неправильный, правильный ответ: 260 год, 18-25 июня') end     if     a=2 and k='862-879' then begin writeln('ответ правильный');    else writeln('ответ неправильный, правильный ответ: 260 год, 18-25я') endОшибка там, где k='860'. Программу ещё не завершил, решил проверить код и обнаружил эту ошибку. Пробовал k внести под integer и изменить значение в коде на integer, однако та же ошибка ПопробовалPascal23 24 25 if (a=1) and (k='860') then begin writeln('ответ правильный'); else writeln('ответ неправильный, правильный ответ: 260 год, 18-25 июня') endСказал, что нельзя ставить ";" перед else в операторе if 0_0, если её убрать, пишет, что ожидался символ ;

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 program file_4;   type   f = file of real;   var   cisla: f;   c: array[1..100] of real;   sr: real;   s: real;   i, n: integer;   str: shortstring;   begin   writeln('введите имя файла');   readln(str);   assign(cisla, str);   reset(cisla);   n := filesize(cisla);   for i:=1 to n do     read(cisla, c[i]);     for i := 1 to n do       s := s + c[i];   sr := s / n;   writeln('среднее арифметическое = ', sr); end.PABCSystem.pas(5944) : Ошибка времени выполнения: Bad typed file size

  1. При выполнении задачи Begin1 PaskalABC.net выдаёт ошибку: Неверно указан тип при выводе результатов. Для вывода 1-го элемента (вещественного типа) использовано выражение строкового типа.

  1. Работа с одним типизированным файлом. Создать файл и записать в него степени числа 3. Вывести на экран все компоненты числа с четным номером

  1. Написать программу, которая создает типизированный файл и записывает в него MxN значений. Имя для файла создает- ся по маске .dan. M-14 N-12 Type-Char

  1. Показывает ошибку "Операция 'and' не применима к типу KeyValuePair"