Вопросы пользователя KIRUHANSKiY / Live-CS

кароче задолбался я искать

дайте нормальный ссылки желательно терренты мне нужно программы для создания музыки или онлайн студии итд

11.08.2012, 23:54

Пацаны выручайте

Нужна кура с прошлого мода ну или по русски гривилл можете дать пожалуйста freeze8422 мне любую можна даже самую обычную

KIRUHANSKiY

5 комментариев

20.12.2012, 00:47

И так мне нужно сделать 2 бат файла

3.2 Создать командный файл find.bat, который ищет в системных каталогах и выводит на экран полное путевое имя программ notepad.exe и calc.exe

3.3. Написать командный файл, который принимает три имени файла в качестве параметров и трижды сдвигает эти параметры, а затем выводит на экран содержимое первого параметра.

Плачу 100р в стим freeze8422 есть небольшие подсказки

KIRUHANSKiY

4 комментария

21.12.2012, 17:48

Кикает ЕАС постоянно

антивируса нету,fairwoll отключен. Короче все что нужно я сделал и не могу понять в чем проблема

KIRUHANSKiY

9 комментариев

01.01.2013, 18:33

СРОЧНО ХЭЛП!!!

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type Zodiak=record
name,surname:string[50];
znak:string[20];
date:array[1..3]of integer;
end;

mz=array[1..20]of Zodiak;
var m:mz;
i,n:integer;
ss:string;
f:text ;
nam: String;

function vozrast(d:zodiak):integer;
begin
vozrast:=d.date[1]+d.date[2]*31+d.date[3]*365;
end;

procedure Sort(var mm:mz; n:integer);
var i,j:integer;
b:zodiak;

begin
for i:=1 to n do
for j:=1 to n-1 do if vozrast(mm[j])>vozrast(mm[j+1]) then
begin
b:=mm[j];
mm[j]:=mm[j+1];
mm[j+1]:=b;
end;
end;

begin
write('Kol-Bo Chelovek -> ');
readln(n);
for i:=1 to n do
with m[i] do
begin

writeln('Vvedite dannie ',i,'o cheloveke');
write('Imya ');
readln(name);
write('Familiya ');
readln(surname);
write('data rojdeniya ');
readln(date[1],date[2],date[3]);
write('Znak zadiaka ');
readln(znak);
end;
sort(m,n);

write('Vvedite znak zadiaka dlya poiska: ');
readln(ss);

for i:=1 to n do if m[i].znak=ss then
writeln(m[i].name,' ',m[i].surname,' ',m[i].date[1],' ',m[i].date[2],' ',m[i].date[3]);
Writeln('Vvedite imya faila: '); Readln(nam);
Assign(f,nam+'.txt');
Rewrite(f);
Close (f);
readln;
end.

Вот программа мне нужно что бы сохраняло в файл все что я напишу! У меня создает фалй но не сохраняет

KIRUHANSKiY

4 комментария

29.03.2013, 18:28

Ку ку кто поможет решить задание по (ОС)

Написать командный файл, который запрашивает имя пользователя, сравнивает его с заранее заданным значением и в случае совпадения выводит строку «Access granted» и содержимое текущего каталога. Если имена не совпадают, программа выдает строку «Access denied» и прекращает выполнение.
Написать командный файл, который проверяет существование файла, заданного пользователем в качестве параметра и в случае его наличия, печатает содержимое файла на экране. Если файл не найден, пользователю предлагается ввести другое имя файла для просмотра. Если файл снова не найден, выводится строка «Exiting..» и программа завершается. Если файл найден, то программа выводит содержимое постранично на экран, а затем снова запрашивает имя. И так до ввода несуществующего имени файла.

KIRUHANSKiY

4 комментария

14.06.2013, 20:20