Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 16.01.2014
Сообщений: 6
1

Определить количество и средний пробег автомобилей, выпущенных до 1990 года

22.01.2014, 20:31. Показов 443. Ответов 1
Метки нет (Все метки)

Определить количество и средний пробег автомобилей, выпущенных до 1990 года.
Ребят помогите с прогой я ее начел но закончить немогу
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
        const n=3;
type
    anketa=record
         vlasnik:string;
         marka:string;
         nomer:integer;
         probig:real;
         rik:integer;
        end;
 
 
 
 
var F:text;
    F1:file of anketa;
    temp: array [1..n] of anketa;
    nam,s,str:string;
   wer,i,max,code:integer;
begin
      assign(F,'D:\Program Files\hipi.inf');
 
      assign(F1,'D:\Program Files\hipi.dat');
      reset(F);
      rewrite(F1);
      max:=0;
 
      i:=1;
   while not EOF(F) do
файл с которым пыталса сойденить выгледит так
№ п.п. Марка автомобіля Номер Рік випуску Пробіг км Власник
1 TOYOTA 5697 1999 4500 Іван
2 MAZDA 7643 1991 4326 Петро
3 Audi 7235 2000 4236 Василь
4 Land-rover 5674 1985 3414 Дмитро
5 Opel 3258 1986 6784 Богдан
6 Fiat 9747 1973 4354 Роман
7 BMW 0706 1988 5463 Андрій
8 Suzuki 0564 1993 5641 Віталій
Помогите пожалуйста завтра здать нужно
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2014, 20:31
Ответы с готовыми решениями:

Вывести фамилии владельцев и номера автомобилей выпущенных позже 2011 года
1) Сведения об автомобиле состоят из его марки, номера, фамилии владельца и год выпуска. Вывести...

Определить название месяца по количеству дней прошедших с 1 января 1990 года
Составить программу : с 1 января 1990 года по некоторый день прошло n дней, определить название...

С января 1990 года по некоторый день прошло m месяцев определить название текущего месяца
Сянваря 1990 года по некоторый день прошло m месяцев определить название текущего месяца

С 1 января 1990 года по некоторый день прошло m месяцев и n дней, определить название текущего месяца
С 1 января 1990 года по некоторый день прошло m месяцев и n дней, определить название текущего...

1
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
23.01.2014, 12:59 2
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
const n=3;
type  anketa=record
         vlasnik:string;
         marka:string;
         nomer:integer;
         probig:real;
         rik:integer;
        end;
var F:text;
    mas: array [1..n] of anketa;
    i,max:Integer;
    answer,prob:Real;
begin
  max:=0;prob:=0;
  assign(F,'database.txt');
  Rewrite(F);
  max:=0;
  for i:=1 to n do
    begin
      Write(i,' auto = ');
      Write(F,i,' ');
      Write('   Enter Marka = ');Readln(mas[i].marka);write(mas[i].marka,' ');
      Write('   Enter Number = ');Readln(mas[i].nomer);write(mas[i].nomer,' ');
      Write('   Enter Year = ');Readln(mas[i].rik);write(mas[i].rik,' ');
      Write('   Enter Km = ');Readln(mas[i].probig);write(mas[i].probig,' ');
      Write('   Enter Name = ');Readln(mas[i].vlasnik);write(mas[i].vlasnik,' ');
      Writeln(F,'');
    end;
  Writeln('Enter data finish.');
  for i:=1 to n do
  begin
   if (mas[i].rik<=1990) then
    begin
      Inc(max);
      prob:=prob+mas[i].probig;
    end;
  end;
  answer:=(prob/max);
  Writeln('Answer [',max,' / ',prob,'] = ',answer);
  CloseFile(F);
  readln;
end.
примерно вот так делал на телефоне проверить не могу
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.01.2014, 12:59

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Даны результаты переписи населения. Вывести фамилии, имена и подсчитать количество жителей, родившихся после 1990 года
СРОЧНО нужна помощь по решению задачи Условие: Даны результаты переписи населения, которые...

Процедура определяет колиество автомобилей, выпущенных в заданном году
задание таково: в основной программе создаётся файл произвольного доступа для хранения сведений об...

Определить число людей, родившихся до 1985 года, и число людей, родившихся после 1990 года
1)Известен год рождения-каждого человека из группы. Определить число людей, родившихся до 1985...

Определить максимальное количество выпущенных столов
Задача. Известно количество сделанных столов тремя фабриками за два квар-тала. Определить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.