Понедельник, 23 Мая 2022, 18:06

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Вопрос по pascal
Вопрос по 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.

А в твоем варианте меня смутило

Code
until c>z-2;

и
Code
for a:=2 to c div 2


Всё гениальное просто. И хреново работает.

Сообщение отредактировал GECK - Пятница, 22 Октября 2010, 04:14
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Вопрос по pascal
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2022 Рейтинг