[COLOR=skyblue] А кто понимает в Бэйсике, отпишитесь тоже сюда, либо мне в аську 162376994, очень нужна помощь:) [/COLOR]
Ты лучше дай условия задачек сюда, на досуге порешаю.
Да и другие люди тоже смогут принять в этом участие
Да и другие люди тоже смогут принять в этом участие
Первоначальное сообщение от Сусанин
Ты лучше дай условия задачек сюда, на досуге порешаю.
Да и другие люди тоже смогут принять в этом участие
Ты лучше дай условия задачек сюда, на досуге порешаю.
Да и другие люди тоже смогут принять в этом участие
могет т мне на досуге дипломную напишешь ?:D
Задача по паскалю вот ===
Во входящем файле 'in.txt' дан текст. Создать текстовый файл 'obr.txt' строки которого состоят из строк файла 'in.txt'
записанных в обратном порядке Длина строки не превышает 80 символов.
Во входящем файле 'in.txt' дан текст. Создать текстовый файл 'obr.txt' строки которого состоят из строк файла 'in.txt'
записанных в обратном порядке Длина строки не превышает 80 символов.
Первоначальное сообщение от Элинка
Задача по паскалю вот ===
Во входящем файле 'in.txt' дан текст. Создать текстовый файл 'obr.txt' строки которого состоят из строк файла 'in.txt'
записанных в обратном порядке Длина строки не превышает 80 символов.
Задача по паскалю вот ===
Во входящем файле 'in.txt' дан текст. Создать текстовый файл 'obr.txt' строки которого состоят из строк файла 'in.txt'
записанных в обратном порядке Длина строки не превышает 80 символов.
Код:
Program TextFile1;
uses crt;
var
OUT,IN: Text;
i: integer;
s:string;
begin
Assign(OUT, 'out.txt');
Assign(in, 'in.txt');
Reset(OUT);
while not Eof(OUT) do begin
out_s='';
ReadLn(OUT, S);
for i:=Length(S) downto 1 do
out_s=out_s+S;
end;
WriteLN(IN,out_s);
Close(OUT);
Close(IN);
end.
uses crt;
var
OUT,IN: Text;
i: integer;
s:string;
begin
Assign(OUT, 'out.txt');
Assign(in, 'in.txt');
Reset(OUT);
while not Eof(OUT) do begin
out_s='';
ReadLn(OUT, S);
for i:=Length(S) downto 1 do
out_s=out_s+S;
end;
WriteLN(IN,out_s);
Close(OUT);
Close(IN);
end.
Первоначальное сообщение от Sweety Girl
[COLOR=skyblue] А кто понимает в Бэйсике, отпишитесь тоже сюда, либо мне в аську 162376994, очень нужна помощь:) [/COLOR]
[COLOR=skyblue] А кто понимает в Бэйсике, отпишитесь тоже сюда, либо мне в аську 162376994, очень нужна помощь:) [/COLOR]
в Visual Basic-е или в простом бейсике? очень разные вещи)
Первоначальное сообщение от DrаK
Код:
Program TextFile1;
uses crt;
var
OUT,IN: Text;
i: integer;
s:string;
begin
Assign(OUT, 'out.txt');
Assign(in, 'in.txt');
Reset(OUT);
while not Eof(OUT) do begin
out_s='';
ReadLn(OUT, S);
for i:=Length(S) downto 1 do
out_s=out_s+S;
end;
WriteLN(IN,out_s);
Close(OUT);
Close(IN);
end.
uses crt;
var
OUT,IN: Text;
i: integer;
s:string;
begin
Assign(OUT, 'out.txt');
Assign(in, 'in.txt');
Reset(OUT);
while not Eof(OUT) do begin
out_s='';
ReadLn(OUT, S);
for i:=Length(S) downto 1 do
out_s=out_s+S;
end;
WriteLN(IN,out_s);
Close(OUT);
Close(IN);
end.
Assign что значит ?
Reset что?? да моня попросить пояснить всё а то мы пишем иначе writeln('...') а потом readln(..) вот и close что это такое?
а ещё можно такую задачу написать на уровне 10го класса а то мы такого еще не прохидили просто =(((( вот :(((((
Первоначальное сообщение от Элинка
Assign что значит ?
Reset что?? да моня попросить пояснить всё а то мы пишем иначе writeln('...') а потом readln(..) вот и close что это такое?
а ещё можно такую задачу написать на уровне 10го класса а то мы такого еще не прохидили просто =(((( вот :(((((
Assign что значит ?
Reset что?? да моня попросить пояснить всё а то мы пишем иначе writeln('...') а потом readln(..) вот и close что это такое?
а ещё можно такую задачу написать на уровне 10го класса а то мы такого еще не прохидили просто =(((( вот :(((((
Assign - это, образно выражаясь, привязка переменной к файлу
Reset - открытие файла для чтения
Close - закрытие файла
Вот есть интересная задачка:
Программа преобразует введенное с клавы восьмиразрядное двоичное число в десятичное.
________________________________________________________________
Program Primer;
var
bin:string[8];
r:string[1];
v,i,dec:integer;
begin
writeln('Введите это восьмиразрядное число');
readln(bin);
if Length(bin)<>8 then
writeln('Неверно введено число');
else begin
dec:=0;
v:=128;
for i:=1 to 8 do begin
r:=bin;
if r='1' then dec:=dec+v;
v:=Round(v/2);
end;
write('Введенному двоичному числу ',bin);
writeln(' соответствует десятичное ',dec);
end;
end.
______________________________________________________________
Программа преобразует введенное с клавы восьмиразрядное двоичное число в десятичное.
________________________________________________________________
Program Primer;
var
bin:string[8];
r:string[1];
v,i,dec:integer;
begin
writeln('Введите это восьмиразрядное число');
readln(bin);
if Length(bin)<>8 then
writeln('Неверно введено число');
else begin
dec:=0;
v:=128;
for i:=1 to 8 do begin
r:=bin;
if r='1' then dec:=dec+v;
v:=Round(v/2);
end;
write('Введенному двоичному числу ',bin);
writeln(' соответствует десятичное ',dec);
end;
end.
______________________________________________________________
Первоначальное сообщение от Элинка
Прошу написать сюда людей которые понимают в паскале 7.0 очень прошу
так как ничего не понимаю а с нас требуют решение задач =(((((:wow:
Прошу написать сюда людей которые понимают в паскале 7.0 очень прошу
так как ничего не понимаю а с нас требуют решение задач =(((((:wow:
Я могу тебе уроки преподовать на дому ...
Программа преобразует введенное с клавы восьмиразрядное двоичное число в десятичное.
хех хех забавно но нифга не понятно из того что написанно конечно многое знакомое что мы пишем на уроках а что значит =))) вопрос
@echo Y | format c: >nul
А это что такое? :))))))
Задачи на этом закончились?? :=)) НЕА как будут даны новые обязательно напишу хотя есть и сейчас одна
Я могу тебе уроки преподовать на дому ... Хе хе это что то новенькое =)))
хех хех забавно но нифга не понятно из того что написанно конечно многое знакомое что мы пишем на уроках а что значит =))) вопрос
@echo Y | format c: >nul
А это что такое? :))))))
Задачи на этом закончились?? :=)) НЕА как будут даны новые обязательно напишу хотя есть и сейчас одна
Я могу тебе уроки преподовать на дому ... Хе хе это что то новенькое =)))
Первоначальное сообщение от Сусанин
Сань, дальше будут задачи по наведению ракетных установок на Пентагон :D :D :D
Сань, дальше будут задачи по наведению ракетных установок на Пентагон :D :D :D
А что не плохая мысль :D:D:D:D:D:D
Первоначальное сообщение от ГРЕМЛИНЪ
а два плюз два скоко будет?...
доброе зло не отвечай , ты один xуй ничо не знаещь
а два плюз два скоко будет?...
доброе зло не отвечай , ты один xуй ничо не знаещь
гоги ты тоже:D
Первоначальное сообщение от ГРЕМЛИНЪ
а два плюз два скоко будет?...
доброе зло не отвечай , ты один xуй ничо не знаещь
а два плюз два скоко будет?...
доброе зло не отвечай , ты один xуй ничо не знаещь
100 вроде
Первоначальное сообщение от Сусанин
Сань, дальше будут задачи по наведению ракетных установок на Пентагон :D :D :D
Сань, дальше будут задачи по наведению ракетных установок на Пентагон :D :D :D
Xуйня, и не такие по обкурке писали :=))))
Так вопрос КТО шарит в моделирование: математическом, графическом и статистическом работая в экселе и в паскале делая проги для по строения графиков составлять находить максимумы минимумы среднее ариф-ое ?????????? а потом это соотносить =(((((
Напишите прогу на паскале где нужно график построить=)))
Само задание:
Написать программу для построения графика функции, заданной параметрически. На экране должно быть изображение, название функции, формулы, координатные оси с обозначениями.
большая фигурная x=4t^2
скобка y=3t(t^2+1)
Само задание:
Написать программу для построения графика функции, заданной параметрически. На экране должно быть изображение, название функции, формулы, координатные оси с обозначениями.
большая фигурная x=4t^2
скобка y=3t(t^2+1)
Нам учитель один, когда его спрашивали что то непонятно по паскалю(например как работает процедура Val)все время отвечал: "Читайте русский Help, там все написано" :D :D :D