Перевод кода

@Антон Блик · Регистрация: 10.03.2013

Студворк — интернет-сервис помощи студентам

Переведите пжалуйста код на паскаль

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include<iostream>
#include<string>
using namespace std;
unsigned long long res=1;
int n,len;
string a;
int main()
{
    cin>>n;
    cin>>a;
    len=a.size();
    for(int i=n; i>0; i-=len) res*=i;
    cout<<res<<endl;
    return 0;

@programina · 22.11.2013, 15:08

Сообщение от Антон Блик

Переведите

Зачем? Паскаль - мертвый язык. Но если очень надо для экспериментаторских причуд, то лучше сразу обратиться в раздел паскаля, тем более код мизерный.

@Антон Блик · 22.11.2013, 15:10 **[ТС]**

а почему мертвый?

@programina · 22.11.2013, 15:15

Сообщение от Антон Блик

а почему мертвый?

Потому что на нем сегодня никто не пишет.

Добавлено через 2 минуты
Антон Блик, вот почитайте эту тему.
Почему Delphi считают умершим?!

@Антон Блик · 22.11.2013, 15:22 **[ТС]**

но задают на нем)

Добавлено через 6 минут
ну переведите пожалуйста

Добавлено через 18 секунд
programina, переведите пжл

@programina · 22.11.2013, 15:33

Сообщение от Антон Блик

но задают на нем)

Они просто не осилили с++ в свое время, а сейчас не хотят переобучаться. Не слушайте их, пишите на С++.

Добавлено через 4 минуты
Антон Блик, вот крутая ide для с++ вместе с компилятором:
http://www.codeblocks.org/downloads/26
Нужно качать это: codeblocks-12.11mingw-
setup_user.exe там уже встроен компилятор.

@newbie666 · 22.11.2013, 15:34

Не по теме:

programina, ты чё серьёзно на код блоках торчишь? :D

@programina · 22.11.2013, 15:36

Сообщение от newbie666

Не по теме:

programina, ты чё серьёзно на код блоках торчишь? :D

Да, это одна из лучших сред, а для новичков ей вообще нет альтернативы.

@newbie666 · 22.11.2013, 15:38

Сообщение от programina

Да, это одна из лучших сред

А студия хуже?

@gray_fox · 22.11.2013, 15:41

Не по теме:

Сообщение от programina

Зачем? Паскаль - мертвый язык.

) странный вопрос, тут в разделе > половины тем в духе "завтра сдавать!", думаете им есть дело, кто там умер?)

@gray_fox · 22.11.2013, 15:41

Не по теме:

Сообщение от newbie666

А студия хуже?

А что, лучше?)

@newbie666 · 22.11.2013, 15:42

Не по теме:

Сообщение от gray_fox

думаете им есть дело, кто там умер?)

5 баллов

Добавлено через 19 секунд

Не по теме:

Сообщение от gray_fox

А что, лучше?)

да, конечно

@rangerx · 22.11.2013, 16:22

Не по теме:

Сообщение от programina

Потому что на нем сегодня никто не пишет.

Сообщение от programina

Они просто не осилили с++ в свое время, а сейчас не хотят переобучаться.

В сфере образования(где ему в общем-то и место) он вполне себе жив. На Pascal'e изучают основы програмирования, и в этом плане он гораздо лучше C++.

@newbie666 · 22.11.2013, 16:25

Не по теме:

Сообщение от rangerx

На Pascal'e изучают основы програмирования

только идиоты изучают основы программирования на паскале, чтоб потом пересесть на С++

@gray_fox · 22.11.2013, 16:27

Не по теме:

Сообщение от newbie666

только идиоты изучают основы программирования на паскале, чтоб потом пересесть на С++

С чего им пересаживаться именно на С++? Есть куча других языков же...

@newbie666 · 22.11.2013, 16:29

Не по теме:

Сообщение от gray_fox

С чего им пересаживаться именно на С++

это основа всех основ, да и потом, тут речь шла про С++ и паскаль, другие языки не упоминались... :)

@gray_fox · 22.11.2013, 16:37

Не по теме:

Сообщение от newbie666

это основа всех основ

Это крайне спорно) С - может быть

Сообщение от newbie666

да и потом, тут речь шла про С++ и паскаль, другие языки не упоминались...

Тут только писали, что Паскаль хорош для обучения. То, что его учат, чтобы пересесть потом на плюсы - ваши слова)

@programina · 22.11.2013, 16:38

Сообщение от rangerx

В сфере образования(где ему в общем-то и место) он вполне себе жив.

Пока живы носители языка, а потом что? Ладно паскальные программисты, они на пенсии будут мемуары писать про паскаль и зарабатывать на этом, а ТС-у что делать?

Сообщение от rangerx

На Pascal'e изучают основы програмирования, и в этом плане он гораздо лучше C++.

Ню-ню. Одно только присовение чего стоит, когда видишь его, думаешь, что паскаль для инопланетян создавали:

Pascal
1
:=

И вообще паскаль обьекто-ориентированный? Ага, зачем студентам ООП...

@Антон Блик · 22.11.2013, 16:50 **[ТС]**

так трудно перевести код?

@rangerx · 22.11.2013, 18:56

Не по теме:

Сообщение от newbie666

только идиоты изучают основы программирования на паскале, чтоб потом пересесть на С++

Основы программирования на Pascal'е изучают не для того чтобы пересесть на некий язык X, а для того чтобы обучаться используя адекватный поставленной задаче ЯП; обучаться программированию, а не языку. Те сложности с которыми сталкиваются те, кто начинает с C++ по большей части искуcственны и связаны исключительно со сложностью самого языка.

Сообщение от newbie666

это основа всех основ

Основа основ чего?

Сообщение от programina

Пока живы носители языка, а потом что? Ладно паскальные программисты, они на пенсии будут мемуары писать про паскаль и зарабатывать на этом...

Если ты думаешь, что везде и повсюда применяется один лишь C++(и производные языки), а Pascal последний ЯП, который изобрёл Вирт, то ты очень ошибаешься.

Сообщение от programina

а ТС-у что делать?

А TC что собирается один ЯП на всю жизнь выучить? :)

Сообщение от programina

Ню-ню. Одно только присовение чего стоит, когда видишь его, думаешь, что паскаль для инопланетян создавали:

А то, что в C++(а если быть более точным, то в C) используемый в математике(и всем привычный) знак равенства = заменили на == тебя не смущает?

Сообщение от programina

И вообще паскаль обьекто-ориентированный? Ага, зачем студентам ООП...

ООП индустриальная парадигма. В современных версих Pascal'я есть ООП, но изучать его на Pascal'е я бы не стал.

Добавлено через 37 минут

Сообщение от Антон Блик

Переведите пжалуйста код на паскаль

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(************************)
  var i, n: Integer;
      res: Qword;     
      a: String;
 
begin  
  ReadLn(n);
  ReadLn(a);
  res:= 1; i:= n;
  while i > 0 do begin    
    res:= res * i;
    Dec(i, Length(a));
  end;
  WriteLn(res)
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Антон Блик 0 / 0 / 0 Регистрация: 10.03.2013 Сообщений: 19
	22.11.2013, 15:10 [ТС]
	а почему мертвый? 0

@Антон Блик 0 / 0 / 0 Регистрация: 10.03.2013 Сообщений: 19
	22.11.2013, 15:22 [ТС]
	но задают на нем) Добавлено через 6 минут ну переведите пожалуйста Добавлено через 18 секунд programina, переведите пжл 0

@newbie666
	22.11.2013, 15:34
	Не по теме: programina, ты чё серьёзно на код блоках торчишь? :D 0

@Антон Блик 0 / 0 / 0 Регистрация: 10.03.2013 Сообщений: 19
	22.11.2013, 16:50 [ТС]
	так трудно перевести код? 0