Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

переведите програму с Шарпа на Паскаль очень нужноо.. спасибо

87K
30 ноября 2013 года
enver
1 / / 30.11.2013
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace Simple
{
public partial class Form1 : Form
{
int n;
int simpleD = 3;
int difficultD = 0;
public Form1()
{
InitializeComponent();
}



void xProstoe()
{

bool flag = true;
int tmpI;
double tmpD;

for (double i = 4; i <= n; i++)
{
for (double j = 2; j <= Math.Sqrt(n); j++)
{
tmpI =(int)( i / j);
tmpD = i / j;
if (tmpI == tmpD)
{ flag = false; break;}
else
{ flag = true; }
}
if (flag)
{ simpleD++; }
else
{ difficultD++; }
}

}

private void button1_Click(object sender, EventArgs e)
{
n = Convert.ToInt32(textBox1.Text);
xProstoe();
textBox2.Text = simpleD + " / " + difficultD;
}
}
}
  • Здравствуйте! Не понял сути: Вам на Delphi перевести надо или в процедурный Pascal? от mnanorn, 02 декабря 2013 года
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог