Форум программистов, компьютерный форум, киберфорум
C для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Заблокирован
1

Перевод из Turbo Pascal В С

22.11.2014, 11:35. Показов 1107. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program N5;
uses crt;
var
  a: array[1..100] of integer;
  i,n,x1,x2,k: integer;
begin
  clrscr;
  write('Введите размерность массива (<100):');
  readln(n);
  write('Введите X1:');
  readln(x1);
  write('Введите X2:');
  readln(x2);
  writeln('Исходный массив:');
  for i:=1 to n do
    begin
      a[i]:=random(n);
      write(a[i],' ');
    end;
  writeln;
  writeln('Числа из промежутка:');
  k:=0;
  for i:=1 to n do
    begin
        if (a[i]>=x1) and (a[i]<=x2) then
        begin
          k:=k+1;
          write(a[i],' ');
    end;
    end;
  writeln;
  writeln('Чисел принадлежащих отрезку: ',k);
  readln
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program N4;
var a,b,c,k,s:real;
begin
  repeat
   write('A,B,C=');
  readln(a,b,c);
  until (b>c) and (c>a);
  k:=a;
  repeat
    write(k:0:8,' | ');
     if k<c then s:=2*k else s:=k*k;
     writeln(s:0:8);
     k:=k+1;
  until k>b;
  readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2014, 11:35
Ответы с готовыми решениями:

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома...

Перевод программы с turbo pascal на Pascal ABC
Есть программа, которая строит треугольник Серпинского методом хаоса, но она конфликтует с графикой...

Перевод с Turbo Pascal в C#
Очень сильно нужна ваша помощь.Нужно перевести этот кусок кода на C# ... for i:=1 to n do ...

Перевод с Turbo Pascal в С++
Пожалуйста переведите из Turbo Pascal в Си uses crt; type PNode=^Node; {Указатель на узел} ...

5
19 / 18 / 1
Регистрация: 06.09.2012
Сообщений: 110
23.11.2014, 08:28 2
Примерно так:
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
void N5()
{
    int a[100];
    int i, n, x1, x2, k;
    cout << "Введите размерность массива (<100): ";
    cin >> n;
    cout << "Введите X1: ";
    cin >> x1;
    cout << "Введите Х2: ";
    cin >> x2;
    cout << "\n Исходный Массив:";
    for (i = 1; i = n; i++)
    {
        a[i] = rand() %n;
        cout << a[i] << "' '";
    }
    cout << "\n Числа из промежутка: ";
    k = 0;
    for (i = 1; i = n;i++)
    {
        if ((a[i] >= x1) && (a[i] <= x2))
        {
            k = k + 1;
            cout << a[i] << "' '";
        }
    }
    cout << "Чисел принадлежащих отрезку: " << k;
}
 
void N4()
{
    float a, b, c, k, s;
    do
    {
        cout << "A: ";
        cin >> a;
        cout << "B: ";
        cin >> b;
        cout << "C: ";
        cin >> c;
    } while ((b > c) && (c > a));
    k = a;
    do
    {
        cout << k << " | ";
        if (k < c)
        {
            s = 2 * k;
        }
        else
        {
            s = k*k;
        }
        cout << s << "\n";
        k = k + 1;
    } while (k > b);
}
К сожаление проверить на правильность нету возможности
1
Клюг
7674 / 3189 / 382
Регистрация: 03.05.2011
Сообщений: 8,380
23.11.2014, 16:21 3
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <conio.h>
#include <stdio.h>
 
float  a, b, c, k, s; 
 
void main(int argc, char *argv[])
{ 
  do { 
   printf("A,B,C="); 
  scanf("%f%f%f",&a,&b,&c); 
  }  while ((b > c) && (c > a)); 
  k = a; 
  do { 
    printf("%0.8f | ",k); 
     if (k < c) s = 2 * k; 
     else s = k * k; 
     printf("%0.8f\n",s); 
     k = k + 1; 
  }  while (k <= b); 
  getch();
}
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#include <conio.h>
#include <stdio.h>
#include <stdlib.h>
 
  int a[100]; 
  int i, n, x1, x2, k; 
 
void main(int argc, char *argv[])
{ 
  puts("J");   //ANSI clrscr , [url]http://adoxa.altervista.org/ansicon/[/url]
  printf("Введите размерность массива (<100):"); 
  scanf("%d",&n); 
  printf("Введите X1:"); 
  scanf("%d",&x1); 
  printf("Введите X2:"); 
  scanf("%d",&x2); 
  printf("Исходный массив:\n"); 
  for (i = 0; i < n; i++) 
    { 
      a[i] = rand()%n; 
      printf("%d ",a[i]); 
    } 
  printf("\n\rЧисла из промежутка:\n"); 
  k = 0; 
  for (i = 0; i < n; i++) 
    { 
        if ((a[i] >= x1) && (a[i] <= x2)) 
        { 
          k = k + 1; 
          printf("%d ",a[i]); 
    } 
    } 
  printf("\n\rЧисел принадлежащих отрезку: %d\n",k); 
  getch();
}
В стр.10 <Esc>J - очистить экран, команда со времён древних видеотерминалов. Драйвер для винконсоли лежит по ссылке.
1
Заблокирован
25.11.2014, 10:25  [ТС] 4
не подскажите где ошибка
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <stdio.h>
#include <conio.h>
int schet(int n)
{
    int count = 1;
    
    while ( n = n / 10 )
        count++;
 
    return count;
}
int main()
{
    int n,x;
    printf ("Vvedite chislo ot 1 do 10000: ");
    scanf ("%d", &n);
    switch (x)
    case 'x<=10000': printf ("Kolichestvo cifr v chisle: %d", schet (n));
    getch();
    return 0;
   }
0
Заблокирован
26.11.2014, 23:41  [ТС] 5
Подскажите пожалуйста
0
555 / 148 / 58
Регистрация: 27.07.2014
Сообщений: 2,446
26.11.2014, 23:58 6
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <stdio.h>
 
int schet(int n)
{
    int count = 1;
    
    while ( n = n / 10 )
        count++;
 
    return count;
}
int main()
{
    int n;
    printf ("Vvedite chislo ot 1 do 10000: ");
    scanf ("%d", &n);
    if (n <= 10000)
        printf ("Kolichestvo cifr v chisle: %d\n", schet(n));
    getch();
    return 0;
}
Цитата Сообщение от dreammastero Посмотреть сообщение
C
1
2
switch (x)
case 'x<=10000':
Бред.
0
26.11.2014, 23:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2014, 23:58
Помогаю со студенческими работами здесь

Перевод кода с Turbo Pascal
нужна помощь с переработкой кода из ТурбоПаскаль в ПаскальАБС. тут используеться метод плавающего...

Перевод программы с Turbo Pascal на С++
Помогите пожалуйста перевести с Turbo Pascal на С++!!!! Задачу и тексты надо переписывать!.

Перевод из turbo Pascal в PascalABC
Здравствуйте. Я не очень силен в программировании и перевод занимает долгое время. Очень сильно...

Перевод из turbo pascal в abc.net
Помогите адаптировать программу для abc.net из turbo pascal Program transportnaj_zadatsha;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru