|
Ввести информацию по 3-м студентам ( порядковый — номер, — Ф.И.О. и три оценки) определить количество отличников и средний бал каждого студента.
bal : array [1..3] of integer —
i, j, kol, s : integer- sr : real- (далее…)
Категория: Записи |
Дата: 25.01.13
|
Составить программу, выводящую на экран сведения о периодических изданиях (наименование издания, тираж, годовая стоимость).
Program zap_10-
Uses Crt-
Const n=10-
Type izd = record
name:string[20]-
tir:integer-
stoim:real-
end-
Var a : array[1..n] of izd-
i :byte-
BEGIN
ClrScr-
for i:=1 to n do
with a[I] do
begin
Writeln(‘Введите наименование издания ‘,I)-
(далее…)
Категория: Записи |
Дата: 25.01.13
|
Составить программу, выводящую на экран расписание учителя (номер урока, время начала урока, класс, предмет, номер кабинета).
Program zap_11-
Uses Crt-
Const n=6-
Type rasp = record
k,k1:byte-
Vrem,klas,pred:string[20]-
end-
Var a : array[1..n] of rasp-
i :byte-
BEGIN
ClrScr-
for i:=1 to n do
with a[I] do
begin
Writeln(‘Введите номер урока ‘)-
(далее…)
Категория: Записи |
Дата: 25.01.13
|
Составить программу, выводящую на экран перечень товаров, имеющихся в продаже в магазине «Океан» (наименование, единица измерения, цена, количество).
Program zap_12-
Uses Crt-
Const n=10-
Type tovar = record
name,ed:string[20]-
cena:real-
kol:integer-
end-
Var a : array[1..n] of tovar-
i :byte-
BEGIN
ClrScr-
for i:=1 to n do
(далее…)
Категория: Записи |
Дата: 24.01.13
|
Составить программу, выводящую на экран «Телефонный справочник» (Ф. И. О., адрес, номер телефона). Произвести поиск по ФИО – выдать адрес и телефон.
Program zap_13-
Uses Crt-
Const n=10-
Type sprav = record
Fio,adres:string[20]-
tel:integer-
end-
Var a : array[1..n] of sprav-
i :byte-
fio2:string-
BEGIN
ClrScr-
(далее…)
Категория: Записи |
Дата: 24.01.13
|
Составить программу, выводящую на экран график отпусков (Ф. И. О., дата начала отпуска, дата выхода на работу, количество дней).
Program zap_14-
Uses Crt-
Const n=10-
Type grafik = record
Fio,dat1,dat2:string[20]-
kol:integer-
end-
Var a : array[1..n] of grafik-
i :byte-
BEGIN
ClrScr-
for i:=1 to n do
with a[I] do
(далее…)
Категория: Записи |
Дата: 24.01.13
|
Составить программу, выводящую на экран инвентаризационную ведомость (инвентаризационный номер, наименование, дата учета)
Program zap_15-
Uses Crt-
Const n=10-
Type opis = record
k:integer-
name,dat1:string[20]-
end-
Var a : array[1..n] of opis-
i :byte-
BEGIN
ClrScr-
for i:=1 to n do
with a[I] do
begin
Writeln(‘Введите инвентарный номер ‘)-
(далее…)
Категория: Записи |
Дата: 23.01.13
|
Составить программу, выводящую на экран ведомость начисленной заработной платы (Ф.И.О., должность, — дата рождения, заработная плата).
Program zap_16-
Uses Crt-
Const n=10-
Type sotrud = record
Fio,dol,dat1:string[20]-
zar:real-
end-
Var a : array[1..n] of sotrud-
i :byte-
BEGIN
ClrScr-
for i:=1 to n do
with a[I] do
(далее…)
Категория: Записи |
Дата: 23.01.13
|
Составить программу, выводящую на экран — изменения температуры по дням недели (дата, день недели, температура, влажность).
Program zap_17-
Uses Crt-
Const n=7-
Type temper = record
dat1,den:string[20]-
t,vl:integer-
end-
Var a : array[1..n] of temper-
i :byte-
BEGIN
ClrScr-
for i:=1 to n do
with a[I] do
begin
(далее…)
Категория: Записи |
Дата: 23.01.13
|
Ввести информацию по 10 участникам соревнований (ФИО, год рождения, результат). Определить победителя соревнований.
Program zap_18-
Uses Crt-
Const n=10-
Type strel = record
fio:string[20]-
god,rez:integer-
end-
Var a : array[1..n] of strel-
i ,k:byte-
max:integer-
BEGIN
ClrScr-
for i:=1 to n do
with a[I] do
begin
(далее…)
Категория: Записи |
Дата: 23.01.13
|
Страница 1 из 2712345...1020...»Последняя »
|
|