Помогите переделать прогу с Паскаля на Си, с Паскаля на Си |
Здравствуйте Гость [ Вход | Регистрация ] | Форум в сети 6783-й день
Шановні користувачі! Запрошуємо вас до офіційного телеграм-канала 0day Community. Тут ви зможете поспілкуватися одне з одним та дізнатися про останні новини щодо роботи ресурса, поставити запитання до адміністрації, тощо. Перейти до телеграм-канала можна відсканувавши QR-код або натиснувши на посилання: @zeroday_ua |
Помогите переделать прогу с Паскаля на Си, с Паскаля на Си |
Kulini4 |
May 24 2006, 23:22
Пост
#1
|
Репутация: 13 Дух Группа: Пользователи Сообщений: 44 С нами с: 27-March 06 |
Помогите переделать лабу с Паскаля на Си, а то Си я не очень шарю, но только не на С++!
Вот сам листинг: ------------------------------------------------------------------------------------------------------------------- Program AndrKros; Procedure probel(n:byte); var i:byte; begin for i:=1 to n do write(' ') end; {probel} var s1,s2:string; i,j,k:byte; error:boolean; begin writeln('type first word'); readln(s1); writeln('type second word'); readln(s2); error:=true; for i:=1 to length(s1) do begin {naxodim s1[i] v s2} for j:=1 to length(s2) do begin if s1[i]=s2[j] then begin error:=false; {vivodim slova} writeln; for k:=1 to j-1 do begin probel(i-1); writeln(s2[k]) end; writeln(s1); for k:=j+1 to length(s2) do begin probel(i-1); writeln(s2[k]) end; writeln end {s1[i]=s2[j]} end {for j} end; {for i} if error then writeln('Net odinakovix bykv'); readln end. А задание было такое: З двох заданих із клавіатури слів скласти різні види кросвордів. При неможливості скласти кросворд (у введених словах немає ні однієї однакової букви) надрукувати повідомлення про помилку. Можливі символи – прописні рос. букви. Приклад виконання проги: Введите два слова, разделённых пробелом: КАРАБАС БАРАБАС Кросворд 1: Б КАРАБАС Р А Б А С Кросворд……: Б А Р А Б КАРАБАС С Пожалуйста помогите, кто шарит |
dimich |
May 30 2006, 22:34
Пост
#2
|
Репутация: 25 Активист Группа: Пользователи Сообщений: 222 С нами с: 4-April 06 |
#include <iostream.h> #include <conio.h> #include <string.h> void probel(int n) { for(int i = 1;i<=n;i++) cout<<" "; } int main() { char* s1, s2; s1 = new char[100]; s2 = new char[100]; cout<<"type first word"; cin>>s1; cout<<"type second word"; cin>>s2; int error = 1; for(int i = 1;i<=strlen(s1);i++) { for(int j = 1;j<=strlen(s2);j++) { error = 0; //vivodim slova getch(); for(int k = 1;k<=j-1;k++) { probel(i-1); cout<<s2[k]; getch(); } cout<<s1; for(k = j+1;k<=length(s2);k++) { probel(i-1); cout<<s2[k]; getch(); } //не понял к чему в коде writeln } } if(error = 1) { cout<<"net odinakovyh bukv"; } getch(); delete s1; delete s2; return 0; } чето типа того |
Kulini4 |
Jun 2 2006, 2:33
Пост
#3
|
Репутация: 13 Дух Группа: Пользователи Сообщений: 44 С нами с: 27-March 06 |
Спасибо, что отозвался!
Выручил!!! +1 |
Упрощённая версия | Сейчас: 10th October 2024 - 10:47 |
Сайт не розміщує електронні версії творів, а займається лише колекціонуванням та каталогізацією посилань, що публікуються нашими користувачами. Якщо Ви є правовласником якоїсь частини опублікованого матеріалу та не бажаєте, щоб посилання на нього знаходилось в нашому каталозі, зв’яжіться з нами і ми видалимо його. Файли для обміну надані користувачами сайту і адміністрація не несе відповідальності за їх вміст. |