компьютерный форум
Вернуться   Компьютерный форум > Программирование и вебстроительство > Программирование

Ответ
 
LinkBack Опции темы Опции просмотра
Старый 18.09.2004, 15:47   #1
Пользователи
 
Регистрация: 19.07.2004
Сообщений: 9
Smile

1. Введите текст состоящий из 48 символов Вывести его на печать в виде 4 строк по 12 символлов каждая Найти в каждой сторке позицию в которой первый раз встречается заданная буква
Проверить на примере
>

2.Определить являются ли прямые проходящие через точки (а1.а2)(b1.b2) и (с1.с2)(d1.d2)


:no: :no: :no: :no: :no:




Crazy Joker вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
18.09.2004, 15:47
Техник
реклама
Smile

Старый 20.09.2004, 08:37   #2
Пользователи
 
Регистрация: 18.04.2004
Сообщений: 41
Thumbs up

Цитата:
Originally posted by Crazy Joker@18.09.2004 - 17:47
[b] 1. Введите текст состоящий из 48 символов Вывести его на печать в виде 4 строк по 12 символлов каждая Найти в каждой сторке позицию в которой первый раз встречается заданная буква
Проверить на примере
>

2.Определить являются ли прямые проходящие через точки (а1.а2)(b1.b2) и (с1.с2)(d1.d2)


:no: :no: :no: :no: :no:
HI!
по первому вопросу: Тебе исходный код на Turbo Pascal'е нужен? или?
по второму вопросу: что-то не понял чем должны являться прямые.... Задай вопрос точнее! :huh:
Lucky вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
Старый 21.09.2004, 08:31   #3
Пользователи
 
Регистрация: 03.08.2004
Сообщений: 23
По умолчанию

var str:string;
char:string[1];
str1,str2,str3,str4:string[12];
begin
writeln('Vvedite stroku iz 48 simvolov:');
readln(str);
writeln('Vvedite simvol:');
readln(char);
str1:=copy(str,1,12);
str2:=copy(str,13,24);
str3:=copy(str,25,36);
str4:=copy(str,37,48);
writeln('Stroka 1:',str1);
writeln('Stroka 2:',str2);
writeln('Stroka 3:',str3);
writeln('Stroka 4:',str4);
writeln('Positia v stroke 1:',pos(char,str1));
writeln('Positia v stroke 2:',pos(char,str2));
writeln('Positia v stroke 3:',pos(char,str3));
writeln('Positia v stroke 4:',pos(char,str3));
readln;
end.

Вот код первой проги и напиши какими должны быть прямые во второй :drinks:
geser вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
Старый 21.09.2004, 15:57   #4
Пользователи
 
Регистрация: 18.04.2004
Сообщений: 41
По умолчанию

Цитата:
Вот код первой проги и напиши какими должны быть прямые во второй
НУ,я точно ничего не догоняю.....
Прямые могут быть:
1. Параллельными!
2. Пересекаться
3. Совпадать
так на какое условие ты их проверять собрался?! Другими словами, Определить являются ли прямые проходящие через точки (а1.а2)(b1.b2) и (с1.с2)(d1.d2) - КАКИМИ ИЛИ ЧЕМ?????
Lucky вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
Старый 21.09.2004, 16:43   #5
Пользователи
 
Регистрация: 19.07.2004
Сообщений: 9
По умолчанию

ПЕРПЕНДИКУЛЯРНЫМИ извинни те))) Пьяным был когда писал студенчиский обмывал в 4 раз....
Спасибо насчет 1
Crazy Joker вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
Старый 21.09.2004, 16:44   #6
Пользователи
 
Регистрация: 19.07.2004
Сообщений: 9
По умолчанию

Я решал не многу по другому но этот даже лучше........ :wub: :clap:
Crazy Joker вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
Старый 23.09.2004, 08:10   #7
Пользователи
 
Регистрация: 03.08.2004
Сообщений: 23
По умолчанию

Это решение второй задачи

var x1,y1,x2,y2,res:real;
begin
writeln('Vvedite koordinati vektorov cherez probel:');
read(x1,y1,x2,y2);
res:=x1*x2+y1*y2;
if res=0 then writeln('Priamie perpendikuliarni')
else
writeln('Priamie ne perpendikuliarni');
readln;
end.

Учи паскаль - всю учебу за тебя решать никто не будет
geser вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
Ответ


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.



Текущее время: 07:34. Часовой пояс GMT.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd. Перевод: zCarot
Content Relevant URLs by vBSEO 3.5.0 RC2