помогите с задачей( паскаль или шарп... - Форум
Среда, 07.12.2016, 11:33
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите с задачей( паскаль или шарп...
помогите с задачей( паскаль или шарп...
LuckyStarДата: Понедельник, 14.12.2009, 16:22 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Имеется документ «ведомость изданных книг» в документе имеются следующие реквизиты:
1. «название книг» реквизит представлен в виде символьной строки длинной 40 символов
2. «фамилия, имя, отчество автора» реквизит представлен в виде символьной строки длинной 30 символов
3. «год издания» реквизит представлен в виде числа не имеющего дробной части
4. «название издательства» реквизит представлен в виде символьной строки длинной 20 символов
5. «тираж» реквизит представлен в виде числа не имеющего дробной части
Требуется разработать программный код, включающий процедуру, которая обеспечивает формирование числового массива содержащего номера строк документа, относящиеся к заданному автору

О4ень о4ень нужно...(

 
kostyrninДата: Пятница, 18.12.2009, 17:41 | Сообщение # 2
Лейтенант
Группа: Новичок
Сообщений: 11
[ 0 ]
Статус: Offline
PROGRAM zapis;
TYPE student=record
FIO: string[5];
GODR: INTEGER;
OZENKI: RECORD
MATEM, IST, INF, FIS: 1..5;
END
END;
VAR WED: ARRAY [1..10] OF STUDENT;
ST: STUDENT;
I, J, K: INTEGER;
Z: BOOLEAN;
BEGIN
WRITELN ('Введите ФИО (не более 5 символов, недостающее');
WRITELN ('количество заполнить пробелами), год рождения,');
WRITELN ('оценки: математика, история, информатика, физика');
WITH ST, OZENKI DO
BEGIN
FOR I:=1 TO 3 DO
BEGIN WRITE ('?');
READ(FIO);
READLN(GODR, MATEM, IST, INF, FIS);
WED[I]:=ST
END
END;
WRITELN ('список');
K:=0;
FOR I:=1 TO 3 DO
WITH WED[I], OZENKI DO
BEGIN
Z:=(MATEM<>3) AND (IST<>3) AND (INF<>3) AND (FIS<>3);
IF Z THEN BEGIN
K:=K+1;
WRITELN(GODR,' ',FIO)
end;
end;
end.
прога подобная твоей! надо переделать!
 
LuckyStarДата: Среда, 30.12.2009, 15:25 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
мне очень неловко... но я полный 0 в программировании( даже не представляю что тут нужно переделывать((
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите с задачей( паскаль или шарп...
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016