0 / 0 / 0
Регистрация: 02.12.2012
Сообщений: 7
1

переделать программу из С++ в Pascal

09.12.2012, 23:46. Показов 424. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите пожалуйста переделать программу из С++ в Pascal

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
#include "stdio.h"
#include "string.h"
int main()
{
  char str[1000] = {0,};
  gets(str);
  char arr[256][256] = {0,};
  int i = 0;
  int maxleni = 0, maxlen = 0;
  int minleni = 0, minlen = 0;
  char* p = strtok(str," ,.");
  minlen = strlen(p);
  while(p)
  {
    if(strlen(p) > maxlen)
    {
      maxlen = strlen(p);
      maxleni = i;
    }
    if(strlen(p) < minlen)
    {
      minlen = strlen(p);
      minleni = i;
    }
    strcpy(arr[i++],p);
    p = strtok(NULL," ,.");
  }
  printf("Min len word:%s\n",arr[minleni]);
  printf("Max len word:%s\n",arr[maxleni]);
  return 0;
}
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2012, 23:46
Ответы с готовыми решениями:

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab2; uses Crt; const Nmax = 15; { MAX element mnozestva A } type T =...

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab3; uses Crt; const Output_File_Name = 'output.txt'; { ima faila dlya vivoda...

переделать программу из pascal в C++
Ребят помогите пожалуйста переделать программу в с++ вот ссылка на прогрумму тут просто не все...

Переделать программу в Pascal ABC
uses graph; function F1(x:real):real; begin F1:=sin(exp(-x)); end; function F2(x:real):real;...

0
09.12.2012, 23:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2012, 23:46
Помогаю со студенческими работами здесь

Переделать программу написанную на Pascal в С++
Задание Вариант 1 Вычислить определенный интеграл от функции f(x) на промежутке методом...

переделать программу из Pascal в язык С
Дано натуральное число n, равное выраженной в копейках цене некоторого товара, например, 317, 5005,...

переделать программу на pascal в программу на python
const n=20; m=12; var a,h,x,s:real; i,j:byte; begin repeat write('Введите a&gt;0 a=');...

Переделать программу, решённую на Pascal, в Delphi
Данная программа заменяет необходимые слова на другие, введённые с клавиатуры. uses crt; var ...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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