Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Сколько всего пропущено уроков и сколько пропущено всего по уважительной причине - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Вывести таблицу значений функций в заданном интервале http://www.cyberforum.ru/cpp-beginners/thread1213820.html
Помогите пожалуйста, я только начал программировать на С++, вот задание дали и я запутался: Вывести таблиц значений функций в заданном интервале. В каждом столбце обеспечить выравнивание с левого...
C++ В исходную строку добавьте после каждого символа его номер по порядку в алфавите В исходную строку добавьте после каждого символа его номер по порядку в алфавите. Я сравниваю строку со строкой алфавита и если символы равны,то индекс преобразую в строку и копирую в вспомогающую... http://www.cyberforum.ru/cpp-beginners/thread1213751.html
C++ Создание доп массива с главного массива
Есть задача в которой нужно создать два двумерных массива и с первого двумерного массива вывести главную диагональ, а со второго массива вывести побочную диагональ. Вывести диагонали нужно по...
Дайте определение терминам C++
Дайте определение этому 1. Структура программы на языке Си++. 2. Операторы объявления имен и операторы-выражения в С++. 3. Операторы управления в С++. 4. Обработка одномерных и двумерных...
C++ Расчёт сложного процента http://www.cyberforum.ru/cpp-beginners/thread1213740.html
Программа для расчёта процента по вкладу. В ней появились новые для меня операторы такие как : setw,pow. Что они обозначают? И ещё чем double отличается от float? Объясните пожалуйста кому не трудно....
C++ По введенным с клавиатуры номеру месяца и дня определить, сколько дней осталось до Нового Года Здравствуйте!Написал программу, но как то коряво получилось помогите пожалуйста привести к удобоваримому виду. Задание: Напишите программу, которая вводит с клавиатуры номер месяца и день, и... подробнее

Показать сообщение отдельно
Ganz1846
0 / 0 / 0
Регистрация: 08.06.2014
Сообщений: 38

Сколько всего пропущено уроков и сколько пропущено всего по уважительной причине - C++

21.06.2014, 23:33. Просмотров 394. Ответов 2
Метки (Все метки)

Написать программу на файл написать Ф. И. О., месяц пропусков, сколько всего пропущено уроков и сколько пропущено всего по уважительной причине уроков. Нужно чтобы над списком можно было проводить эти операции: создание, до запись, печать, удаление, корректировка.
Вот код программы в TurboPascal
Создание, до запись:
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
uses crt;
type a1=record
fio,m,pv,py:string;
end;
var a:a1; fa:file of a1;
n:integer;
begin system.filemode:=2; assign(fa,'prop26');{$i-}reset(fa);{$i+}
if ioresult=0 then begin
                          writeln('До запись'); seek(fa,filesize(fa));reset(fa);
                        end
                   else begin
                           writeln('Создание');
                           rewrite(fa);
                        end;
with a do
while true do begin
writeln;
writeln('Ф. И. О.');readln(fio);
if fio='*' then begin close(fa); break end;
writeln('Месяц');readln(m);
writeln('Пропущено всего дней');readln(pv);
writeln('Пропущено по уважительной причине');readln(py);
writeln; n:=n+1;
writeln(n,'. Запись введена');
write(fa,a);
end;
readkey;
end.

Печать:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
type a1=record
fio,m,pv,py:string;
end;
var a:a1; fa: file of a1;
n:integer;
begin clrscr; system. filemode:=2;
assign(fa,'prop26');
reset(fa); seek(fa,0);
while not eof (fa) do begin
read(fa,a);
writeln(a.fio:5, a.m:10, a.pv:15, a.py:20);
end;
readkey;
end.

Удаление:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
type a1=record
number,fio,m,pv,py:string; end;
var a:a1; fa:file of a1;
k,n:integer;
begin clrscr; system. filemode:=2; assign (fa,'prop26');
reset(fa);
with a do
while not eof(fa) do begin
read(fa,a);
writeln('#',filepos(fa)+1,fio:15,m:16,pv:15,py:15);
writeln('Удалить? Да(1)/Нет(0)');
readln(k);
n:=filepos(fa)-1;writeln(number);
if k=1 then begin seek(fa,filesize(fa)-1); read(fa,a); writeln(number);
                  seek(fa,n); write(fa,a);
                  seek(fa,filesize(fa)-1); truncate(fa); writeln('Удалено');
                  end;writeln;
                  end;close(fa);
end.
Корректировка:
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
uses crt;
type a1=record
fio,m,pv,py:string;
end;
var a:a1; fa:file of a1;
k,n:integer;
begin system. filemode:=2; assign(fa,'prop25');reset(fa);
with a do
while not eof (fa) do begin
read(fa,a);
writeln(a.fio:5, a.m:10, a.pv:15, a.py:20);
writeln('Нужна корректировка Да(1)/Нет(0)');
readln(k);
if k=1 then begin
writeln('Выбор корректировки');
writeln('1. Ф. И. О.');
writeln('2. Месяц');
writeln('3. Пропущено всего дней');
writeln('4. Пропущено уважительных дней');
writeln('5. Все поля компонентов');
readln(n);
case n of
1: begin writeln('Введи Ф. И. О.'); readln(fio);end;
2: begin writeln('Введи месяц'); readln(m);end;
3: begin writeln('Введи пропущенных всего дней'); readln(pv);end;
4: begin writeln('Введи пропущенных по уважительной причине'); readln(py);end;
5: begin writeln('Ф. И. О.'); readln(fio);
         writeln('Месяц'); readln(m);
         writeln('Пропущено всего дней');readln(pv);
         writeln('Пропущено по уважительной причине');readln(py);end;
         end;
seek(fa,filepos(fa)-1);
write(fa,a);
end;end;
readkey;
end.
Добавлено через 4 часа 21 минуту
help me

Добавлено через 1 час 47 минут
help
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru