Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.03.2011, 18:30   #1
seilova
Пользователь
 
Аватар для seilova
 
Регистрация: 17.02.2011
Сообщений: 22
По умолчанию строки

кто знает как их написать ( мне очень нужно их решить а я не в теме (((((помогите плиз..

№1. Даны две фамилии. Определить, какая из них длиннее.
№2. Даны два слова. Верно ли, что первое слово начинается на ту же букву, которой оканчивается второе слово?
№3. Составить программу, которая печатает заданное слово, начиная с последней буквы.
seilova вне форума Ответить с цитированием
Старый 17.03.2011, 18:34   #2
Son Of Pain
Участник клуба
 
Регистрация: 23.12.2010
Сообщений: 1,129
По умолчанию

Язык-то какой? (
Son Of Pain вне форума Ответить с цитированием
Старый 17.03.2011, 18:34   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

1
Код:
if length(f1)>length(f2) writeln ('1') 
 else writeln('2');
2)
Код:
writeln(f1[1]=f2[length(f2)]);
3)
Код:
for i:=length(s) downto 1 do write(s[i]);
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 17.03.2011, 18:35   #4
seilova
Пользователь
 
Аватар для seilova
 
Регистрация: 17.02.2011
Сообщений: 22
По умолчанию

паскаль abc
seilova вне форума Ответить с цитированием
Старый 17.03.2011, 18:38   #5
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

1)
Код:
readln (s1);
readln (s2);
if length(s1) > length(s2) then writeln ('строка ', s1, ' длинее чем ', s2)
else writeln ('строка ', s2, ' длинее чем ', s1)
Ну проверете ещё на равность (несложно)
2)
Код:
if s1[1] = s2[length(s2)] then writeln ('Верно')
else writeln ('неверно')
3)
Код:
for i := length(s) downto 1 do
    Write(s[i]);
writeln;
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 17.03.2011, 18:46   #6
seilova
Пользователь
 
Аватар для seilova
 
Регистрация: 17.02.2011
Сообщений: 22
По умолчанию

а можете полностью программу ниписать... а то как я сделала она не запускается и выводит постоянно ошибки
seilova вне форума Ответить с цитированием
Старый 17.03.2011, 18:47   #7
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
а можете полностью программу ниписать... а то как я сделала она не запускается и выводит постоянно ошибки
Может за вас ещё их сдать?
Показывайте, что у вас получилось!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 17.03.2011, 18:48   #8
seilova
Пользователь
 
Аватар для seilova
 
Регистрация: 17.02.2011
Сообщений: 22
По умолчанию

ааа...большое всем спасибо!!! вы меня спасли
seilova вне форума Ответить с цитированием
Старый 17.03.2011, 18:48   #9
seilova
Пользователь
 
Аватар для seilova
 
Регистрация: 17.02.2011
Сообщений: 22
По умолчанию

Цитата:
Сообщение от Hacker19_90 Посмотреть сообщение
Может за вас ещё их сдать?
Показывайте, что у вас получилось!
я уже сама сделала
seilova вне форума Ответить с цитированием
Старый 17.03.2011, 18:49   #10
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Вот и молодец!!!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны строки S и S0. Удалить из строки S все подстроки, совпадающие с S0 . Если совпадающих подстрок нет, Шпунюся Помощь студентам 1 16.12.2010 21:02
Создание пустой строки и копирование в неё содержимое предыдущей строки Gvaridos Microsoft Office Excel 2 29.10.2010 13:33
Дбавление новой строки, после строки с подходящими параметрами RailOS Microsoft Office Excel 5 18.08.2010 10:12
Определять максимальную длину той части строки s, которая не содержит символы из строки s1. Александе еть я Общие вопросы C/C++ 5 13.04.2010 20:54
Перенести символа с начала строки в место перед запятой этой же строки. Zhiltsov Microsoft Office Excel 4 05.06.2009 13:10