Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 24.09.2011, 14:52   #1 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию Паскаль, помощь в доработке программ

Определить, какой марки (makra) автомобилей больше всего.
Код:
type
date=record
num:string[20];
marka:string[20];
fam:string[20];
teh:byte;
end;
var
sved:array[1..100] of date;
k,n,i:integer;
f:text;
begin
assign (f,'C:/3.txt');
rewrite(f);
write ('Enter n=');
readln(n);
for i:=1 to n do begin
write ('nomer=');
readln (sved[i].num);
write ('marka=');
readln(sved[i].marka);
write ('fam=');
readln(sved[i].fam);
write ('(0,1)teh=');
readln (sved[i].teh);
if sved[i].teh=0 then writeln (f,sved[i].num,'    ',sved[i].fam);
end;
close(f);
end.
shrek=) вне форума   Ответить с цитированием

Старый 24.09.2011, 14:52
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Не стоит просто напросто ждать ответов, лучше ознакомиться с похожими темами

Паскаль, помощь в доработке программ
Паскаль, помощь в доработке программ.
Помогите в доработке компьютера
Вопрос по доработке 35АС-212
Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл

Старый 24.09.2011, 18:32   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от shrek=) Посмотреть сообщение
Определить, какой марки (makra) автомобилей больше всего.
Да, Миша - очень Вы меня огорчили. Да что с Вами? Вы же нормально раньше с подобными пустяками справлялись!
Ну ладно.
Прежде всего - я напрочь не понял, что такое teh и зачем там файл, а потому это отключил, чтобы не мешало. А один из возможных вариантов решения задачки таков:

Код:
type
 date=record
  num:string[20];
  marka:string[20];
  fam:string[20];
  {teh:byte; }
 end;
var
 sved:array[1..100] of date;
 k,n,i:integer;
 {f:text;}

 j,Jfix,Nm:Integer;
 Marks:Array[1..100] of string[20];
 N_marks:Array[1..100] of Byte;
 Max_marks:Byte;
 b:boolean;
begin
 {assign (f,'C:/3.txt');
 rewrite(f);  }
 write ('Enter n= ');
 readln(n);
 Nm:=0;
 for i:=1 to n do N_marks[i]:=1;
 for i:=1 to n do
  begin
   b:=true;
   write ('nomer= ');
   readln (sved[i].num);
   write ('marka= ');
   readln(sved[i].marka);
   For j:=1 to Nm do
    if Marks[j]=sved[i].marka then
     begin
      b:=false;
      Jfix:=j;
     end;
   If b then
    begin
     Inc(Nm);
     Marks[Nm]:=sved[i].marka;
    end
   else Inc(N_marks[Jfix]);
   write ('fam= ');
   readln(sved[i].fam);
  { write ('(0,1)teh=');
   readln (sved[i].teh);
   if sved[i].teh=0 then writeln (f,sved[i].num,'    ',sved[i].fam); }
   writeln;
  end;
 {close(f);  }
 Max_marks:=0;
 for j:=1 to Nm do
  begin
   Writeln(Marks[j],' ',N_marks[j]);
   if N_marks[j]>Max_marks then
    begin
     Max_marks:=N_marks[j];
     Jfix:=j;
    end;
  end;
 writeln;
 writeln('Maximum:');
 writeln(Marks[Jfix],' ',N_marks[Jfix]);
 readln;
end.
Vladimir_S вне форума   Ответить с цитированием
Старый 24.09.2011, 18:38   #3 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Файл нужен был потому, что задание выглядит так:
Сведения об автомобиле состоят из номера, марки, фамилии, признака прохождения техосмотра. Написать программу для занесения в массив информации о n автомобилях. Найти номера и владельцев, не прошедших техосмотр. (ЭТО Я СДЕЛАЛ). Определить, какой марки автомобилей больше всего. Занести информацию в файл.
shrek=) вне форума   Ответить с цитированием
Старый 24.09.2011, 18:52   #4 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Совместив оба кода все таки довел программу до логического завершения.

P.S. Эта одна из программ расчетной работы 4 курса педагогического университета по специальности физика-информатика, которые студенты этой специальности не решают.
shrek=) вне форума   Ответить с цитированием
Старый 26.09.2011, 12:26   #5 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Хех, что, студенческая жизнь заставила за ум взяться? Говорили же вам в свое время, учите ЯП, пригодится, так нет, хихикали над нравоучениями

Миша, полностью код выложите, свое вы уже заработали

З.Ы. Первый курс делает РГР для четвертого, это неплохо, конечно, но нафига такие спецы (выпускники 4 курса) нужны будут? Эникейщиков и так хватает.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:24.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.