|
Вопрос по pascal
|
|
| fenix4 | Дата: Понедельник, 11 Октября 2010, 22:33 | Сообщение # 1 |
участник
Сейчас нет на сайте
| Возможно ли зделать на pascal передачу данных сервер - клиент есть хорошие игры на паскале если есть покажите !
|
|
|
| |
| wernher | Дата: Понедельник, 11 Октября 2010, 23:45 | Сообщение # 2 |
Only God is Perfect
Сейчас нет на сайте
| На TurboPascal наверно нет.
На Delphi, ObjectPascal, FreePascal(Lazarus) да.
|
|
|
| |
| Кэп | Дата: Воскресенье, 17 Октября 2010, 17:11 | Сообщение # 3 |
почетный гость
Сейчас нет на сайте
| Quote (fenix4) есть хорошие игры на паскале если есть покажите !
При желании можно сделать на PascalABC.NET игру. Там и компилятор есть, и все что нужно. И несложно притом.
Я всегда на страже справедливости и очевидности!
|
|
|
| |
| megajubey | Дата: Понедельник, 18 Октября 2010, 20:11 | Сообщение # 4 |
был не раз
Сейчас нет на сайте
| что делает эта программа:
Code
var a,b,c,z:longint;
begin
readln(z);
c:=3;
b:=0;
a:=0;
repeat
c:=c+1;
for a:=2 to c div 2 do
if c mod a=0 then
break
else
b:=b+1;
until c>z-2;
writeln(b);
end.
No comment!
|
|
|
| |
| wernher | Дата: Вторник, 19 Октября 2010, 12:21 | Сообщение # 5 |
|
Only God is Perfect
Сейчас нет на сайте
| megajubey, по-моему вычисляет корни квадратного уравнения.
|
|
|
| |
| megajubey | Дата: Вторник, 19 Октября 2010, 15:34 | Сообщение # 6 |
|
был не раз
Сейчас нет на сайте
| а должен выводить кол-во простых чисел в числе. В чём ошибка?
No comment!
|
|
|
| |
| GECK | Дата: Вторник, 19 Октября 2010, 18:42 | Сообщение # 7 |
заслуженный участник
Сейчас нет на сайте
| Quote (megajubey) кол-во простых чисел в числе
Чего? Задачу не понял.
Всё гениальное просто. И хреново работает.
|
|
|
| |
| megajubey | Дата: Вторник, 19 Октября 2010, 22:39 | Сообщение # 8 |
|
был не раз
Сейчас нет на сайте
| Вводится число z. Нужно выяснить сколько простых чисел в z. Выводится число простых чисел b. Например:
z=15 значит b=6
No comment!
|
|
|
| |
| GECK | Дата: Пятница, 22 Октября 2010, 04:13 | Сообщение # 9 |
|
заслуженный участник
Сейчас нет на сайте
| Т.е. сколько простых чисел меньше z?
Побаловался:
Code
function is_simple(a:integer):boolean;
var i:integer;
begin
result:=true;
if (a=1) then
result:=false
else
if(a<>2)then
for i:=2 to a-1 do
if (a mod i=0) then
begin
result:=false;
break;
end;
end;
var i,b,z:integer;
begin
readln(z);
b:=0;
for i:=1 to z do
if is_simple(i) then inc(b);
wrilte(b);
end.
А в твоем варианте меня смутило
и
Всё гениальное просто. И хреново работает.
Сообщение отредактировал GECK - Пятница, 22 Октября 2010, 04:14 |
|
|
| |
