Решение задачек на Turbo Pascal
-
- Сообщения: 10
- Зарегистрирован: 15 июн 2016, 03:55
- Настоящее имя: Эпюра
- Благодарил (а): 0
- Поблагодарили: 0
- Контактная информация:
Решение задач на Turbo Pascal
Хренью какой-то занялись. Учебные задачи на Turbo Pascal никогда не будут моделировать реальные проекты.
Последний раз редактировалось Начертательная 18 июл 2016, 17:45, всего редактировалось 1 раз.
- Grum_
- Сообщения: 6096
- Зарегистрирован: 31 окт 2005, 10:11
- Благодарил (а): 0
- Поблагодарили: 0
- Контактная информация:
Re: Решение задачек на Turbo Pascal
Переменная j лишняя, константу тоже можно не объявлятьWickedW00LF писал(а):2 курс
Кстати, за первое задание 4 поставили )
-
- Сообщения: 23467
- Зарегистрирован: 07 май 2008, 23:38
- Благодарил (а): 0
- Поблагодарили: 0
Re: Решение задачек на Turbo Pascal
Они и не должны. Они другое развивают. Именно на таких задачах я и стал сверх программистомНачертательная писал(а):Хренью какой-то занялись. Учебные задачи никогда не будут моделировать реальные проекты.
-
- Сообщения: 10
- Зарегистрирован: 15 июн 2016, 03:55
- Настоящее имя: Эпюра
- Благодарил (а): 0
- Поблагодарили: 0
- Контактная информация:
Re: Решение задачек на Turbo Pascal
Слова не мальчика, но ТПАкадемик Иосиф писал(а):я и стал сверх программистом
-
- Сообщения: 23467
- Зарегистрирован: 07 май 2008, 23:38
- Благодарил (а): 0
- Поблагодарили: 0
-
- Сообщения: 35
- Зарегистрирован: 07 янв 2011, 18:05
- Настоящее имя: Александр
- Благодарил (а): 0
- Поблагодарили: 0
Re: Решение задачек на Turbo Pascal
А че не помогаешь тогда?!Академик Иосиф писал(а):Они и не должны. Они другое развивают. Именно на таких задачах я и стал сверх программистомНачертательная писал(а):Хренью какой-то занялись. Учебные задачи никогда не будут моделировать реальные проекты.
-
- Сообщения: 23467
- Зарегистрирован: 07 май 2008, 23:38
- Благодарил (а): 0
- Поблагодарили: 0
-
- Сообщения: 35
- Зарегистрирован: 07 янв 2011, 18:05
- Настоящее имя: Александр
- Благодарил (а): 0
- Поблагодарили: 0
- John Prick
- Сообщения: 8808
- Зарегистрирован: 12 янв 2006, 19:30
- Благодарил (а): 368 раз
- Поблагодарили: 266 раз
- Контактная информация:
Re: Решение задачек на Turbo Pascal
Фтопку этот паскаль. Кресты наше всё.
Код: Выделить всё
#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;
}
-
- Сообщения: 23467
- Зарегистрирован: 07 май 2008, 23:38
- Благодарил (а): 0
- Поблагодарили: 0
Re: Решение задачек на Turbo Pascal
Код: Выделить всё
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.
-
- Сообщения: 23467
- Зарегистрирован: 07 май 2008, 23:38
- Благодарил (а): 0
- Поблагодарили: 0
Re: Решение задачек на Turbo Pascal
Код: Выделить всё
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.
-
- Сообщения: 35
- Зарегистрирован: 07 янв 2011, 18:05
- Настоящее имя: Александр
- Благодарил (а): 0
- Поблагодарили: 0
-
- Сообщения: 35
- Зарегистрирован: 07 янв 2011, 18:05
- Настоящее имя: Александр
- Благодарил (а): 0
- Поблагодарили: 0
-
- Сообщения: 10
- Зарегистрирован: 15 июн 2016, 03:55
- Настоящее имя: Эпюра
- Благодарил (а): 0
- Поблагодарили: 0
- Контактная информация:
Re: Решение задачек на Turbo Pascal
Вот вам функция перевода кр 5 зад 1
float d2r(float Angle) {
return Angle*2.1415/180;
}
float d2r(float Angle) {
return Angle*2.1415/180;
}
-
- Сообщения: 35
- Зарегистрирован: 07 янв 2011, 18:05
- Настоящее имя: Александр
- Благодарил (а): 0
- Поблагодарили: 0
Re: Решение задачек на Turbo Pascal
Так приложение ж надо...Начертательная писал(а):Вот вам функция перевода кр 5 зад 1
float d2r(float Angle) {
return Angle*2.1415/180;
}
-
- Сообщения: 10
- Зарегистрирован: 15 июн 2016, 03:55
- Настоящее имя: Эпюра
- Благодарил (а): 0
- Поблагодарили: 0
- Контактная информация:
Re: Решение задачек на Turbo Pascal
Вот вам приложение
void main() {
float Angle;
printf("Введите угол ");
scanf("%f",&Angle);
printf("Угол в радианах равен %f",d2r(Angle));
}
void main() {
float Angle;
printf("Введите угол ");
scanf("%f",&Angle);
printf("Угол в радианах равен %f",d2r(Angle));
}
-
- Сообщения: 35
- Зарегистрирован: 07 янв 2011, 18:05
- Настоящее имя: Александр
- Благодарил (а): 0
- Поблагодарили: 0
Re: Решение задачек на Turbo Pascal
На C# надо приложениеНачертательная писал(а):Вот вам приложение
void main() {
float Angle;
printf("Введите угол ");
scanf("%f",&Angle);
printf("Угол в радианах равен %f",d2r(Angle));
}
-
- Сообщения: 10
- Зарегистрирован: 15 июн 2016, 03:55
- Настоящее имя: Эпюра
- Благодарил (а): 0
- Поблагодарили: 0
- Контактная информация:
Re: Решение задачек на Turbo Pascal
Это соответствует C, C++, C# и вообще любому Си. В любой IDE откройте консольный проект, скопируйте туда код и скомпилируйте.
-
- Сообщения: 4784
- Зарегистрирован: 19 ноя 2004, 11:44
- Откуда: Smolensk
- Благодарил (а): 0
- Поблагодарили: 3 раза
- Контактная информация:
Re: Решение задачек на Turbo Pascal
А тема то про турбопаскаль.....
Так что давайте подробнее, как в турбопаскале запустить код с#
Так что давайте подробнее, как в турбопаскале запустить код с#
-
- Сообщения: 10
- Зарегистрирован: 15 июн 2016, 03:55
- Настоящее имя: Эпюра
- Благодарил (а): 0
- Поблагодарили: 0
- Контактная информация:
Re: Решение задачек на Turbo Pascal
Дак как два пальца об Backspace: транслируете в Ассемблер, а TP может вставлять функции на Assembler-е.Storm писал(а):А тема то про турбопаскаль.....
Так что давайте подробнее, как в турбопаскале запустить код с#
- John Prick
- Сообщения: 8808
- Зарегистрирован: 12 янв 2006, 19:30
- Благодарил (а): 368 раз
- Поблагодарили: 266 раз
- Контактная информация:
Re: Решение задачек на Turbo Pascal
Только вот незадача, C# не транслируется в ассемблер.Начертательная писал(а):Дак как два пальца об Backspace: транслируете в Ассемблер, а TP может вставлять функции на Assembler-е.Storm писал(а):А тема то про турбопаскаль.....
Так что давайте подробнее, как в турбопаскале запустить код с#
-
- Сообщения: 10
- Зарегистрирован: 15 июн 2016, 03:55
- Настоящее имя: Эпюра
- Благодарил (а): 0
- Поблагодарили: 0
- Контактная информация:
Re: Решение задачек на Turbo Pascal
-вы заблуждаетесь. Любой код для любого распространённого языка можно транслировать в Ассемблер доступной системы. К тому же мой пример написан на чистом C и будет компилироваться на любом пылесосе.John Prick писал(а):Только вот незадача, C# не транслируется в ассемблер.
-
- Сообщения: 35
- Зарегистрирован: 07 янв 2011, 18:05
- Настоящее имя: Александр
- Благодарил (а): 0
- Поблагодарили: 0
Re: Решение задачек на Turbo Pascal
Не канает. 6 ошибок выдаетНачертательная писал(а):Это соответствует C, C++, C# и вообще любому Си. В любой IDE откройте консольный проект, скопируйте туда код и скомпилируйте.
-
- Сообщения: 4784
- Зарегистрирован: 19 ноя 2004, 11:44
- Откуда: Smolensk
- Благодарил (а): 0
- Поблагодарили: 3 раза
- Контактная информация:
Re: Решение задачек на Turbo Pascal
В интернет пылесос выпусти сначала, а то сначала облачную компиляцию запустят, а потом удивляются, что 6 ошибок.WickedW00LF писал(а):
Не канает. 6 ошибок выдает
- John Prick
- Сообщения: 8808
- Зарегистрирован: 12 янв 2006, 19:30
- Благодарил (а): 368 раз
- Поблагодарили: 266 раз
- Контактная информация:
Re: Решение задачек на Turbo Pascal
Примерчик для C# не помешал бы для подкрепления сего утверждения.Любой код для любого распространённого языка можно транслировать в Ассемблер доступной системы.
-
- Сообщения: 10
- Зарегистрирован: 15 июн 2016, 03:55
- Настоящее имя: Эпюра
- Благодарил (а): 0
- Поблагодарили: 0
- Контактная информация:
Re: Решение задачек на Turbo Pascal
Любая версия "Hello, World!"John Prick писал(а):Примерчик для C# не помешал бы для подкрепления сего утверждения.
Код: Выделить всё
using System;
class HelloWorld {
static void Main() {
Console.Write("Hello, world!");
}
}
- John Prick
- Сообщения: 8808
- Зарегистрирован: 12 янв 2006, 19:30
- Благодарил (а): 368 раз
- Поблагодарили: 266 раз
- Контактная информация: