записи

@natalunchic · Регистрация: 12.05.2009

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

распечатать список учеников музюшколыЮ которые учатся играть на скрипке. указать так же сколько лет они занимаются музыкой и принимали ли участие в каких-либо конкурсах
Помогите, пожалуйста!!!!!!!!!!!!!!умоляю!!!!!!!!!! !!!
заранее благодарю

@hanszirke · 16.05.2009, 14:54

а что вы сами написали - хоть какая-то заготовка есть (обьявление списка и тп)?

@natalunchic · 16.05.2009, 15:08 **[ТС]**

Сообщение от hanszirke

а что вы сами написали - хоть какая-то заготовка есть (обьявление списка и тп)?

uses crt;
type chel=record
fio: string[50];
leta:integer;
konkurs:string[10];
end;
var r:chel;
f: file of chel;
i,n,k: byte;
procedure vvod;
begin rewrite(f);
writeln('vvod kol-vo ychenicov

;
readln(n);
writeln('vvod ychenicov:');
for i:=1 to n do
begin
writeln('vvedi fio ych-ka:');
readln(r.fio);
writeln('vvedi kol-vo let:');
readln(r.leta);
writeln('vvedi uchastie v konkursah:');
readln(r.konkurs);
write(f,r); end;
close(f);
end;
procedureobr;
reset(f);
while not eof(f) do begin read(f,r);
writeln(r.fio,' ',r.leta' ',r.konkurs);
end;
close(f);
end;
а процедуру обрабоки не знаю как сделать((((((

@hanszirke · 16.05.2009, 17:02

natalunchic, вот код, остальное можно доделать по своему вкусу
а вообще уроки учить надо

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
program ProjectMus;
type
chel=record
fio: string[50];
leta:integer;
konkurs:string[10];
end;
 
Tmusic=array [1..100] of chel;
 
var
mus:Tmusic;
r:chel;
i,n,k: byte;
q: char;
 
procedure vvod;
begin
write('vod kol-vo ychenicov: ');
readln(n);
writeln('vvod ychenicov: ' );
for i:=1 to n do
begin
write('vvedi fio ych-ka: ');
readln(mus [i].fio);
write('vvedi kol-vo let: ');
readln(mus [i].leta);
write('vvedi uchastie v konkursah: ');
readln(mus [i].konkurs);
writeln(mus [i].fio,' ',mus [i].leta,' ',mus [i].konkurs);
writeln ('OK, dobavleno');
end;
writeln;
end;
 
PROCEDURE obr;
type
Tf=File of Tmusic;
var
vf:Tf;
begin
Assign (vf,  'my.dat');    {инициализация}
Rewrite (vf);
for i:=1 to n do
writeln(mus [i].fio,' ',mus [i].leta,' ',mus [i].konkurs);
write (vf, mus);
close (vf);
end;
 
{меню}
begin
 Repeat
 Writeln ('*************');
 Writeln ('Program Mus');
 Writeln ('*************');
 Writeln ('1: dobavit');
 Writeln ('2: sohranit');
 Writeln ('0: Exit');
 Writeln ('*************');
 Readln (q);
 case q of
   '1': vvod;
   '2': obr;
 end;
 Until q='0';
end.

@natalunchic · 16.05.2009, 17:06 **[ТС]**

надо *sorry*
спасибо большое

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@natalunchic 0 / 0 / 0 Регистрация: 12.05.2009 Сообщений: 10

	записи 16.05.2009, 14:17. Показов 611. Ответов 4 Метки нет (Все метки) распечатать список учеников музюшколыЮ которые учатся играть на скрипке. указать так же сколько лет они занимаются музыкой и принимали ли участие в каких-либо конкурсах Помогите, пожалуйста!!!!!!!!!!!!!!умоляю!!!!!!!!!! !!! заранее благодарю 0

@hanszirke 5 / 5 / 0 Регистрация: 13.05.2009 Сообщений: 11
	16.05.2009, 14:54
	а что вы сами написали - хоть какая-то заготовка есть (обьявление списка и тп)? 0

@natalunchic 0 / 0 / 0 Регистрация: 12.05.2009 Сообщений: 10
	16.05.2009, 17:06 [ТС]
	надо sorry спасибо большое 0