Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Вычисления значения функции https://www.cyberforum.ru/ turbo-pascal/ thread595283.html
Составьте программу для вычисления значения функции y=tg(2x)+log3(2x2)-3 на отрезке с шагом 0,5.
Имеется типизированный файл с числами. Найти: сумму первого и второго чисел файла Turbo Pascal
7. Имеется типизированный файл с числами. Найти: сумму первого и второго чисел файла. Добавлено через 5 часов 42 минуты Ребят реально нужно помогите пожалуйста )
Turbo Pascal Обработка строк. Признак окончания ввода строки. Удаление слов из строк https://www.cyberforum.ru/ turbo-pascal/ thread595257.html
1. Ввести с клавиатуры строку символов. Признак окончания ввода строки - нажатие клавиши "Ввод". Программа должна определить длину введенной строки L и если длина строки L>5, то выделяется подстрока...
Turbo Pascal Действия с координатами точек. Даны координаты трех точек. Если они могут быть вершинами равностороннего треугольника, вычислить его площадь и высоту https://www.cyberforum.ru/ turbo-pascal/ thread595253.html
Пожалуйста помогите решить две задачи. 3.2 Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами равностороннего треугольника, вычислите его площадь и длину высоты. Выведите...
Turbo Pascal Преобразовать Двухмерный массив в одномерный
Беда с блок-схемами, ничего не получается. Если не сложно помогите. program Project7; {$APPTYPE CONSOLE} uses SysUtils; FUNCTION Ru ( S : string ) : string ;
Turbo Pascal Блок-схема к программе вычисления факториала Программа написана, а вот с блок-схемами у меня беда :( Прошу помощи. program Project2; {$APPTYPE CONSOLE} uses SysUtils; FUNCTION Ru ( S : string ) : string ; https://www.cyberforum.ru/ turbo-pascal/ thread595214.html
Turbo Pascal Единичная матрица,массивы 1)Для заданного N напечатать единичную матрицу N-го порядка. 2)Найти количество слов в заданном предложении. Слова отделяются друг от друга пробелами и/или знаками препинания. 3)Удалить из... https://www.cyberforum.ru/ turbo-pascal/ thread595212.html Многомодульная программа обработки двух файлов последовательным и прямым доступом Turbo Pascal
unit typ_a; interface type fkl=record numkl:integer; imkl:string; kolkom:integer; datzav:string; end; type post=record data:string;
Turbo Pascal Некорректное отображение русских символов в текстах программы https://www.cyberforum.ru/ turbo-pascal/ thread595177.html
как сделать чтоб русские буквы в моём коде корректно отображались и на других компьютерах
Turbo Pascal Создать рамку таблицы и выполнить поиск https://www.cyberforum.ru/ turbo-pascal/ thread595157.html
Помогите оформить рамку таблицы с помощью псевдографики. Сделать сортировку и поиск по имени. uses crt,dos,graph; type stud=record name,adr,mail,dom,mob:string;end; tab=arrayof stud; ...
Построить график с координатной сеткой Turbo Pascal
Построить график с координатной сеткой. Функция f(x)=(-1/x*x)-((cos(1/x))/x*x);
Turbo Pascal Модуль DOS. Каждые 30 с на экране меняется расположение и цвет окна. В окнах высвечивается текущее время Каждые 30 с на экране меняется расположение и цвет окна ( по очереди ). В окнах высвечивается текущее время: часы, минуты, секунды. Программа активна до нажатия любой клавиши. https://www.cyberforum.ru/ turbo-pascal/ thread595086.html
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
04.06.2012, 16:03 0

Создание и обработка файлов. Создать файл, элементами которого являются сведения о ягодах: название, месяц цветения и месяц сбора - Turbo Pascal - Ответ 3123351

04.06.2012, 16:03. Показов 742. Ответов 3
Метки (Все метки)

Ответ

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
uses crt;
const line='------------------------------------------------------';
      shap='|      Название       | Месяц цветения | Месяц сбора |';
      tg=2012;
 
type berry = record
     nam:  string[20];
     zvt:  1..12;
     sbr:  1..12;
     end;
 
var f: file of berry; v: byte;
 
procedure Vvod (var ff: file of berry);
var i,n: integer; b: berry;
begin
clrscr;
assign(ff,'D:\BD.dta');
rewrite(f);
write('Количество записей: '); readln(n);
writeln('Внесите данные:');
for i:=1 to n do
    with b do
         begin
         write('Название: '); readln(nam);
         write('Месяц цветения: '); readln(zvt);
         write('Месяц сбора: '); readln(sbr);
         write(ff,b);
         end;
close (ff);
end;
 
procedure Vyvod (ff: file of berry);
var b: berry;
begin
clrscr;
assign(ff,'D:\BD.dta');
reset(ff);
writeln('Сведения о ягодах ');
writeln(line);
writeln(shap);
writeln(line);
while not (eof(ff)) do
      begin
      read(ff,b);
      with b do writeln('|',nam:20,'|':2,zvt:10,'|':7,sbr:7,'|':7);
      writeln(line);
      end;
writeln(line);
close (ff);
end;
 
procedure Find (ff: file of berry);
var b: berry; tz,ts: byte;
begin
clrscr;
tz:=13; ts:=0;
assign(ff,'D:\BD.dta');
reset(ff);
while not (eof(ff)) do
      begin
      read(ff,b);
      if b.zvt<tz then tz:=b.zvt;
      if b.sbr>ts then ts:=b.sbr;
      end;
reset(ff);
writeln('Самые рано цветущие ягоды:');
while not (eof(ff)) do
      begin
      read(ff,b);
      if b.zvt=tz then writeln(b.nam);
      end;
writeln(line);
reset(ff);
writeln('Самые поздно собираемые ягоды:');
while not (eof(ff)) do
      begin
      read(ff,b);
      if b.sbr=ts then writeln(b.nam);
      end;
close (ff);
end;
 
begin
v:=1;
repeat
writeln('0-завершение работы');
writeln('1-ввод данных');
writeln('2-вывод данных');
writeln('3-поиск самой рано цветущей и самой поздно собираемой ягоды');
readln(v);
case v of
1: Vvod (f);
2: Vyvod (f);
3: Find (f);
end;
until v=0;
end.


Вернуться к обсуждению:
Создание и обработка файлов. Создать файл, элементами которого являются сведения о ягодах: название, месяц цветения и месяц сбора Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2012, 16:03
Готовые ответы и решения:

Создать файл, элементами которого являются сведения о городах: название, численность населения, территория
ваще не знаю как это делать((хелп((с файлами беда.. Создать файл,элементами которого являются...

Создать файл с полями: название магазина, месяц, объем продаж за месяц
Создать файл с полями: название магазина, месяц, объем продаж за этот месяц. Подсчитать количество...

Создать файл, элементами которого являются сведения о деревьях
Создать файл, элементами которого являются сведения о деревьях: наименование, место...

Создать файл, элементами которого являются сведения о городах
Создать файл, элементами которого являются сведения о городах: Название, число жителей, Удаленность...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2012, 16:03

Создать файл, элементами которого являются сведения о городах
8.7 Создать файл, элементами которого являются сведения о городах: название, число жителей,...

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

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

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

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