Все категории

4 года назад

Каковы требования к имени файла?

Знания

Информатика

1 ответ:

Margo174 года назад

0 0

1. Использование латинских букв (A - Z) и букв кириллицы.
2. Указывание расширения файла.
3. использование коротких названий обычно до 10 символов.

Читайте также

Какой из объектов может быть исполнителем алгоритма? 1.карта; 2.словарь; 3.стиральная машина; 4.тетрадка. спасибо большое за пом

Хьюстооон [4K]

Стиральная машинка________

0 0

3 года назад

Помогите написать программы в паскале. Хоть что нибудь.1)Даны радиус круга и сторона квадрата. Проверьте, пройдет ли круг в квад

Амплитуда

var a,r:real;

begin

readln(a,r);

if a>2*r then writeln('proidet') else writeln('ne proidet');

end.

var a:array[1..100]of integer;

s,i,n:integer;

begin

readln(n);

for i:=1 to n do readln(a[i]);

for i:=2 to n-1 do begin

if a[i]<(a[i-1]+a[i+1])/2 then s:=s+1;

end;

writeln(s);

end.

function Fib(b:integer):integer;
begin
if (b<=1) then
Fib:=b
else
Fib := Fib(b - 1)+Fib(b - 2) ;
end;

var a:integer;
begin
readln(a);
writeln(fib(a));
end.

var m,k:integer;

begin

readln(m);

k:=m div 4;

writeln(k);

end.

var a:array[1..10]of integer;
i,n,k:integer;
begin
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to (n div 2) do begin
k:=a[n-i+1];
a[n-i+1]:=a[i];
a[i]:=k;
end;
for i:=1 to n do write(a[i],' ');
end.

0 0

4 года назад

Считая,что каждый символ колируется одним байтом,оцените информационный объем следуещего предложения: "А жизнь идёт, пути её сур

Белкин [50]

29 без точки. Если с точкой, то 30.

0 0

3 года назад

Игорь придумал пароль из 16 символов, состоящий из цифр и английских букв. Чтобы его не забыть, он решил записать пароль, но пре

Мацкалов Виктор

Это вообще-то не шифрование.

javascript:var a=['0','1','y','2','p','p','h','a','a','r','y','e','e','w','8','n'];a.reverse();for(var i=0;i<a.lenght;i+=2){a[i]^=a[i+1];a[i+1]^=a[i];a[i]^=a[i+1];}var s=a.join("");s=s.substring(a.length/2)+s.substring(0,a.length/2-1);alert(s);

ahpp2y10n8weeyr

0 0

4 года назад

Паскаль, помогите пж (даю 30 баллов)

Nzstya sherstik [4]

Ответ:

Note = Record

Name: string;

Phone: string;

Day: array[1..3] of word;

End;

FeLiPoN

0 / 0 / 0

Регистрация: 26.09.2010

Сообщений: 30

08.12.2010, 15:45 [ТС] 3

Цитата Сообщение от TAVulator Посмотреть сообщение

Pascal

Note = Record

Name: string;

Phone: string;

Day: array[1..3] of word;

End;

BabushkaTP

2 / 2 / 5

Регистрация: 21.11.2013

Сообщений: 20

07.02.2014, 12:05 4

Pascal

program zad;

uses crt;

const n=8;

type note=record

fm:string[20];

im:string[20];

tl:string[20];

dt:array[1..3] of word;

end;

var sp:array[1..n]of note;

i,j,f:integer;

fam:string[20];

buf:note;

begin

clrscr;

writeln('Введите данные об ',n,' абонентах:');

for i:=1 to n do

begin

writeln('Абонент ',i);

write(' Фамилия: ');readln(sp[i].fm);

write(' Имя: ');readln(sp[i].im);

write(' Телефон: ');readln(sp[i].tl);

writeln(' Дата рождения: ');

repeat

write(' день(1..31): ');readln(sp[i].dt[1]);

until sp[i].dt[1] in [1..31];

repeat

write(' месяц(1..12): ');readln(sp[i].dt[2]);

until sp[i].dt[2] in [1..12];

repeat

write(' год(1900..2000): ');readln(sp[i].dt[3]);

until (sp[i].dt[3]>=1900)and(sp[i].dt[3]<=2000);

end;

clrscr;

{сортировка массива записей по алфавиту}

for i:=1 to n-1 do

for j:=i+1 to n do

if sp[i].fm>sp[j].fm then

begin

buf:=sp[i];

sp[i]:=sp[j];

sp[j]:=buf;

end;

writeln('Список абонентов:':45);

writeln;

writeln('-------------------------------------------------------');

writeln('-------------------------------------------------------');

for i:=1 to n do

begin

gotoXY(1,whereY);write('| ',sp[i].fm);

gotoXY(15,whereY);write('| ',sp[i].im);

gotoXY(27,whereY);write('| ',sp[i].tl);

gotoXY(39,whereY);

write('| ',sp[i].dt[1],'.',sp[i].dt[2],'.',sp[i].dt[3]);

gotoXY(55,whereY); writeln('|');

end;

writeln('-------------------------------------------------------');

repeat

writeln('Введите фамилию для поиска:');

readln(fam);

f:=0;

for i:=1 to n do

if sp[i].fm=fam then

begin

f:=1;

write(sp[i].fm,' ',sp[i].im,' ',sp[i].tl,' ');

write(sp[i].dt[1],'.',sp[i].dt[2],'.',sp[i].dt[3]);

end;

if f=0 then writeln('Такой фамилии нет. Повторите ввод.');

until f=1;

readln

end.

Объяснение:

0 0

4 года назад