0 / 0 / 1
Регистрация: 20.02.2015
Сообщений: 81
1

Перевод с Паскаля

13.11.2016, 17:05. Показов 705. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста перевести на Си
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const zn=['+','-','*','/'];
var f:text;
    s:string;
    i,j:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
j:=0;
while not eof(f) do
 begin
  readln(f,s);
  j:=j+1;
  for i:=1 to length(s)-1 do
  if (s[i] in zn)and(s[i+1] in zn)then
  writeln('Ошибка в строке ',j,' позиции ',i,',',i+1);
 end;
close(f);
readln
end.
Написала на Си так, но пишет ошибку и не знаю почему
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include <stdio.h>
#include <conio.h>
#include <string.h>
#include <stdlib.h>
int main()
{
FILE *f;
char txt[100][80];
int j=0,i;
f=fopen("123.txt","r");
do
{
fgets(txt[i],80,f);
while (feof(f))
 {
 for (j=0; j<i; j++)
if ((j='+') or (j='-') or (j='*') or (j='/')) && ((j+1='+') or (j+1='-') or (j+1='*') or (j+1='/'))
{
printf("Warrions  %d","number %d \n",i,j);
i++;
}
}
}
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2016, 17:05
Ответы с готовыми решениями:

Перевод с Паскаля в си
Всем привет! Прошу , пожалуйста помогите этот замечательный код перевести в си язык. const n...

Перевод из Паскаля в С
uses crt; var a,b,c,d:byte; begin clrscr; repeat writeln('Положение коня:');...

Перевод из Паскаля в С
const a=-pi; b=pi; h=pi/10; var x,y:real; begin writeln('----------------');...

Перевод из паскаля в Си
Пожалуйста, очень надо const n=5; type matr=array of integer; var a:matr; procedure...

1
Заблокирован
13.11.2016, 17:57 2
первое что заметил
Цитата Сообщение от АнастасияО Посмотреть сообщение
if ((j=='+') or (j='-') or (j='*') or (j='/')) && ((j+1='+') or (j+1='-') or (j+1='*') or (j+1='/'))
ну и т.д.
0
13.11.2016, 17:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.11.2016, 17:57
Помогаю со студенческими работами здесь

Перевод из Паскаля в Си
function Fact2(n: integer): real; var anva: integer; begin result := n; anva := n; ...

Перевод с паскаля на си
Пожалуйста, помогите перевести код с паскаля на си (не ++). program z13; uses crt; var...

Перевод с паскаля на Си
Помогите, пожалуйста, перевести с паскаля на си const d = 6; var N: integer; a: array of...

Перевод из Паскаля в СИ
Помогите перевести задачу из Паскаля в Си, пожалуйста var n,a,i:integer;s:arrayof integer;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru