Задача на файлы

@nnpnp · Регистрация: 01.02.2018

Студворк — интернет-сервис помощи студентам

Pascal
1
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
    var Auto,Country: text;
        Date: file of integer;
        Cost: file of integer;
        x,y:string;
        i,n,z,e:integer;
        
        BEGIN
        
        assign (auto,'auto.txt');
        rewrite (Auto);
        assign(Country,'Country.txt');
        rewrite(Country);
        assign(date,'date.txt');
        rewrite(Date);
        assign(Cost,'Cost.txt');
        rewrite(cost);
        
        for i:=1 to 5 do begin
                          read(x);
                          read(y);
                          read(z);
                          read(e);
                          write(auto,x);
                          write(contry,y);
                          write(date,z);
                          write(cost,e);
                          end;
        close(auto);
        reset(auto); 
        close(contry);
        reset (contry); 
        close(date);
        reset (date); 
        close(cost);
        reset (cost); 
        for i:=1 to 5 do begin      
                          n:=0;
                          read(date,z);
                          if z=2000 then begin
                                         read(auto,x);
                                         if x='Toyota' then inc(n);
                                         read(country,z);
                                         read(date,b);
                                         read(cost,e);
                                         write(x,y,z,e);
                                         end;
                          end;
                          
        Write('Количество машин Тойота=',n)                  
        end.

Есть несколько файлов. Нужно записать в них данные и вывести по условию дата выпуска 2000, вроде правильно написал. И еще есть итоговая строка количеств машин Тойота. Где ошибка, объясните пожалуйста почему так

@Sun Serega · 24.11.2018, 16:19

Pascal
1
2
3
4
begin
  var f: file of string[20];
  f.Read.Print;
end.

@nnpnp · 24.11.2018, 16:20 **[ТС]**

Спасибо всем

Новые блоги и статьи Все статьи Все блоги /
[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .

@nnpnp 1 / 1 / 1 Регистрация: 01.02.2018 Сообщений: 268
	24.11.2018, 16:20 [ТС]
	Спасибо всем 0