Меню сайта

Ввести информацию по 3-м студентам ( порядковый — номер, — Ф.И.О. и три оценки) определить количество отличников и средний бал каждого студента.


Program zap_1-

Type student = record

n : integer —

fio : string[40] —

bal : array [1..3] of integer —

end-

Var spisok : student — —

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...Последняя »
Меню раздела
Блок