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

Адрес ресурса: http://vm1-01.narod.ru

Модератор: Aml

Сообщение Начертательная » 15 июн 2016, 04:08

Хренью какой-то занялись. Учебные задачи на Turbo Pascal никогда не будут моделировать реальные проекты.
Последний раз редактировалось Начертательная 18 июл 2016, 17:45, всего редактировалось 1 раз.
Начертательная
 
Сообщения: 10
Зарегистрирован: 15 июн 2016, 03:55

Сообщение Grum_ » 22 июн 2016, 12:52

WickedW00LF писал(а):2 курс
Кстати, за первое задание 4 поставили )


Переменная j лишняя, константу тоже можно не объявлять
Аватара пользователя
Grum_
 
Сообщения: 6618
Зарегистрирован: 31 окт 2005, 10:11

Сообщение Академик Иосиф » 06 июл 2016, 10:18

Начертательная писал(а):Хренью какой-то занялись. Учебные задачи никогда не будут моделировать реальные проекты.

Они и не должны. Они другое развивают. Именно на таких задачах я и стал сверх программистом :-)
Академик Иосиф
 
Сообщения: 28629
Зарегистрирован: 07 май 2008, 23:38

Сообщение Начертательная » 07 июл 2016, 07:59

Академик Иосиф писал(а):я и стал сверх программистом :-)
Слова не мальчика, но ТП :chir_lider:
Начертательная
 
Сообщения: 10
Зарегистрирован: 15 июн 2016, 03:55

Сообщение Академик Иосиф » 07 июл 2016, 15:49

Начертательная писал(а):Слова не мальчика, но ТП :chir_lider:

:chir_lider: :chir_lider:
Академик Иосиф
 
Сообщения: 28629
Зарегистрирован: 07 май 2008, 23:38

Сообщение WickedW00LF » 08 июл 2016, 09:58

Академик Иосиф писал(а):
Начертательная писал(а):Хренью какой-то занялись. Учебные задачи никогда не будут моделировать реальные проекты.

Они и не должны. Они другое развивают. Именно на таких задачах я и стал сверх программистом :-)

А че не помогаешь тогда?!
WickedW00LF
 
Сообщения: 37
Зарегистрирован: 07 янв 2011, 18:05

Сообщение Академик Иосиф » 13 июл 2016, 13:54

только сейчас тему нашел :nez-nayu:
Академик Иосиф
 
Сообщения: 28629
Зарегистрирован: 07 май 2008, 23:38

Сообщение WickedW00LF » 15 июл 2016, 10:02

Академик Иосиф писал(а):только сейчас тему нашел :nez-nayu:

Изображение
WickedW00LF
 
Сообщения: 37
Зарегистрирован: 07 янв 2011, 18:05

Сообщение John Prick » 15 июл 2016, 11:03

Фтопку этот паскаль. Кресты наше всё.

Код: Выделить всё
#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;
}
Аватара пользователя
John Prick
 
Сообщения: 7331
Зарегистрирован: 12 янв 2006, 19:30
Откуда: Исключение

Сообщение Академик Иосиф » 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.
Академик Иосиф
 
Сообщения: 28629
Зарегистрирован: 07 май 2008, 23:38

Сообщение Академик Иосиф » 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.
Академик Иосиф
 
Сообщения: 28629
Зарегистрирован: 07 май 2008, 23:38

Сообщение WickedW00LF » 18 июл 2016, 14:09

Академик Иосиф, благодарю
WickedW00LF
 
Сообщения: 37
Зарегистрирован: 07 янв 2011, 18:05

Сообщение WickedW00LF » 08 янв 2017, 17:16

Кое-что поинтереснее. Буду премного благодарен.
Изображение
Изображение
Изображение
Изображение
WickedW00LF
 
Сообщения: 37
Зарегистрирован: 07 янв 2011, 18:05

Сообщение Начертательная » 08 янв 2017, 17:51

Вот вам функция перевода кр 5 зад 1
float d2r(float Angle) {
return Angle*2.1415/180;
}
Начертательная
 
Сообщения: 10
Зарегистрирован: 15 июн 2016, 03:55

Сообщение WickedW00LF » 08 янв 2017, 18:05

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

Так приложение ж надо...
WickedW00LF
 
Сообщения: 37
Зарегистрирован: 07 янв 2011, 18:05

Сообщение Начертательная » 08 янв 2017, 18:08

Вот вам приложение
void main() {
float Angle;
printf("Введите угол ");
scanf("%f",&Angle);
printf("Угол в радианах равен %f",d2r(Angle));
}
Начертательная
 
Сообщения: 10
Зарегистрирован: 15 июн 2016, 03:55

Сообщение WickedW00LF » 08 янв 2017, 18:41

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

На C# надо приложение :plach:
WickedW00LF
 
Сообщения: 37
Зарегистрирован: 07 янв 2011, 18:05

Сообщение Начертательная » 08 янв 2017, 18:45

Это соответствует C, C++, C# и вообще любому Си. В любой IDE откройте консольный проект, скопируйте туда код и скомпилируйте.
Начертательная
 
Сообщения: 10
Зарегистрирован: 15 июн 2016, 03:55

Сообщение Storm » 08 янв 2017, 18:58

А тема то про турбопаскаль.....
Так что давайте подробнее, как в турбопаскале запустить код с# :-))
Storm
 
Сообщения: 5330
Зарегистрирован: 19 ноя 2004, 11:44
Откуда: Smolensk

Сообщение Начертательная » 08 янв 2017, 19:04

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

Дак как два пальца об Backspace: транслируете в Ассемблер, а TP может вставлять функции на Assembler-е.
Начертательная
 
Сообщения: 10
Зарегистрирован: 15 июн 2016, 03:55

Пред.След.

Вернуться в Форум СФ МЭИ (smolensk.sfmei)

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1