Меню сайта

Ввести информацию по 10 перевозкам (Nрейса, пункт назначения, наименование, вес). Найти суммарный объем всех перевозок.


Program zap_19-

Uses Crt-

Const n=10-

Type reys = record

k:integer-

punkt,tovar:string[20]-

ves:real-

end-

Var a : array[1..n] of reys-

i :byte-

s:real-

BEGIN

ClrScr-

S:=0-

for i:=1 to n do

(далее…)

Категория: Записи | Дата: 22.01.13

Ввести информацию по 10 избирателям, определить количество людей, проживающих на улице Красная.


Program zap_2-

Uses Crt-

Const n=10-

Type data = record

name,street : string-

end-

Var a : array[1..n] of data-

count,i :byte-

BEGIN

ClrScr-

count:=0-

for i:=1 to n do

begin

Writeln(‘Избиратель ‘,i)-

Writeln(‘Имя…’)-

Readln(a[i].name)-

(далее…)

Категория: Записи | Дата: 22.01.13

Ввести информацию по 10 школьникам (ФИО, пол, год рождения). Определить количество мальчиков и девочек. Вывести список каждых.


Program zap_20-

Uses Crt-

Const n=10-

Type uch = record

Fio:string[20]-

Pol:=’м’,’ж’-

God:integer-

end-

Var a : array[1..n] of uch-

I,k1,k2 :byte-

BEGIN

ClrScr-

K1:=0-k2:=0-

for i:=1 to n do

(далее…)

Категория: Записи | Дата: 22.01.13

Ввести информацию по 10 спортсменам (ФИО, рост, вес), определить количество людей, чей вес превышает 70 кг.


Program zap_3-

Const n=10-

Type sportsmen = record

fio : string[40] —

rost:real-

ves:integer- —

end-

Var sp : sportsmen — —

i, j, kol, s : integer- sr : real-

Begin

kol:=0- —

With sp do —

For i:=1 to n do —

(далее…)

Категория: Записи | Дата: 21.01.13

Ввести информацию о товаре (наименование, цена, количество, поле стоимость рассчитать как цена* количество). Вывести итоговую стоимость каждого товара.


Program zap_4-

Uses Crt-

Const n=10-

Type tovar = record

name : string[20]-

stoim, cena:real-

kol:integer-

end-

Var a : array[1..n] of tovar-

i :byte-

BEGIN

ClrScr-

(далее…)

Категория: Записи | Дата: 21.01.13

Ввести информацию о рейсе самолета (Nрейса, время вылета, время прилета, пункт назначения). Вывести информацию о всех рейсах в заданный город.


Program zap_5-

Uses Crt-

Const n=10-

Type reys = record

N : integer-

Vremv, Vremp, gorod:string-

end-

Var a : array[1..n] of reys-

i :byte-

g:string-

BEGIN

ClrScr-

(далее…)

Категория: Записи | Дата: 21.01.13

Составить программу, выводящую на экран меню детского кафе (наименование изделия, вес, стоимость)


Program zap_6-

Uses Crt-

Const n=10-

Type menu= record

Name : string[20]-

ves:real-

cena:real-

end-

Var a : array[1..n] of menu-

i :byte-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘наименование блюда ‘,I)-

(далее…)

Категория: Записи | Дата: 20.01.13

Составить программу, выводящую на экран расписание движения поездов (Nпоезда, станция отправления, станция прибытия, время прибытия, время в пути).


Program zap_7-

Uses Crt-

Const n=10-

Type reys = record

N : integer-

Stan_ot, Stan_pr,vrem, vrem_p:string[10]-

end-

Var a : array[1..n] of reys-

i :byte-

g:string-

(далее…)

Категория: Записи | Дата: 20.01.13

Составить программу, выводящую на экран список книг домашней библиотеки (автор, название книги, издательство, год издания, стоимость). Провести поиск по автору книги.


Program zap_8-

Uses Crt-

Const n=10-

Type kniga = record

Avt, name,izd:string[20]-

God:integer-

Stoim:real-

end-

Var a : array[1..n] of kniga-

(далее…)

Категория: Записи | Дата: 20.01.13

Составить программу, выводящую на экран расписание экзаменов и зачетов (предмет, вид отчетности, число, преподаватель).


Program zap_9-

Uses Crt-

Const n=10-

Type rasp = record

pred, vid,prep:string[20]-

data:string[8]-

end-

Var a : array[1..n] of rasp-

i :byte-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘Введите предмет ‘,I)-

(далее…)

Категория: Записи | Дата: 19.01.13

Страница 2 из 16812345...102030...Последняя »
Меню раздела
Блок