Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2009, 23:12   #1
cinik
 
Регистрация: 23.05.2009
Сообщений: 5
По умолчанию Задачи Turbo Pascal

№1
Вывести фамилии,имена,отчества и средние баллы студентов,не получающих стипендии.
№2
Даны матрицы A(4x4),B(7x6) и С(3х8).Вычислить значение выраженияSA+SB)*SC,
где SA,SB,SC - произведения положительныхэлементов A,B,C соответственно.
№3
Сведения о компьютерах некоторого учреждения состоят из марки компьютера,даты приобретения.номера комнаты,где находится компьютер и фамилииответственного лица.Вывести сведения о компьютерах IBM PC-486,приобретённых в 1995г.
cinik вне форума Ответить с цитированием
Старый 05.12.2009, 08:29   #2
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

Цитата:
Задачи Turbo Pascal
и чего с ними делать?
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Старый 05.12.2009, 09:56   #3
Лубышев
Участник клуба
 
Аватар для Лубышев
 
Регистрация: 23.07.2007
Сообщений: 1,054
По умолчанию

Это проверка на знания как работать с типами данных?

1.

Код:
Type Stud=record
LastName:string[20];{Фамилия}
Name:string[20];      {Имя}
Oth:string[20];        {Отчество}
srbal:string[20];       {Средний бал}
end;

const colstud=20;{количество студентов}

var stud:array[0..colstud] of Stud;{массив из студентов, в который будем вводить значения}
i:integer;{счетчик итераций}
begin
for i:=0 to colstud-1 do {цикл по вводу данных в массив}
begin
write('Введите фамилию: ');
readln(Stud[i].LastName);
write('Введите имя: ');
readln(Stud[i].Name);
write('Введите средний балл: ');
readln(Stud[i].srbal); writeln('');
end;

readln;
end.
только я тоже не понимаю че с этим делать то? нафиг это?
Писано по д'Эльфийски
Лубышев вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи по Turbo Pascal (Массивы) pav19 Помощь студентам 1 10.12.2010 17:44
задачи в Turbo Pascal VEN7 Помощь студентам 7 31.05.2009 20:01
а free pascal не читает задачи которые написаны на turbo pascal? demonara Паскаль, Turbo Pascal, PascalABC.NET 3 25.05.2009 16:28
Задачи по Turbo Pascal JennyTanaka Помощь студентам 6 08.04.2009 20:38
2 задачи на Turbo Pascal cuzo Помощь студентам 1 19.12.2008 16:04