Номер кассеты Название фильма Жанр фильма Длительность фильма Страна Дата
поступления
1 Пятый элемент 12 фантастика 125 США 3 31.01.2002
2 Титаник 7 мелодрама 185 США 3 20.02.2004
3 Кавказская пленница 18 комедия 100 Россия 6 28.02.2001
4 Драйв 5 боевик 115 США 3 31.01.2005
5 По прозвищу Зверь... 15 боевик 85 Россия 6 28.02.2004
6 Профессионал 12 боевик 125 Франция 7 25.05.2005
7 Игрушка 7 комедия 85 Франция 7 22.04.2006
8 Танцор диско11 мелодрама 130 Индия 5 14.04.2004
9 Патруль времени 14 фантастика 102 США 3 28.02.2005
10 Только сильнейшие 16 боевик 96 США 3 30.09.2006
11 Ромео и Джульетта 15 мелодрама 126 США 3 03.04.2004
12 Зита и Гита 9 мелодрама 185 Индия 5 31.01.2003
13 На Дерибасовской хо-рошая погода 28 комедия 95 Россия 6 28.02.2005
14 Джуниор 7 комедия 90 США 3 30.04.2003
15 Парк Юрского периода 18 фантастика 120 США 3 13.02.2004
16 Крепкий орешек 13 боевик 120 США 3 19.12.2005
17 Затерянный мир 13 фантастика 110 США 3 26.07.2006
18 Американ бой 11 боевик 110 Россия 6 28.02.2005
19 Невезучие 9 комедия 90 Франция 7 11.10.2004
20 Танго и Кэш 9 боевик 98 США 3 28.02.2005
4. Создать за с которого вывести на экран название, жанр и длительность для всех фильмов, произведённых в Рос-сии и США, отсортировав их по ключу «Страна (возр.)+название (убыв)».
5. Создать за для вывода на экран всех фильмов, поступивших в видеотеку в 2004 и 2005 году. Данные отсортировать по дате поступления (по возрастанию).
6. Создать за с которого удалить из БД записи о фильмах, продолжительность которых менее 100 минут. Опреде-лить, сколько записей осталось в таблице.
ответ
4,0/5
2
SilverWind
середнячок
8 ответов
2.6 тыс. пользователей, получивших
1. вывести на экран 6 раз своё имя
program imya;
const n=6;
var i:integer;
begin
for i:=1 to n do
writeln('ваше имя');
end.
Пояснения: делала с цикла (можно было написать и шесть раз writeln, но так удобнее). Переменную n ввела для быстрого изменения значений (если нужно будет написать имя не 6, а, к примеру, 8 раз, нужно было заменить только вначале). Ещё хочу отметить, что имя вводится по-английски и нельзя терять апострофы ( ' ).
2. program sum;
var sum:integer;
m:array[1..4] of integer;
i:integer;
begin
m[1]:=6
for i:=2 to 4 do begin
m[i]:=m[i-1]+1;
end;
sum:=m[1];
for i:=2 to 4 do begin
sum:=sum+m[i];
end;
writeln(sum);
end.
Пояснения: можно было делать и по-другому, но так тоже верно. Тут использовалось два цикла и массив. А блок-схему сами сделайте)))
3. program n!;
var n:real;
c:integer;
m:array[1..n] of integer;
begin
readln(n)
m[1]:=1;
for i:=2 to n do begin
m[i]:=m[i-1]+1;
end;
c:=m[1]
for i:=1 to n do begin
c:=c*m[i];
end;
writeln('n!',c);
end.
Если что не понятно, пишите, объясню
Объяснение:
сосиска
Program Markovsp1;
uses crt;
const
eps=0.001;
var
t,s:real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа вычисляет частичную сумму ряда ');
writeln(' S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл repeat');
writeln();
s:=0;
i:=1;
repeat
t:=1/((i)*(i));
s:=s+t;
//writeln('i=',i,' T=',t:0:6,' S=',s:0:6);
i:=i+1;
until abs(t)<eps;
writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.
Program Markovsp2;
uses crt;
const
eps=0.001;
var
t,s:real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа вычисляет частичную сумму ряда ');
writeln(' S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл while');
writeln();
s:=0;
i:=1;
t:=1;
while t>eps do
begin
t:=1/(i*i);
s:=s+t;
//writeln('i=',i,' T=',t:0:6,' S=',s:0:6);
i:=i+1;
end;
writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.