Страница 5 из 6

Решение задач на Turbo Pascal

Добавлено: 15 июн 2016, 04:08
Начертательная
Хренью какой-то занялись. Учебные задачи на Turbo Pascal никогда не будут моделировать реальные проекты.

Re: Решение задачек на Turbo Pascal

Добавлено: 22 июн 2016, 12:52
Grum_
WickedW00LF писал(а):2 курс
Кстати, за первое задание 4 поставили )
Переменная j лишняя, константу тоже можно не объявлять

Re: Решение задачек на Turbo Pascal

Добавлено: 06 июл 2016, 10:18
Академик Иосиф
Начертательная писал(а):Хренью какой-то занялись. Учебные задачи никогда не будут моделировать реальные проекты.
Они и не должны. Они другое развивают. Именно на таких задачах я и стал сверх программистом :-)

Re: Решение задачек на Turbo Pascal

Добавлено: 07 июл 2016, 07:59
Начертательная
Академик Иосиф писал(а):я и стал сверх программистом :-)
Слова не мальчика, но ТП :chir_lider:

Re: Решение задачек на Turbo Pascal

Добавлено: 07 июл 2016, 15:49
Академик Иосиф
Начертательная писал(а):Слова не мальчика, но ТП :chir_lider:
:chir_lider: :chir_lider:

Re: Решение задачек на Turbo Pascal

Добавлено: 08 июл 2016, 09:58
WickedW00LF
Академик Иосиф писал(а):
Начертательная писал(а):Хренью какой-то занялись. Учебные задачи никогда не будут моделировать реальные проекты.
Они и не должны. Они другое развивают. Именно на таких задачах я и стал сверх программистом :-)
А че не помогаешь тогда?!

Re: Решение задачек на Turbo Pascal

Добавлено: 13 июл 2016, 13:54
Академик Иосиф
только сейчас тему нашел :nez-nayu:

Re: Решение задачек на Turbo Pascal

Добавлено: 15 июл 2016, 10:02
WickedW00LF
Академик Иосиф писал(а):только сейчас тему нашел :nez-nayu:
Изображение

Re: Решение задачек на Turbo Pascal

Добавлено: 15 июл 2016, 11:03
John Prick
Фтопку этот паскаль. Кресты наше всё.

Код: Выделить всё

#include <iostream>
#include <algorithm>
#include <iterator>

class backward_alphabet_generator
{
public:
	backward_alphabet_generator() : m_letter('Z') {}
	char operator()()
	{
		return m_letter--;
	}
private:
	char m_letter;
};

int main()
{
	const int N = 26;
	char alphabet[N];

	std::generate(alphabet, alphabet + N, backward_alphabet_generator());
	std::copy(alphabet, alphabet + N, std::ostream_iterator<char>(std::cout, " "));

	std::cin.get();
	return 0;
}

Re: Решение задачек на Turbo Pascal

Добавлено: 18 июл 2016, 11:06
Академик Иосиф

Код: Выделить всё

program alfavit;
uses crt;
var
   a: array [1..25] of char;
   i: integer;
begin
   clrscr;
   for i:= 1 to 26 do begin
     a[i]:= char(91-i);
     write(a[i]);
   end;
   readln;
end.

Re: Решение задачек на Turbo Pascal

Добавлено: 18 июл 2016, 11:28
Академик Иосиф

Код: Выделить всё

program stroka;
uses crt;
var
  s: string;
  i, l: integer;
  len: string;
begin
  clrscr;
  readln(s);
  writeln(s);
  i:=0;
  repeat
    if s[i]=' ' then begin
      insert('...', s, i);
      i:=i+4;
    end
    else
      inc(i);
  until i>=length(s)-1;
  s:=s + '...';
  writeln(s);
  l:= length(s);
  str(l,len);
  writeln('Length = ' + len);
  readln;
end.

Re: Решение задачек на Turbo Pascal

Добавлено: 18 июл 2016, 14:09
WickedW00LF
Академик Иосиф, благодарю

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 17:16
WickedW00LF
Кое-что поинтереснее. Буду премного благодарен.
Изображение
Изображение
Изображение
Изображение

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 17:51
Начертательная
Вот вам функция перевода кр 5 зад 1
float d2r(float Angle) {
return Angle*2.1415/180;
}

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 18:05
WickedW00LF
Начертательная писал(а):Вот вам функция перевода кр 5 зад 1
float d2r(float Angle) {
return Angle*2.1415/180;
}
Так приложение ж надо...

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 18:08
Начертательная
Вот вам приложение
void main() {
float Angle;
printf("Введите угол ");
scanf("%f",&Angle);
printf("Угол в радианах равен %f",d2r(Angle));
}

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 18:41
WickedW00LF
Начертательная писал(а):Вот вам приложение
void main() {
float Angle;
printf("Введите угол ");
scanf("%f",&Angle);
printf("Угол в радианах равен %f",d2r(Angle));
}
На C# надо приложение :plach:

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 18:45
Начертательная
Это соответствует C, C++, C# и вообще любому Си. В любой IDE откройте консольный проект, скопируйте туда код и скомпилируйте.

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 18:58
Storm
А тема то про турбопаскаль.....
Так что давайте подробнее, как в турбопаскале запустить код с# :-))

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 19:04
Начертательная
Storm писал(а):А тема то про турбопаскаль.....
Так что давайте подробнее, как в турбопаскале запустить код с# :-))
Дак как два пальца об Backspace: транслируете в Ассемблер, а TP может вставлять функции на Assembler-е.

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 19:13
John Prick
Начертательная писал(а):
Storm писал(а):А тема то про турбопаскаль.....
Так что давайте подробнее, как в турбопаскале запустить код с# :-))
Дак как два пальца об Backspace: транслируете в Ассемблер, а TP может вставлять функции на Assembler-е.
Только вот незадача, C# не транслируется в ассемблер.

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 19:18
Начертательная
John Prick писал(а):Только вот незадача, C# не транслируется в ассемблер.
-вы заблуждаетесь. Любой код для любого распространённого языка можно транслировать в Ассемблер доступной системы. К тому же мой пример написан на чистом C и будет компилироваться на любом пылесосе.

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 20:12
WickedW00LF
Начертательная писал(а):Это соответствует C, C++, C# и вообще любому Си. В любой IDE откройте консольный проект, скопируйте туда код и скомпилируйте.
Не канает. 6 ошибок выдает

Re: Решение задачек на Turbo Pascal

Добавлено: 08 янв 2017, 20:40
Storm
WickedW00LF писал(а):
Не канает. 6 ошибок выдает
В интернет пылесос выпусти сначала, а то сначала облачную компиляцию запустят, а потом удивляются, что 6 ошибок.

Re: Решение задачек на Turbo Pascal

Добавлено: 09 янв 2017, 01:01
John Prick
Любой код для любого распространённого языка можно транслировать в Ассемблер доступной системы.
Примерчик для C# не помешал бы для подкрепления сего утверждения.

Re: Решение задачек на Turbo Pascal

Добавлено: 09 янв 2017, 13:32
Начертательная
John Prick писал(а):Примерчик для C# не помешал бы для подкрепления сего утверждения.
Любая версия "Hello, World!"

Код: Выделить всё

using System;
class HelloWorld {
   static void Main() {
      Console.Write("Hello, world!");
    }
}
Если, конечно, ваша реплика - это результат непонимания программирования или это просто троллинг :-)

Re: Решение задачек на Turbo Pascal

Добавлено: 09 янв 2017, 14:06
John Prick
Начертательная, ну и где здесь ассемблер?