Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Vitaliy007
1

Паскаль, записи!

23.05.2011, 18:44. Показов 1061. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста с решением задачи!

Написати програму яка створює типізований файл, в який записує введений користувачем з клавіатури масив елементів типу запис з полями:
-прізвище, імя студента;
-оцінка по дисципліні(праця, по чотири бальній системі);
-оцінка по дисципліні(інформатика, по чотири бальній системі);
-стать студента;
Кількість елементів масиву вводиться з клавіатури.
 Комментарий модератора 
Язык форума русский! Переведите на русский язык сообщение.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2011, 18:44
Ответы с готовыми решениями:

Кто учил Паскаль по книге "Паскаль для школьников Ушаков Д.М,Юркова Т.А" отпишитесь
Ребят кто учил Pascal по книге "Паскаль для школьников Ушаков Д.М,Юркова Т.А" ,в общем дело такое...

Паскаль - записи
Задача: Дано описание записи: type данные=record имя:string; пол:char;...

паскаль,записи!
Помогите пожалуйста написать программу на записи... Из множества латинских букв выделить...

Паскаль на записи!!!!
Задан массив записей следующей структуры:фамилия, имя , отчество,пол,возраст,курс, причём в...

3
8 / 8 / 1
Регистрация: 16.05.2011
Сообщений: 26
24.05.2011, 00:14 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
type obychenue=record
FUO, pol:string[50];
ozenkatrud:integer;
ozenkaunformatuka:integer;
end;
var a:array[1..2] of obychenue;
i,n: integer;
begin
n:=8;
for i:=1 to 2 do 
with a[i] do 
begin
writeln(' FUO,pol,ozenkatrud,ozenkaunformatuka');
readln(FUO);
readln(pol);
readln(ozenkatrud);
readln(ozenkaunformatuka);
end;
writeln('vv dannuh');
writeln((' FUO_________,pol_________,ozenkatrud___________,ozenkaunformatuka______');
for i:=1 to 2 do
with a[i] do
writeln((' FUO:25,pol:10,ozenkatrud:2,ozenkaunformatuka:2');
end.
1
Vitaliy007
24.05.2011, 13:34 3
большое спасибо!
8 / 8 / 1
Регистрация: 16.05.2011
Сообщений: 26
24.05.2011, 21:35 4
всегда пожалуйста)
0
24.05.2011, 21:35
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2011, 21:35
Помогаю со студенческими работами здесь

Паскаль -Записи.
Переписать сведения о багаже из переменной Bagaj в переменную Bag. В переменной Bag сведения о...

Паскаль, записи!!!
Помогите,плиз!!!!! 1)Составить программу, выводящую на экран студенческую ведомость (Ф. И. О.,...

Записи. Паскаль
Напечатать анкетные данные студентов, что учатся на 4 и 5.

Паскаль, записи и строки.
На основе записной книжки, содержащей сведения: -фамилия -год рождения -адрес(город, улица,...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru