|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
24.09.2011, 14:52 | #1 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Паскаль, помощь в доработке программ
Код:
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. |
24.09.2011, 14:52 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Не стоит просто напросто ждать ответов, лучше ознакомиться с похожими темами Паскаль, помощь в доработке программ Паскаль, помощь в доработке программ. Помогите в доработке компьютера Вопрос по доработке 35АС-212 Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл |
24.09.2011, 18:32 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да, Миша - очень Вы меня огорчили. Да что с Вами? Вы же нормально раньше с подобными пустяками справлялись!
Ну ладно. Прежде всего - я напрочь не понял, что такое 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. |
24.09.2011, 18:38 | #3 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Файл нужен был потому, что задание выглядит так:
Сведения об автомобиле состоят из номера, марки, фамилии, признака прохождения техосмотра. Написать программу для занесения в массив информации о n автомобилях. Найти номера и владельцев, не прошедших техосмотр. (ЭТО Я СДЕЛАЛ). Определить, какой марки автомобилей больше всего. Занести информацию в файл. |
24.09.2011, 18:52 | #4 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Совместив оба кода все таки довел программу до логического завершения.
P.S. Эта одна из программ расчетной работы 4 курса педагогического университета по специальности физика-информатика, которые студенты этой специальности не решают. |
26.09.2011, 12:26 | #5 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Хех, что, студенческая жизнь заставила за ум взяться? Говорили же вам в свое время, учите ЯП, пригодится, так нет, хихикали над нравоучениями
Миша, полностью код выложите, свое вы уже заработали З.Ы. Первый курс делает РГР для четвертого, это неплохо, конечно, но нафига такие спецы (выпускники 4 курса) нужны будут? Эникейщиков и так хватает.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|