Страница 6 из 6
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# надо приложение
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
Начертательная, ну и где здесь ассемблер?